[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/members moremember.pl,1.3,1.4
From: |
Owen Leonard |
Subject: |
[Koha-cvs] CVS: koha/members moremember.pl,1.3,1.4 |
Date: |
Fri, 29 Oct 2004 07:41:35 -0700 |
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,
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/members moremember.pl,1.3,1.4,
Owen Leonard <=
- Prev by Date:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/npl/en/authorities auth_finder.tmpl,NONE,1.1 authorities-home.tmpl,NONE,1.1 authorities.tmpl,NONE,1.1 blinddetail-biblio-search.tmpl,NONE,1.1 detail-biblio-search.tmpl,NONE,1.1 detail.tmpl,NONE,1.1 searchresultlist-auth.tmpl,NONE,1.1 searchresultlist.tmpl,NONE,1.1
- Next by Date:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/npl/en/members moremember.tmpl,1.4,1.5
- Previous by thread:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/npl/en/authorities auth_finder.tmpl,NONE,1.1 authorities-home.tmpl,NONE,1.1 authorities.tmpl,NONE,1.1 blinddetail-biblio-search.tmpl,NONE,1.1 detail-biblio-search.tmpl,NONE,1.1 detail.tmpl,NONE,1.1 searchresultlist-auth.tmpl,NONE,1.1 searchresultlist.tmpl,NONE,1.1
- Next by thread:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/npl/en/members moremember.tmpl,1.4,1.5
- Index(es):