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

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     Antoine Farnault <toins>        06/11/29 11:59:07

Modified files:
        circ           : branchreserves.pl branchtransfers.pl 

Log message:
        removing unused variable.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/circ/branchreserves.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.2.2.8&r2=1.2.2.9
http://cvs.savannah.gnu.org/viewcvs/koha/circ/branchtransfers.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.24.2.5&r2=1.24.2.6

Patches:
Index: branchreserves.pl
===================================================================
RCS file: /sources/koha/koha/circ/branchreserves.pl,v
retrieving revision 1.2.2.8
retrieving revision 1.2.2.9
diff -u -b -r1.2.2.8 -r1.2.2.9
--- branchreserves.pl   22 Nov 2006 15:15:12 -0000      1.2.2.8
+++ branchreserves.pl   29 Nov 2006 11:59:07 -0000      1.2.2.9
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: branchreserves.pl,v 1.2.2.8 2006/11/22 15:15:12 alaurin Exp $
+# $Id: branchreserves.pl,v 1.2.2.9 2006/11/29 11:59:07 toins Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -28,7 +28,6 @@
 use C4::Date;
 use C4::Circulation::Circ2;
 
-#use Date::Manip;
 use Date::Calc qw(
   Today
   Add_Delta_YM

Index: branchtransfers.pl
===================================================================
RCS file: /sources/koha/koha/circ/branchtransfers.pl,v
retrieving revision 1.24.2.5
retrieving revision 1.24.2.6
diff -u -b -r1.24.2.5 -r1.24.2.6
--- branchtransfers.pl  28 Nov 2006 14:07:38 -0000      1.24.2.5
+++ branchtransfers.pl  29 Nov 2006 11:59:07 -0000      1.24.2.6
@@ -35,9 +35,6 @@
 # constants
 
 my %env;
-my $linecolor1 = 0;
-my $linecolor2 = 1;
-
 my $branches = GetBranches();
 my $printers = GetPrinters( \%env );
 
@@ -114,7 +111,6 @@
 my %transfereditems;
 my %frbranchcds;
 my %tobranchcds;
-my $color = $linecolor2;
 my $transfered;
 my $barcode = $query->param('barcode');
 if ($barcode) {
@@ -127,10 +123,6 @@
         my %item;
         my $frbranchcd = $iteminformation->{'frbranchcd'};
         if ( not($found) ) {
-            ( $color eq $linecolor1 )
-              ? ( $color = $linecolor2 )
-              : ( $color = $linecolor1 );
-            $item{'color'}        = $color;
             $item{'biblionumber'} = $iteminformation->{'biblionumber'};
             $item{'title'}        = $iteminformation->{'title'};
             $item{'author'}       = $iteminformation->{'author'};
@@ -166,10 +158,6 @@
     $item{frombrcd} = $frbcd;
     $item{tobrcd}   = $tobcd;
     my ($iteminformation) = getiteminformation( 0, $bc );
-    ( $color eq $linecolor1 )
-      ? ( $color = $linecolor2 )
-      : ( $color = $linecolor1 );
-    $item{'color'}        = $color;
     $item{'biblionumber'} = $iteminformation->{'biblionumber'};
     $item{'title'}        = $iteminformation->{'title'};
     $item{'author'}       = $iteminformation->{'author'};