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>
