From 4b6bf33656a3c7648eeb1f9fb6f67e440e78b16d Mon Sep 17 00:00:00 2001
From: Joe Atzberger <joe.atzberger@liblime.com>
Date: Mon, 7 Jan 2008 13:53:15 -0600
Subject: [PATCH] Suggestions.pm - BEGIN block VERSION and vars related to
 export.

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 C4/Suggestions.pm | 35 +++++++++++++++++------------------
 1 file changed, 17 insertions(+), 18 deletions(-)

diff --git a/C4/Suggestions.pm b/C4/Suggestions.pm
index 336e408c1f..80e0fbca75 100644
--- a/C4/Suggestions.pm
+++ b/C4/Suggestions.pm
@@ -19,15 +19,29 @@ package C4::Suggestions;
 
 
 use strict;
-require Exporter;
 use C4::Context;
 use C4::Output;
 use C4::Dates qw(format_date);
 use Mail::Sendmail;
 use vars qw($VERSION @ISA @EXPORT);
 
-# set the version for version checking
-$VERSION = 3.01;
+BEGIN {
+	# set the version for version checking
+	$VERSION = 3.01;
+	require Exporter;
+	@ISA = qw(Exporter);
+	@EXPORT = qw(
+		&NewSuggestion
+		&SearchSuggestion
+		&GetSuggestion
+		&GetSuggestionByStatus
+		&DelSuggestion
+		&CountSuggestion
+		&ModStatus
+		&ConnectSuggestionAndBiblio
+		&GetSuggestionFromBiblionumber
+	);
+}
 
 =head1 NAME
 
@@ -54,21 +68,6 @@ Suggestions done by other borrowers can be seen when not "AVAILABLE"
 
 =head1 FUNCTIONS
 
-=cut
-
-@ISA = qw(Exporter);
-@EXPORT = qw(
-    &NewSuggestion
-    &SearchSuggestion
-    &GetSuggestion
-    &GetSuggestionByStatus
-    &DelSuggestion
-    &CountSuggestion
-    &ModStatus
-    &ConnectSuggestionAndBiblio
-    &GetSuggestionFromBiblionumber
- );
-
 =head2 SearchSuggestion
 
 (\@array) = &SearchSuggestion($user,$author,$title,$publishercode,$status,$suggestedbyme)
-- 
2.39.2