[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);