[Koha-cvs] CVS: koha/C4 Print.pm,1.3,1.4

[Chris Cormack]

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

Modified Files:
        Print.pm 
Log Message:
issues printing issue slips again


Index: Print.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Print.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** Print.pm    4 Feb 2001 22:25:42 -0000       1.3
--- Print.pm    18 Jun 2002 22:46:59 -0000      1.4
***************
*** 56,63 ****
    my $file=time;
    my $queue = $env->{'queue'};
!   if ($queue eq "") {
      open (PRINTER,">/tmp/kohaiss");
    } else {  
!     open(PRINTER, "| lpr -P $queue") or die "Couldn't write to queue:$!\n";
    }  
  #  print $queue;
--- 56,63 ----
    my $file=time;
    my $queue = $env->{'queue'};
!   if ($queue eq "" || $queue eq 'nulllp') {
      open (PRINTER,">/tmp/kohaiss");
    } else {  
!     open(PRINTER, "| lpr -P $queue") or die "Couldn't write to 
queue:$queue!\n";
    }  
  #  print $queue;