[Koha-cvs] koha/circ branchreserves.pl currenttransfers.pl [rel_3_0]

[Bruno Toumi]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_3_0
Changes by:	Bruno Toumi <btoumi>	06/11/07 10:07:33

Modified files:
	circ           : branchreserves.pl currenttransfers.pl 

Log message:
	bug fixing for pages branchreserves and current transfers ...
	
	branchreserves : restore date::Manip
	
	currenttransfers : remove %env

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/circ/branchreserves.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.2.2.4&r2=1.2.2.5
http://cvs.savannah.gnu.org/viewcvs/koha/circ/currenttransfers.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.3.2.1&r2=1.3.2.2

Patches:
Index: branchreserves.pl
===================================================================
RCS file: /sources/koha/koha/circ/branchreserves.pl,v
retrieving revision 1.2.2.4
retrieving revision 1.2.2.5
diff -u -b -r1.2.2.4 -r1.2.2.5
--- branchreserves.pl	2 Nov 2006 13:31:20 -0000	1.2.2.4
+++ branchreserves.pl	7 Nov 2006 10:07:33 -0000	1.2.2.5
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: branchreserves.pl,v 1.2.2.4 2006/11/02 13:31:20 toins Exp $
+# $Id: branchreserves.pl,v 1.2.2.5 2006/11/07 10:07:33 btoumi Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -27,7 +27,7 @@
 use C4::Auth;
 use C4::Date;
 use C4::Circulation::Circ2;
-#use Date::Manip;
+use Date::Manip;
 use C4::Reserves2;
 use C4::Search;
 use C4::Koha;

Index: currenttransfers.pl
===================================================================
RCS file: /sources/koha/koha/circ/currenttransfers.pl,v
retrieving revision 1.3.2.1
retrieving revision 1.3.2.2
diff -u -b -r1.3.2.1 -r1.3.2.2
--- currenttransfers.pl	20 Sep 2006 15:47:49 -0000	1.3.2.1
+++ currenttransfers.pl	7 Nov 2006 10:07:33 -0000	1.3.2.2
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: currenttransfers.pl,v 1.3.2.1 2006/09/20 15:47:49 toins Exp $
+# $Id: currenttransfers.pl,v 1.3.2.2 2006/11/07 10:07:33 btoumi Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -77,7 +77,7 @@
 			if ($warning>0){
 				$getransf{'messcompa'} = 1;
 			}
-			my $gettitle = getiteminformation(\%env,$num->{'itemnumber'});
+			my $gettitle = getiteminformation($num->{'itemnumber'});
 			my $itemtypeinfo = getitemtypeinfo($gettitle->{'itemtype'});
 			
 				$getransf{'title'} = $gettitle->{'title'};
@@ -85,6 +85,7 @@
 				$getransf{'biblionumber'} = $gettitle->{'biblionumber'};
 				$getransf{'itemnumber'} = $gettitle->{'itemnumber'};
 				$getransf{'barcode'} = $gettitle->{'barcode'};
+# 				$getransf{'barcode'} = 'toto le bozo';
 				$getransf{'itemtype'} = $itemtypeinfo->{'description'};
 				$getransf{'homebranch'} = $gettitle->{'homebranch'};
 				$getransf{'holdingbranch'} = $gettitle->{'holdingbranch'};