[Koha-cvs] CVS: koha/C4 Print.pm,1.8,1.9

[Finlay Thompson]

Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv22265/C4

Modified Files:
	Print.pm 
Log Message:

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


Index: Print.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Print.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** Print.pm	14 Aug 2002 18:12:51 -0000	1.8
--- Print.pm	20 Aug 2002 22:40:12 -0000	1.9
***************
*** 72,114 ****
  }
  
- 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 {
--- 72,75 ----