[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       => address@hidden,