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>
This commit is contained in:
Joe Atzberger 2008-01-07 13:52:50 -06:00 committed by Joshua Ferraro
parent 5eae563b25
commit bc6e11c853

View file

@ -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;