[Koha-devel] CVS: koha/circ circulation.pl,1.18,1.19

[Chris Cormack]

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) {