Browse Source

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

3.0.x
rangi 24 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->{'cardnumber'}\r\n";
print PRINTER "$borrower->{'title'} $borrower->{'initials'} $borrower->{'surname'}\r\n"; print PRINTER "$borrower->{'title'} $borrower->{'initials'} $borrower->{'surname'}\r\n";
while ($items->[$i]){ while ($items->[$i]){
# print $i;
my $itemdata = $items->[$i]; my $itemdata = $items->[$i];
print PRINTER "$itemdata->{'title'}\r\n"; print PRINTER "$i $itemdata->{'title'}\r\n";
print PRINTER "$itemdata->{'barcode'}"; print PRINTER "$itemdata->{'barcode'}";
print PRINTER " "x15; print PRINTER " "x15;
print PRINTER "$itemdata->{'date_due'}\r\n"; print PRINTER "$itemdata->{'date_due'}\r\n";

5
circ/circulation.pl

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

Loading…
Cancel
Save