[Koha-cvs] CVS: koha/opac opac-user.pl,1.1.2.1,1.1.2.2
Finlay Thompson
finlayt at users.sourceforge.net
Tue Oct 1 12:56:11 CEST 2002
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 => \@waiting);
+ $template->param(waiting_count => $wcount);
print "Content-Type: text/html\n\n", $template->output;
More information about the Koha-cvs
mailing list