From c72d04af84010ec65e0a608922ce76e52a0430b2 Mon Sep 17 00:00:00 2001
From: Joe Atzberger <joe.atzberger@liblime.com>
Date: Wed, 27 Aug 2008 09:32:26 -0500
Subject: [PATCH] Bug 2419: require Exporter

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
---
 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