From 87a2209760e8d8ac3443f2787c787c5930eddac1 Mon Sep 17 00:00:00 2001 From: Joe Atzberger Date: Mon, 7 Jan 2008 13:53:08 -0600 Subject: [PATCH] Review.pm - BEGIN block VERSION and vars related to export. Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- C4/Review.pm | 23 ++++++++--------------- 1 file changed, 8 insertions(+), 15 deletions(-) diff --git a/C4/Review.pm b/C4/Review.pm index cbcef6a15a..6d3f6c8182 100644 --- a/C4/Review.pm +++ b/C4/Review.pm @@ -18,13 +18,18 @@ package C4::Review; # Suite 330, Boston, MA 02111-1307 USA use strict; -require Exporter; use C4::Context; use vars qw($VERSION @ISA @EXPORT); -# set the version for version checking -$VERSION = 3.00; +BEGIN { + # set the version for version checking + $VERSION = 3.00; + require Exporter; + @ISA = qw(Exporter); + @EXPORT = qw(getreview savereview updatereview numberofreviews + getreviews getallreviews approvereview deletereview); +} =head1 NAME @@ -34,7 +39,6 @@ C4::Review - Perl Module containing routines for dealing with reviews of items use C4::Review; - my $review=getreview($biblionumber,$borrowernumber); savereview($biblionumber,$borrowernumber,$review); updatereview($biblionumber,$borrowernumber,$review); @@ -48,23 +52,12 @@ Review.pm provides many routines for manipulating reviews. =head1 FUNCTIONS -=cut - -@ISA = qw(Exporter); -@EXPORT = qw(getreview savereview updatereview numberofreviews - getreviews getallreviews approvereview deletereview); - -use vars qw(); - -my $DEBUG = 0; - =head2 getreview $review = getreview($biblionumber,$borrowernumber); Takes a borrowernumber and a biblionumber and returns the review of that biblio - =cut sub getreview { -- 2.39.5