[Koha-cvs] CVS: koha/C4 Print.pm,1.3,1.4
Chris Cormack
rangi at users.sourceforge.net
Wed Jun 19 00:47:01 CEST 2002
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;
More information about the Koha-cvs
mailing list