From 1e284039c1a2e764c2bc3645f509f3d85fe215b1 Mon Sep 17 00:00:00 2001 From: Joe Atzberger Date: Wed, 27 Aug 2008 09:32:26 -0500 Subject: [PATCH] Bug 2419: require Exporter Signed-off-by: Galen Charlton --- C4/Bookseller.pm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/C4/Bookseller.pm b/C4/Bookseller.pm index 332d3bc477..e19378ea48 100644 --- a/C4/Bookseller.pm +++ b/C4/Bookseller.pm @@ -24,6 +24,7 @@ use vars qw($VERSION @ISA @EXPORT); BEGIN { # set the version for version checking $VERSION = 3.01; + require Exporter; @ISA = qw(Exporter); @EXPORT = qw( &GetBookSeller &GetBooksellersWithLateOrders &GetBookSellerFromId @@ -195,6 +196,7 @@ sub AddBookseller { ); # return the id of this new supplier + # FIXME: no protection against simultaneous addition: max(id) might be wrong! $query = " SELECT max(id) FROM aqbooksellers -- 2.39.5