[Koha-cvs] CVS: koha/circ circulation.pl,1.64,1.64.2.1

[Chris Cormack]

Update of /cvsroot/koha/koha/circ
In directory sc8-pr-cvs1:/tmp/cvs-serv9791/circ

Modified Files:
      Tag: rel_2_0
        circulation.pl 
Log Message:
Bug fix for bug 605



Index: circulation.pl
===================================================================
RCS file: /cvsroot/koha/koha/circ/circulation.pl,v
retrieving revision 1.64
retrieving revision 1.64.2.1
diff -C2 -r1.64 -r1.64.2.1
*** circulation.pl      4 Nov 2003 19:48:50 -0000       1.64
--- circulation.pl      21 Jan 2004 20:48:35 -0000      1.64.2.1
***************
*** 383,387 ****
      foreach $flag (sort keys %$flags) {
        warn $flag;
!       my @itemswaiting='';
        ($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1);
        $flags->{$flag}->{'message'}=~s/\n/<br>/g;
--- 383,387 ----
      foreach $flag (sort keys %$flags) {
        warn $flag;
! #     my @itemswaiting='';
        ($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1);
        $flags->{$flag}->{'message'}=~s/\n/<br>/g;
***************
*** 406,409 ****
--- 406,410 ----
                if ($flag eq 'WAITING') {
                        my $items=$flags->{$flag}->{'itemlist'};
+                       my @itemswaiting;
                        foreach my $item (@$items) {
                        my ($iteminformation) = getiteminformation(\%env, 
$item->{'itemnumber'}, 0);
***************
*** 427,430 ****
--- 428,432 ----
                        {
                        my $color=$currentcolor;
+                           my @itemswaiting;
                        foreach my $item (@$items) {
                                ($color eq $linecolor1) ? ($color=$linecolor2) 
: ($color=$linecolor1);