[Koha-cvs] CVS: koha/members moremember.pl,1.3,1.4

[Owen Leonard]

Update of /cvsroot/koha/koha/members
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29204/members

Modified Files:
	moremember.pl 
Log Message:
Adding replacement price to issues loop and a totalprice variable which totals the cost of all items on issue

Index: moremember.pl
===================================================================
RCS file: /cvsroot/koha/koha/members/moremember.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** moremember.pl	26 May 2004 21:47:14 -0000	1.3
--- moremember.pl	29 Oct 2004 14:41:32 -0000	1.4
***************
*** 128,135 ****
--- 128,138 ----
  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>";
***************
*** 177,180 ****
--- 180,184 ----
  $template->param(
  		 bornum          => $bornum,
+ 		 totalprice =>$totalprice,
  		 totaldue =>$total,
  		 issueloop       => \@issuedata,