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

This commit is contained in:
rangi 2001-02-04 22:25:42 +00:00
parent 866118ff98
commit 3b07c5bf30
2 changed files with 5 additions and 3 deletions

View File

@ -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";

View File

@ -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','')
}