From e9d7aaccadec19293d331b25d70839a1df919a3a Mon Sep 17 00:00:00 2001 From: Joe Atzberger Date: Mon, 7 Jan 2008 13:53:16 -0600 Subject: [PATCH] VirtualShelves.pm - BEGIN block VERSION and vars related to export. Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- C4/VirtualShelves.pm | 35 +++++++++++++++++------------------ 1 file changed, 17 insertions(+), 18 deletions(-) diff --git a/C4/VirtualShelves.pm b/C4/VirtualShelves.pm index 4a81632acb..c59f7f04b8 100644 --- a/C4/VirtualShelves.pm +++ b/C4/VirtualShelves.pm @@ -22,13 +22,27 @@ package C4::VirtualShelves; # Suite 330, Boston, MA 02111-1307 USA use strict; -require Exporter; use C4::Context; use C4::Circulation; use vars qw($VERSION @ISA @EXPORT); -# set the version for version checking -$VERSION = 3.00; +BEGIN { + # set the version for version checking + $VERSION = 3.01; + require Exporter; + @ISA = qw(Exporter); + @EXPORT = qw( + &GetShelves &GetShelfContents &GetShelf + + &AddToShelf &AddToShelfFromBiblio &AddShelf + + &ModShelf + &ShelfPossibleAction + &DelFromShelf &DelShelf + ); +} + +my $dbh = C4::Context->dbh; =head1 NAME @@ -48,21 +62,6 @@ items to and from virtualshelves. =over 2 -=cut - -@ISA = qw(Exporter); -@EXPORT = qw( - &GetShelves &GetShelfContents &GetShelf - - &AddToShelf &AddToShelfFromBiblio &AddShelf - - &ModShelf - &ShelfPossibleAction - &DelFromShelf &DelShelf -); - -my $dbh = C4::Context->dbh; - =item GetShelves $shelflist = &GetShelves($owner, $mincategory); -- 2.39.5