[Koha-cvs] CVS: koha/C4 Print.pm,1.5,1.6

[Finlay Thompson]

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

Modified Files:
	Print.pm 
Log Message:

reactivated the printreserve method that is used to print a slip when a reserved book is returned. this is used in /circ/returns.pl 


Index: Print.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Print.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** Print.pm	20 Jun 2002 18:56:52 -0000	1.5
--- Print.pm	23 Jul 2002 03:32:42 -0000	1.6
***************
*** 55,83 ****
  
  sub printreserve {
!   my($env,$resrec,$rbordata,$itemdata)=@_;
    my $file=time;
!   my $queue = $env->{'queue'};
!   #if ($queue eq "") {
      open (PRINTER,">/tmp/kohares");
!   #} else {
!   #  open (PRINTER, "| lpr -P $queue") or die "Couldn't write to queue:$!\n";
!   #}  
!   print PRINTER "Collect at $resrec->{'branchcode'}\r\n\r\n";
!   print PRINTER "$rbordata->{'surname'}; $rbordata->{'firstname'}\r\n";
!   print PRINTER "$rbordata->{'cardnumber'}\r\n";
!   print PRINTER "Phone: $rbordata->{'phone'}\r\n";
!   print PRINTER "$rbordata->{'streetaddress'}\r\n";
!   print PRINTER "$rbordata->{'suburb'}\r\n";
!   print PRINTER "$rbordata->{'town'}\r\n";   
!   print PRINTER "$rbordata->{'emailaddress'}\r\n\r\n";
    print PRINTER "$itemdata->{'barcode'}\r\n";
    print PRINTER "$itemdata->{'title'}\r\n";
    print PRINTER "$itemdata->{'author'}";
    print PRINTER "\r\n\r\n\r\n\r\n\r\n\r\n\r\n";
-   if ($env->{'printtype'} eq "docket"){ 
-     #print chr(27).char(105);
-   }  
    close PRINTER;
-   #system("lpr /tmp/$file"); 
  }
  END { }       # module clean-up code here (global destructor)
--- 55,79 ----
  
  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";
!   }  
!   print PRINTER "Collect at $branchname \r\n\r\n";
!   print PRINTER "$bordata->{'surname'}; $bordata->{'firstname'}\r\n";
!   print PRINTER "$bordata->{'cardnumber'}\r\n";
!   print PRINTER "Phone: $bordata->{'phone'}\r\n";
!   print PRINTER "$bordata->{'streetaddress'}\r\n";
!   print PRINTER "$bordata->{'suburb'}\r\n";
!   print PRINTER "$bordata->{'town'}\r\n";   
!   print PRINTER "$bordata->{'emailaddress'}\r\n\r\n";
    print PRINTER "$itemdata->{'barcode'}\r\n";
    print PRINTER "$itemdata->{'title'}\r\n";
    print PRINTER "$itemdata->{'author'}";
    print PRINTER "\r\n\r\n\r\n\r\n\r\n\r\n\r\n";
    close PRINTER;
  }
  END { }       # module clean-up code here (global destructor)