projects
/
koha_gimpoz
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Serials updates to link item record to serial table.
[koha_gimpoz]
/
C4
/
Bookseller.pm
diff --git
a/C4/Bookseller.pm
b/C4/Bookseller.pm
index
72f7896
..
e5feff2
100644
(file)
--- 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
# 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);
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
=head1 NAME
@@
-50,10
+50,6
@@
a bookseller.
=head1 FUNCTIONS
=head1 FUNCTIONS
-=cut
-
-#-------------------------------------------------------------------#
-
=head2 GetBookSeller
@results = &GetBookSeller($searchstring);
=head2 GetBookSeller
@results = &GetBookSeller($searchstring);
@@
-259,7
+255,6
@@
sub DelBookseller {
my $sth=$dbh->prepare("DELETE FROM aqbooksellers WHERE id=?");
$sth->execute($id);
}
my $sth=$dbh->prepare("DELETE FROM aqbooksellers WHERE id=?");
$sth->execute($id);
}
-END { } # module clean-up code here (global destructor)
1;
1;