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

diff --git a/C4/Print.pm b/C4/Print.pm
index 40ebc6c..26b3883 100644 (file)
--- 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 5c3acc9..a1b50f3 100755 (executable)
--- 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','')
 
     }