[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/circ returns.pl [dev_week]
From: |
Mason James |
Subject: |
[Koha-cvs] koha/circ returns.pl [dev_week] |
Date: |
Fri, 11 May 2007 04:59:15 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch: dev_week
Changes by: Mason James <sushi> 07/05/11 04:59:15
Modified files:
circ : returns.pl
Log message:
Chris has a better way to stop perl failing when trying to load
packages :)
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/circ/returns.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.37.2.6.2.10&r2=1.37.2.6.2.11
Patches:
Index: returns.pl
===================================================================
RCS file: /sources/koha/koha/circ/returns.pl,v
retrieving revision 1.37.2.6.2.10
retrieving revision 1.37.2.6.2.11
diff -u -b -r1.37.2.6.2.10 -r1.37.2.6.2.11
--- returns.pl 11 May 2007 04:03:39 -0000 1.37.2.6.2.10
+++ returns.pl 11 May 2007 04:59:15 -0000 1.37.2.6.2.11
@@ -39,17 +39,19 @@
use C4::Interface::CGI::Output;
use C4::Koha;
+
#wrapping PrintR.pm and C4::RotatingCollections call for CCFS in an 'if'
# both files need to be commited to CVS :)
+
my $library_name = C4::Context->preference("LibraryName");
-warn $library_name;
if ( $library_name =~ m/CCFLS/ ) {
- use PrintR;
- use C4::RotatingCollections;
+ eval "use Printr";
+ eval "use C4::RotatingCollections";
}
+
my $query = new CGI;
#getting the template