Change to issues print

This commit is contained in:
olwen 2000-01-26 07:54:40 +00:00
parent 45c3b2e0f5
commit 244d203dd6

View file

@ -71,7 +71,7 @@ sub remoteprint {
print PRINTER "Fax: 367-9218\r\n";
print PRINTER "Email: renewals\@library.org.nz\r\n\r\n\r\n";
print PRINTER "$borrower->{'cardnumber'}\r\n";
print PRINTER "$borrower->{'firstname'} $borrower->{'surname'}\r\n";
print PRINTER "$borrower->{'title'} $borrower->{'initials'} $borrower->{'surname'}\r\n";
while ($items->[$i]){
my $itemdata = $items->[$i];
print PRINTER "$itemdata->{'title'}\r\n";