Update of /cvsroot/koha/koha/circ In directory usw-pr-cvs1:/tmp/cvs-serv19145/circ Modified Files: circulation.pl Log Message: Changed the sorting of the hash of items on issue. To sort numerically, (so 10 comes after 2) Just a quick fix to get the items showing in date_due order Index: circulation.pl =================================================================== RCS file: /cvsroot/koha/koha/circ/circulation.pl,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -r1.19 -r1.20 *** circulation.pl 2001/04/20 00:31:02 1.19 --- circulation.pl 2001/08/17 07:54:38 1.20 *************** *** 20,23 **** --- 20,24 ---- my $branch=$query->param('branch'); my $printer=$query->param('printer'); + #print $query->header; ($branch) || ($branch=$query->cookie('branch')); ($printer) || ($printer=$query->cookie('printer')); *************** *** 428,432 **** $barcode=''; } ! if ($print eq 'yes'){ my ($borrower, $flags) = getpatroninformation(\%env,$borrowernumber,0); $env{'todaysissues'}=1; --- 429,433 ---- $barcode=''; } ! if ($print eq 'yes' && $borrowernumber ne ''){ my ($borrower, $flags) = getpatroninformation(\%env,$borrowernumber,0); $env{'todaysissues'}=1; *************** *** 440,447 **** --- 441,458 ---- foreach (sort keys %$borrowerissues) { $issues[$i]=$borrowerissues->{$_}; + my $dd=$issues[$i]->{'date_due'}; + #convert to nz style dates + #this should be set with some kinda config variable + my @tempdate=split(/-/,$dd); + $issues[$i]->{'date_due'}="$tempdate[2]/$tempdate[1]/$tempdate[0]"; $i++; } foreach (sort keys %$borroweriss2) { $issues[$i]=$borroweriss2->{$_}; + my $dd=$issues[$i]->{'date_due'}; + #convert to nz style dates + #this should be set with some kinda config variable + my @tempdate=split(/-/,$dd); + $issues[$i]->{'date_due'}="$tempdate[2]/$tempdate[1]/$tempdate[0]"; $i++; } *************** *** 730,740 **** EOF ; ! my $amountold=$flags->{'CHARGES'}->{'message'}; ! my @temp=split(/\$/,$amountold); ! $amountold=$temp[1]; ! print "<input type=hidden name=oldamount value=$amountold>"; if ($flags->{'CHARGES'}){ print "<input type=hidden name=charges value=yes>"; } print <<EOF </form> --- 741,752 ---- EOF ; ! if ($flags->{'CHARGES'}){ print "<input type=hidden name=charges value=yes>"; } + my $amountold=$flags->{'CHARGES'}->{'message'}; + my @temp=split(/\$/,$amountold); + $amountold=$temp[1]; + print "<input type=hidden name=oldamount value=$amountold>"; print <<EOF </form>