Serials updates to link item record to serial table.

[koha_gimpoz] / C4 / Bookseller.pm

diff --git a/C4/Bookseller.pm b/C4/Bookseller.pm
old mode 100755 (executable)
new mode 100644 (file)
index b30c1bf..e5feff2
--- a/C4/Bookseller.pm
+++ b/C4/Bookseller.pm
@@ -17,22 +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
 
-# $Id$
-
 use strict;
 
 use vars qw($VERSION @ISA @EXPORT);
 
-# set the version for version checking
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g; shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v ); };
-
-@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
@@ -51,10 +50,6 @@ a bookseller.
 
 =head1 FUNCTIONS
 
-=cut
-
-#-------------------------------------------------------------------#
-
 =head2 GetBookSeller
 
 @results = &GetBookSeller($searchstring);
@@ -260,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;