chris 21 anos atrás
pai
commit
3107a4e0d3
2 arquivos alterados com 4 adições e 2 exclusões
  1. +1
    -1
      C4/Print.pm
  2. +3
    -1
      pay.pl

+ 1
- 1
C4/Print.pm Ver arquivo

@@ -103,7 +103,7 @@ sub printreserve {
print PRINTER "$itemdata->{'author'}";
print PRINTER "\r\n\r\n";
if ($env->{'printtype'} eq "docket"){
print chr(27).char(105);
print chr(27).chr(105);
}
close PRINTER;
#system("lpr /tmp/$file");


+ 3
- 1
pay.pl Ver arquivo

@@ -50,6 +50,8 @@ 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
@@ -61,7 +63,7 @@ print <<printend
<input type=hidden name=bornum value=$bornum>
<input type=hidden name=accountno$i value=$accts->[$i]{'accountno'}>
</td>
<TD>$accts->[$i]{'description'}</td>
<TD>$accts->[$i]{'description'} $accts->[$i]{'title'}</td>
<TD>$accts->[$i]{'accounttype'}</td>
<td>$accts->[$i]{'amount'}</td>
<TD>$accts->[$i]{'amountoutstanding'}</td>


Carregando…
Cancelar
Salvar