[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/circ circulation.pl,1.57,1.58
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha/circ circulation.pl,1.57,1.58 |
Date: |
Mon, 07 Jul 2003 07:46:57 -0700 |
Update of /cvsroot/koha/koha/circ
In directory sc8-pr-cvs1:/tmp/cvs-serv5830/circ
Modified Files:
circulation.pl
Log Message:
Index: circulation.pl
===================================================================
RCS file: /cvsroot/koha/koha/circ/circulation.pl,v
retrieving revision 1.57
retrieving revision 1.58
diff -C2 -r1.57 -r1.58
*** circulation.pl 1 Jul 2003 11:22:48 -0000 1.57
--- circulation.pl 7 Jul 2003 14:46:55 -0000 1.58
***************
*** 219,232 ****
push @previousissues, $issueslist->{$it};
}
! }
! my $tcolor = '';
! my $pcolor = '';
! foreach my $book (sort {$b->{'timestamp'} <=> $a->{'timestamp'}}
@todaysissues){
! my $dd = $book->{'date_due'};
! my $datedue = $book->{'date_due'};
! $dd=format_date($dd);
! $datedue=~s/-//g;
! if ($datedue < $todaysdate) {
! $dd="<font color=red>$dd</font>\n";
}
($tcolor eq $linecolor1) ? ($tcolor=$linecolor2) :
($tcolor=$linecolor1);
--- 219,236 ----
push @previousissues, $issueslist->{$it};
}
! my $tcolor = '';
! my $pcolor = '';
! foreach my $book (sort {$b->{'timestamp'} <=> $a->{'timestamp'}}
@todaysissues){
! my $dd = $book->{'date_due'};
! my $datedue = $book->{'date_due'};
! $dd=format_date($dd);
! $datedue=~s/-//g;
! if ($datedue < $todaysdate) {
! $dd="<font color=red>$dd</font>\n";
! }
! ($tcolor eq $linecolor1) ? ($tcolor=$linecolor2) :
($tcolor=$linecolor1);
! $book->{'dd'}=$dd;
! $book->{'tcolor'}=$tcolor;
! push @realtodayissues,$book;
}
($tcolor eq $linecolor1) ? ($tcolor=$linecolor2) :
($tcolor=$linecolor1);
***************
*** 251,259 ****
$dd="<font color=red>$dd</font>\n";
}
- ($pcolor eq $linecolor1) ? ($pcolor=$linecolor2) :
($pcolor=$linecolor1);
- $book->{'dd'}=$dd;
- $book->{'tcolor'}=$pcolor;
- push @realprevissues,$book
- }
}
--- 255,258 ----
***************
*** 324,329 ****
CHARGES => $flags->{'CHARGES'},
amountold => $amountold,
- todayissues => address@hidden,
- previssues => address@hidden,
);
--- 323,326 ----
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/circ circulation.pl,1.57,1.58,
Paul POULAIN <=