[Koha-cvs] CVS: koha/C4 Print.pm,1.14,1.15
Steve Tonnesen
tonnesen at users.sourceforge.net
Wed Jun 11 20:44:03 CEST 2003
Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv18308
Modified Files:
Print.pm
Log Message:
Changing "preference()" calls to "boolean_preference()" calls
Index: Print.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Print.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -r1.14 -r1.15
*** Print.pm 28 Oct 2002 20:02:59 -0000 1.14
--- Print.pm 11 Jun 2003 18:44:01 -0000 1.15
***************
*** 76,80 ****
my ($env,$items,$borrower)=@_;
! (return) unless (C4::Context->preference('printcirculationslips'));
my $file=time; # FIXME - Not used
my $queue = $env->{'queue'};
--- 76,80 ----
my ($env,$items,$borrower)=@_;
! (return) unless (C4::Context->boolean_preference('printcirculationslips'));
my $file=time; # FIXME - Not used
my $queue = $env->{'queue'};
***************
*** 132,136 ****
my $file=time;
my $printer = $env->{'printer'};
! (return) unless (C4::Context->preference('printreserveslips'));
if ($printer eq "" || $printer eq 'nulllp') {
open (PRINTER,">>/tmp/kohares");
--- 132,136 ----
my $file=time;
my $printer = $env->{'printer'};
! (return) unless (C4::Context->boolean_preference('printreserveslips'));
if ($printer eq "" || $printer eq 'nulllp') {
open (PRINTER,">>/tmp/kohares");
***************
*** 185,189 ****
my($env, $slip)=@_;
my $printer = $env->{'printer'};
! (return) unless (C4::Context->preference('printcirculationslips'));
if ($printer eq "" || $printer eq 'nulllp') {
open (PRINTER,">/tmp/kohares");
--- 185,189 ----
my($env, $slip)=@_;
my $printer = $env->{'printer'};
! (return) unless (C4::Context->boolean_preference('printcirculationslips'));
if ($printer eq "" || $printer eq 'nulllp') {
open (PRINTER,">/tmp/kohares");
More information about the Koha-cvs
mailing list