Browse Source

Fixing printing error, now is printing all of the days issues for borrower

3.0.x
rangi 21 years ago
parent
commit
3b07c5bf30
  1. 3
      C4/Print.pm
  2. 5
      circ/circulation.pl

3
C4/Print.pm

@ -72,8 +72,9 @@ sub remoteprint {
print PRINTER "$borrower->{'cardnumber'}\r\n";
print PRINTER "$borrower->{'title'} $borrower->{'initials'} $borrower->{'surname'}\r\n";
while ($items->[$i]){
# print $i;
my $itemdata = $items->[$i];
print PRINTER "$itemdata->{'title'}\r\n";
print PRINTER "$i $itemdata->{'title'}\r\n";
print PRINTER "$itemdata->{'barcode'}";
print PRINTER " "x15;
print PRINTER "$itemdata->{'date_due'}\r\n";

5
circ/circulation.pl

@ -30,7 +30,7 @@ if ($query->param('selectnewbranchprinter')) {
}
$env{'branchcode'}=$branch;
$env{'printer'}=$printer;
$env{'queue'}=$printer;
#$env{'queue'}=$printer;
my $branchcount=0;
my $printercount=0;
my $branchoptions;
@ -369,7 +369,8 @@ sub issues {
#print $i;
}
remoteprint(\%env,$issues,$borrower);
# print $i;
remoteprint(\%env,\@issues,$borrower);
$query->param('borrnumber','')
}

Loading…
Cancel
Save