[Koha-cvs] CVS: koha moremember.pl,1.11,1.12

[Chris Cormack]

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv19966

Modified Files:
        moremember.pl 
Log Message:
Fixing syntax error


Index: moremember.pl
===================================================================
RCS file: /cvsroot/koha/koha/moremember.pl,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -r1.11 -r1.12
*** moremember.pl       15 Apr 2002 16:17:21 -0000      1.11
--- moremember.pl       22 May 2002 04:30:44 -0000      1.12
***************
*** 229,233 ****
    <TD>$issue->[$i]{'date_due'}</td>";
    #find the charge for an item
!   my 
($charge,$itemtype)=calc_charges(\%env,$issue->[$i]{'itemnumber'},$bornum);
    print "<TD>$itemtype</td>";
    print "<TD>$charge</td>";
--- 229,233 ----
    <TD>$issue->[$i]{'date_due'}</td>";
    #find the charge for an item
!   my 
($charge,$itemtype)=calc_charges(undef,$issue->[$i]{'itemnumber'},$bornum);
    print "<TD>$itemtype</td>";
    print "<TD>$charge</td>";