From bc6e11c853e68aaeb3b93981a40438cb866d8170 Mon Sep 17 00:00:00 2001
From: Joe Atzberger <joe.atzberger@liblime.com>
Date: Mon, 7 Jan 2008 13:52:50 -0600
Subject: [PATCH] Bookseller.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/Bookseller.pm | 27 +++++++++++----------------
 1 file changed, 11 insertions(+), 16 deletions(-)

diff --git a/C4/Bookseller.pm b/C4/Bookseller.pm
index 72f789630d..e5feff2cfe 100644
--- a/C4/Bookseller.pm
+++ b/C4/Bookseller.pm
@@ -17,21 +17,21 @@ package C4::Bookseller;
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-
 use strict;
 
 use vars qw($VERSION @ISA @EXPORT);
 
-# set the version for version checking
-$VERSION = 3.00;
-
-@ISA    = qw(Exporter);
-@EXPORT = qw(
-    &GetBookSeller &GetBooksellersWithLateOrders
-    &ModBookseller
-    &DelBookseller
-    &AddBookseller
-);
+BEGIN {
+	# set the version for version checking
+	$VERSION = 3.01;
+	@ISA    = qw(Exporter);
+	@EXPORT = qw(
+		&GetBookSeller &GetBooksellersWithLateOrders
+		&ModBookseller
+		&DelBookseller
+		&AddBookseller
+	);
+}
 
 
 =head1 NAME
@@ -50,10 +50,6 @@ a bookseller.
 
 =head1 FUNCTIONS
 
-=cut
-
-#-------------------------------------------------------------------#
-
 =head2 GetBookSeller
 
 @results = &GetBookSeller($searchstring);
@@ -259,7 +255,6 @@ sub DelBookseller {
     my $sth=$dbh->prepare("DELETE FROM aqbooksellers WHERE id=?");
     $sth->execute($id);
 }
-END { }    # module clean-up code here (global destructor)
 
 1;
 
-- 
2.39.5