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