[Koha-cvs] CVS: koha/C4 Print.pm,1.14,1.15

[Steve Tonnesen]

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)address@hidden;
  
!   (return) unless (C4::Context->preference('printcirculationslips'));
    my $file=time;              # FIXME - Not used
    my $queue = $env->{'queue'};
--- 76,80 ----
    my ($env,$items,$borrower)address@hidden;
  
!   (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)address@hidden;
    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)address@hidden;
    my $printer = $env->{'printer'};
!   (return) unless (C4::Context->boolean_preference('printcirculationslips'));
    if ($printer eq "" || $printer eq 'nulllp') {
      open (PRINTER,">/tmp/kohares");