[Koha-cvs] koha/circ returns.pl [dev_week]

Mason James szrj1m at yahoo.com
Fri May 11 06:59:15 CEST 2007


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





More information about the Koha-cvs mailing list