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

[Chris Cormack]

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>