[Koha-cvs] CVS: koha moremember.pl,1.33,1.33.2.1
Paul POULAIN
tipaul at users.sourceforge.net
Mon Dec 22 11:40:57 CET 2003
- Previous message: [Koha-cvs] CVS: koha/koha-tmpl/opac-tmpl/default/en opac-detail.tmpl,1.11,1.11.2.1 opac-moredetail.tmpl,1.7,1.7.2.1 opac-reserve.tmpl,1.15,1.15.2.1 opac-searchresults.tmpl,1.15.2.1,1.15.2.2 opac-search.tmpl,1.14,1.14.2.1 opac-user.tmpl,1.14,1.14.2.1 opac-userupdate.tmpl,1.12,1.12.2.1 subject.tmpl,1.4,1.4.2.1
- Next message: [Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/default/en/members moremember.tmpl,1.23,1.23.2.1
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
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 => \@accountdata,
issueloop => \@issuedata,
reserveloop => \@reservedata);
--- 177,181 ----
$template->param(
bornum => $bornum,
! totaldue =>$total,
issueloop => \@issuedata,
reserveloop => \@reservedata);
- Previous message: [Koha-cvs] CVS: koha/koha-tmpl/opac-tmpl/default/en opac-detail.tmpl,1.11,1.11.2.1 opac-moredetail.tmpl,1.7,1.7.2.1 opac-reserve.tmpl,1.15,1.15.2.1 opac-searchresults.tmpl,1.15.2.1,1.15.2.2 opac-search.tmpl,1.14,1.14.2.1 opac-user.tmpl,1.14,1.14.2.1 opac-userupdate.tmpl,1.12,1.12.2.1 subject.tmpl,1.4,1.4.2.1
- Next message: [Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/default/en/members moremember.tmpl,1.23,1.23.2.1
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Koha-cvs
mailing list