From 8b3dfc987073f136665e06bb7b436dfbb1889615 Mon Sep 17 00:00:00 2001 From: oleonard Date: Fri, 29 Oct 2004 14:41:32 +0000 Subject: [PATCH] Adding replacement price to issues loop and a totalprice variable which totals the cost of all items on issue --- koha-tmpl/intranet-tmpl/npl/en/members/moremember.tmpl | 3 +++ members/moremember.pl | 4 ++++ 2 files changed, 7 insertions(+) diff --git a/koha-tmpl/intranet-tmpl/npl/en/members/moremember.tmpl b/koha-tmpl/intranet-tmpl/npl/en/members/moremember.tmpl index 021621bab7..b05f8129ee 100644 --- a/koha-tmpl/intranet-tmpl/npl/en/members/moremember.tmpl +++ b/koha-tmpl/intranet-tmpl/npl/en/members/moremember.tmpl @@ -113,6 +113,7 @@ Due Itemtype + Price Renew Return @@ -128,6 +129,7 @@ --> + ">Reserved @@ -138,6 +140,7 @@ ">Return + Total Replacement Cost: 

diff --git a/members/moremember.pl b/members/moremember.pl index 02491bf6f3..6c997bf082 100755 --- a/members/moremember.pl +++ b/members/moremember.pl @@ -127,10 +127,13 @@ my ($numaccts,$accts,$total)=getboracctrecord('',\%bor); my ($count,$issue)=borrissues($bornum); my $today=ParseDate('today'); my @issuedata; +my $totalprice = 0; for (my $i=0;$i<$count;$i++){ my $datedue=ParseDate($issue->[$i]{'date_due'}); $issue->[$i]{'date_due'} = format_date($issue->[$i]{'date_due'}); my %row = %{$issue->[$i]}; + $totalprice += $issue->[$i]{'replacementprice'}; + $row{'replacementprice'}=$issue->[$i]{'replacementprice'}; if ($datedue < $today){ $row{'red'}=1; #print ""; } @@ -176,6 +179,7 @@ foreach my $reserveline (@$reserves) { $template->param($data); $template->param( bornum => $bornum, + totalprice =>$totalprice, totaldue =>$total, issueloop => \@issuedata, reserveloop => \@reservedata); -- 2.39.5