From 8b3dfc987073f136665e06bb7b436dfbb1889615 Mon Sep 17 00:00:00 2001
From: oleonard <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 @@
 		<th>Due</th>
 		<th>Itemtype</th>
 <!-- 		<th>Charge</th> -->
+		<th>Price</th>
 		<th>Renew</th>
 		<th>Return</th>
 	</tr>
@@ -128,6 +129,7 @@
 		<td><!-- TMPL_VAR NAME="date_due" --></td>
 		<td><!-- TMPL_VAR NAME="itemtype" --></td>
 		<!-- <td><!-- TMPL_VAR NAME="charge" --></td> -->
+		<td><!-- TMPL_VAR NAME="replacementprice" --></td>
 		<td>
 		<!-- TMPL_IF name="norenew" -->
 			<a href="/cgi-bin/koha/request.pl?bib=<!-- TMPL_VAR NAME="biblionumber" -->">Reserved</a>
@@ -138,6 +140,7 @@
 		<td><a href="/cgi-bin/koha/circ/returns.pl?barcode=<!-- TMPL_VAR NAME="barcode" -->">Return</a></td>
 	</tr>
 	<!-- /tmpl_loop -->
+	<tfoot><tr><td colspan="3">Total Replacement Cost:</td><td><!-- TMPL_VAR NAME="totalprice" --></td><td colspan="2">&nbsp;</td></tr></tfoot>
 	</table></div><p><input type="submit" class="submit" value="Renew Checked Items" /></p>
 </form>
 
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 "<font color=red>";
 	}
@@ -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