From bc6e11c853e68aaeb3b93981a40438cb866d8170 Mon Sep 17 00:00:00 2001 From: Joe Atzberger 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 Signed-off-by: Joshua Ferraro --- 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