- 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>
-
-printend
-;
- print endmenu('member');
- print endpage();
+ my $template = gettemplate("members/pay.tmpl");
+ if ($total ne ''){
+ recordpayment(\%env,$bornum,$total);
+ }
+ my ($numaccts,$accts,$total)=getboracctrecord('',\%bor);
+
+ my @loop_pay;
+ for (my $i=0;$i<$numaccts;$i++){
+ if ($accts->[$i]{'amountoutstanding'} > 0){
+ $accts->[$i]{'amount'}+=0.00;
+ $accts->[$i]{'amountoutstanding'}+=0.00;
+ my %line;
+ $line{i}=$i;
+ $line{itemnumber} = $accts->[$i]{'itemnumber'};
+ $line{accounttype} = $accts->[$i]{'accounttype'};
+ $line{amount} = $accts->[$i]{'amount'};
+ $line{amountoutstanding} = $accts->[$i]{'amountoutstanding'};
+ $line{bornum} = $bornum;
+ $line{accountno} = $accts->[$i]{'accountno'};
+ $line{description} = $accts->[$i]{'description'};
+ $line{title} = $accts->[$i]{'title'};
+ push(@loop_pay, \%line);
+ }
+ }
+ $template->param(firstname => $data->{'firstname'},
+ surname => $data->{'surname'},
+ bornum => $bornum,
+ loop_pay => \@loop_pay,
+ total => $total);
+ print "Content-Type: text/html\n\n", $template->output;