[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'};