From 3b07c5bf30e1243f93f9e52e8764c8eaf0a9cbaf Mon Sep 17 00:00:00 2001 From: rangi Date: Sun, 4 Feb 2001 22:25:42 +0000 Subject: [PATCH] Fixing printing error, now is printing all of the days issues for borrower --- C4/Print.pm | 3 ++- circ/circulation.pl | 5 +++-- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/C4/Print.pm b/C4/Print.pm index 40ebc6c136..26b388317e 100644 --- a/C4/Print.pm +++ b/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"; diff --git a/circ/circulation.pl b/circ/circulation.pl index 5c3acc9702..a1b50f3e72 100755 --- a/circ/circulation.pl +++ b/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','') } -- 2.39.5