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:
parent
5eae563b25
commit
bc6e11c853
1 changed files with 11 additions and 16 deletions
|
@ -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;
|
||||
|
||||
|
|
Loading…
Reference in a new issue