[Koha-cvs] CVS: koha/opac opac-user.pl,1.1.2.1,1.1.2.2

[Finlay Thompson]

Update of /cvsroot/koha/koha/opac
In directory usw-pr-cvs1:/tmp/cvs-serv19736/opac

Modified Files:
      Tag: rel-1-2
        opac-user.pl 
Log Message:

Added reserves and account.


Index: opac-user.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/Attic/opac-user.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -C2 -r1.1.2.1 -r1.1.2.2
*** opac-user.pl        1 Oct 2002 07:11:12 -0000       1.1.2.1
--- opac-user.pl        1 Oct 2002 10:56:08 -0000       1.1.2.2
***************
*** 26,29 ****
--- 26,37 ----
  $borr->{'ethnicity'}    = fixEthnicity($borr->{'ethnicity'});
  
+ if ($borr->{'amountoutstanding'} > 5) {
+     $borr->{'amountoverfive'} = 1;
+ } else {
+     $borr->{'amountoverfive'} = 0;
+ }
+ 
+ $borr->{'amountoutstanding'} = sprintf "\$%.02f", 
$borr->{'amountoutstanding'};
+ 
  my @bordat;
  $bordat[0] = $borr;
***************
*** 58,62 ****
--- 66,88 ----
  $template->param(issues_count => $count); 
  
+ # now the reserved items....
+ my ($rcount, $reserves) = FindReserves(undef, $borrowernumber);
+ 
+ $template->param(RESERVES => $reserves);
+ $template->param(reserves_count => $rcount);
+ 
+ my $branches = getbranches();
+ my @waiting;
+ my $wcount = 0;
+ foreach my $res (@$reserves) {
+     if ($res->{'itemnumber'}) {
+       $res->{'branch'} = $branches->{$res->{'branchcode'}}->{'branchname'};
+       push @waiting, $res;
+       $wcount++;
+     }
+ }
  
+ $template->param(WAITING => address@hidden);
+ $template->param(waiting_count => $wcount);
  
  print "Content-Type: text/html\n\n", $template->output;