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);