[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha moremember.pl,1.33,1.33.2.1
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha moremember.pl,1.33,1.33.2.1 |
Date: |
Mon, 22 Dec 2003 02:40:57 -0800 |
Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1:/tmp/cvs-serv13766
Modified Files:
Tag: rel_2_0
moremember.pl
Log Message:
fix for #537 : in borrower screen, the "fine & debts" now shows only amount due
if >0, "nothing due" if borrower has no debts.
Index: moremember.pl
===================================================================
RCS file: /cvsroot/koha/koha/moremember.pl,v
retrieving revision 1.33
retrieving revision 1.33.2.1
diff -C2 -r1.33 -r1.33.2.1
*** moremember.pl 1 Jul 2003 10:31:30 -0000 1.33
--- moremember.pl 22 Dec 2003 10:40:55 -0000 1.33.2.1
***************
*** 124,162 ****
$data->{'categorycode'} = &getborrowercategory($data->{'categorycode'});
- # FIXME
- # it looks like $numaccts is a temp variable and that the
- # for (my $i;$i<$numaccts;$i++)
- # can be turned into a foreach loop instead
- #
my ($numaccts,$accts,$total)=getboracctrecord('',\%bor);
- #if ($numaccts > 10){
- # $numaccts=10;
- #}
- my @accountdata;
- for (my$i=0;$i<$numaccts;$i++){
- my $amount= $accts->[$i]{'amount'} + 0.00;
- my $amount2= $accts->[$i]{'amountoutstanding'} + 0.00;
- my %row = %$accts->[$i];
- if ($amount2 != 0){
- my $item=" ";
- $row{'date'} = format_date($accts->[$i]{'date'});
-
- if ($accts->[$i]{'accounttype'} ne 'Res'){
- #get item data
- #$item=
- }
-
- # FIXME
- # why set this variable if it's not going to be used?
- #
- my $env;
- if ($accts->[$i]{'accounttype'} ne 'Res'){
- my
$iteminfo=C4::Circulation::Circ2::getiteminformation($env,$accts->[$i]->{'itemnumber'},'');
- # FIXME, seems to me $iteminfo gets not defined
- %row = (%row , %$iteminfo) if $iteminfo;
- }
- }
- push (@accountdata, \%row);
- }
my ($count,$issue)=borrissues($bornum);
--- 124,128 ----
***************
*** 211,215 ****
$template->param(
bornum => $bornum,
! accountloop => address@hidden,
issueloop => address@hidden,
reserveloop => address@hidden);
--- 177,181 ----
$template->param(
bornum => $bornum,
! totaldue =>$total,
issueloop => address@hidden,
reserveloop => address@hidden);
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha moremember.pl,1.33,1.33.2.1,
Paul POULAIN <=