- print $input->header;
- if ($total ne ''){
- recordpayment(\%env,$bornum,$total);
- }
- my ($numaccts,$accts,$total)=getboracctrecord('',\%bor);
-
- print startpage();
- print startmenu('member');
- print <<printend
- <FONT SIZE=6><em>Pay Fines for $data->{'firstname'} $data->{'surname'}</em></FONT><P>
- <center>
- <p>
- <TABLE CELLSPACING=0 CELLPADDING=5 border=1 >
- <TR VALIGN=TOP>
- <td bgcolor="99cc33" background="/images/background-mem.gif" colspan=4><B>FINES & CHARGES</TD>
- <td bgcolor="99cc33" background="/images/background-mem.gif" colspan=4><B>AMOUNT OWING</TD>
- </TR>
- <form action=/cgi-bin/koha/pay.pl method=post>
- <input type=hidden name=bornum value=$bornum>
-printend
-;
- for (my $i=0;$i<$numaccts;$i++){
- if ($accts->[$i]{'amountoutstanding'} > 0){
- $accts->[$i]{'amount'}+=0.00;
- $accts->[$i]{'amountoutstanding'}+=0.00;
- print <<printend
- <tr VALIGN=TOP >
- <TD><input type=radio name=payfine$i value=no checked>Unpaid
- <input type=radio name=payfine$i value=yes>Pay
- <input type=radio name=payfine$i value=wo>Writeoff
- <input type=hidden name=itemnumber$i value=$accts->[$i]{'itemnumber'}>
- <input type=hidden name=accounttype$i value=$accts->[$i]{'accounttype'}>
- <input type=hidden name=amount$i value=$accts->[$i]{'amount'}>
- <input type=hidden name=out$i value=$accts->[$i]{'amountoutstanding'}>
- <input type=hidden name=bornum$i value=$bornum>
- <input type=hidden name=accountno$i value=$accts->[$i]{'accountno'}>
- </td>
- <TD>$accts->[$i]{'description'} $accts->[$i]{'title'}</td>
- <TD>$accts->[$i]{'accounttype'}</td>
- <td>$accts->[$i]{'amount'}</td>
- <TD>$accts->[$i]{'amountoutstanding'}</td>
-
- </tr>
-printend
-;
- }
- }
- print <<printend
- <tr VALIGN=TOP >
- <TD></td>
- <TD colspan=2><b>Total Due</b></td>
- <TD><b>$total</b></td>
- </tr>
- <tr VALIGN=TOP >
- <TD colspan=5 align=right>
- <INPUT TYPE="image" name="submit" VALUE="pay" height=42 WIDTH=187 BORDER=0 src="/images/pay-fines.gif"></td>
- </tr>
- </form>
- </table>
- <br clear=all>
- <p> </p>
+ my $template = gettemplate("members/pay.tmpl");
+ if ($total ne ''){
+ recordpayment(\%env,$bornum,$total);
+ }
+ my ($numaccts,$accts,$total)=getboracctrecord('',\%bor);