Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

removed the printreserve routine. It has been replaced by printslip.

Browse source
This commit is contained in:
finlayt 2002-08-20 22:40:12 +00:00
parent 7eab6cbfda
commit b195ac3625
1 changed files with 0 additions and 39 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
C4/Print.pm
View file

@ -71,45 +71,6 @@ sub remoteprint {
#system("lpr /tmp/$file");
}
sub printreserve {
my($env, $branchname, $bordata, $itemdata)=@_;
my $file=time;
my $printer = $env->{'printer'};
if ($printer eq "" || $printer eq 'nulllp') {
open (PRINTER,">>/tmp/kohares");
} else {
open (PRINTER, "| lpr -P $printer") or die "Couldn't write to queue:$!\n";
}
my @da = localtime(time());
my $todaysdate = "$da[2]:$da[1] $da[3]/$da[4]/$da[5]";
#(1900+$datearr[5]).sprintf ("%0.2d", ($datearr[4]+1)).sprintf ("%0.2d", $datearr[3]);
my $slip = <<"EOF";
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Date: $todaysdate;
ITEM RESERVED:
$itemdata->{'title'} ($itemdata->{'author'})
barcode: $itemdata->{'barcode'}
COLLECT AT: $branchname
BORROWER:
$bordata->{'surname'}, $bordata->{'firstname'}
card number: $bordata->{'cardnumber'}
Phone: $bordata->{'phone'}
$bordata->{'streetaddress'}
$bordata->{'suburb'}
$bordata->{'town'}
$bordata->{'emailaddress'}
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
EOF
print PRINTER $slip;
close PRINTER;
return $slip;
}
sub printslip {
my($env, $slip)=@_;