[Koha-cvs] CVS: koha/circ circulation.pl,1.64,1.65
Chris Cormack
rangi at users.sourceforge.net
Wed Jan 21 21:49:56 CET 2004
Update of /cvsroot/koha/koha/circ
In directory sc8-pr-cvs1:/tmp/cvs-serv10000
Modified Files:
circulation.pl
Log Message:
Bug 605 fixed
Index: circulation.pl
===================================================================
RCS file: /cvsroot/koha/koha/circ/circulation.pl,v
retrieving revision 1.64
retrieving revision 1.65
diff -C2 -r1.64 -r1.65
*** circulation.pl 4 Nov 2003 19:48:50 -0000 1.64
--- circulation.pl 21 Jan 2004 20:49:54 -0000 1.65
***************
*** 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);
More information about the Koha-cvs
mailing list