Update of /cvsroot/koha/koha/circ In directory usw-pr-cvs1:/tmp/cvs-serv23523/circ Modified Files: circulation.pl Log Message: Quick bodge to restrict the number of returned books showing to 8. (Request from the librarians here to speed up the screen reload) Needs to be tidied up Index: circulation.pl =================================================================== RCS file: /cvsroot/koha/koha/circ/circulation.pl,v retrieving revision 1.18 retrieving revision 1.19 diff -C2 -r1.18 -r1.19 *** circulation.pl 2001/04/03 21:32:37 1.18 --- circulation.pl 2001/04/20 00:31:02 1.19 *************** *** 383,391 **** --- 383,399 ---- EOF my $color=''; + #set up so only the lat 8 returned items display (make for faster loading pages) + my $count=0; foreach (sort {$a <=> $b} keys %returneditems) { + if ($count < 8){ ($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1); my $barcode=$returneditems{$_}; my $duedate=$riduedate{$_}; my @datearr = localtime(time()); + ### + # convert to nz date format + my @tempdate=split(/-/,$duedate); + $duedate="$tempdate[2]/$tempdate[1]/$tempdate[0]"; + #### my $todaysdate = (1900+$datearr[5]).'-'.sprintf ("%0.2d", ($datearr[4]+1)).'-'.sprintf ("%0.2d", $datearr[3]); my $overduetext="$duedate"; *************** *** 396,399 **** --- 404,411 ---- my ($iteminformation) = getiteminformation(\%env, 0, $barcode); print "<tr><td bgcolor=$color>$overduetext</td><td bgcolor=$color align=center><a href=/cgi-bin/koha/detail.pl?bib=$iteminformation->{'biblionumber'}&type=intra onClick=\"openWindow(this, 'Item', 480, 640)\">$barcode</a></td><td bgcolor=$color>$iteminformation->{'title'}</td><td bgcolor=$color>$iteminformation->{'author'}</td><td bgcolor=$color align=center>$iteminformation->{'itemtype'}</td><td bgcolor=$color><img src=/koha/images/blackdot.gif><a href=/cgi-bin/koha/moremember.pl?bornum=$borrower->{'borrowernumber'} onClick=\"openWindow(this,'Member', 480, 640)\">$borrower->{'cardnumber'}</a> $borrower->{'firstname'} $borrower->{'surname'}</td></tr>\n"; + } else { + last + } + $count++; } print "</table>\n"; *************** *** 635,638 **** --- 647,657 ---- my $datedue=$bookissue->{'date_due'}; my $dd=$bookissue->{'date_due'}; + #convert to nz style dates + #this should be set with some kinda config variable + + my @tempdate=split(/-/,$dd); + $dd="$tempdate[2]/$tempdate[1]/$tempdate[0]"; + + ##### $datedue=~s/-//g; if ($datedue < $todaysdate) {