gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

VirtualShelves.pm - BEGIN block VERSION and vars related to export. 

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Joe Atzberger 2008-01-07 13:53:16 -06:00 committed by Joshua Ferraro
parent 4b6bf33656
commit e9d7aaccad
1 changed files with 17 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
C4/VirtualShelves.pm
View File

@ -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);