From b195ac3625dc5a6cf6e25b44215b6b81d2291197 Mon Sep 17 00:00:00 2001
From: finlayt <finlayt>
Date: Tue, 20 Aug 2002 22:40:12 +0000
Subject: [PATCH] removed the printreserve routine. It has been replaced by
 printslip.

---
 C4/Print.pm | 39 ---------------------------------------
 1 file changed, 39 deletions(-)

diff --git a/C4/Print.pm b/C4/Print.pm
index 838d2d0ccf..4ff242cecb 100644
--- a/C4/Print.pm
+++ b/C4/Print.pm
@@ -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)=@_;
-- 
2.39.5