[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-devel] CVS: koha/circ circulation.pl,1.18,1.19
From: |
Chris Cormack |
Subject: |
[Koha-devel] CVS: koha/circ circulation.pl,1.18,1.19 |
Date: |
Thu, 19 Apr 2001 17:31:04 -0700 |
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) {
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-devel] CVS: koha/circ circulation.pl,1.18,1.19,
Chris Cormack <=