[Koha-cvs] CVS: koha/C4 Print.pm,1.3.2.1,1.3.2.2

[Steve Tonnesen]

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

Modified Files:
      Tag: rel-1-2
        Print.pm 
Log Message:
Cosmetic changes.  Now identical to copy in main.


Index: Print.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Print.pm,v
retrieving revision 1.3.2.1
retrieving revision 1.3.2.2
diff -C2 -r1.3.2.1 -r1.3.2.2
*** Print.pm    25 Apr 2002 21:59:55 -0000      1.3.2.1
--- Print.pm    20 Jun 2002 20:30:06 -0000      1.3.2.2
***************
*** 21,28 ****
    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;
--- 21,28 ----
    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;