[Koha-cvs] CVS: koha/C4 Auth.pm,1.23,1.24 Context.pm,1.11,1.12

[Ambrose Li]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv25478/C4

Modified Files:
        Auth.pm Context.pm 
Log Message:
Use the new C4::Boolean module and the new C4::Auth::boolean_parameter
function to test for boolean values in parameters


Index: Auth.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Auth.pm,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -r1.23 -r1.24
*** Auth.pm     6 Feb 2003 06:13:59 -0000       1.23
--- Auth.pm     6 Feb 2003 06:35:26 -0000       1.24
***************
*** 302,308 ****
        }
      }
!     my $insecure = C4::Context->preference("insecure");
      # finished authentification, now respond
!     if ($loggedin || $authnotrequired ||(defined($insecure) && $insecure eq 
"yes")) {
        # successful login
        unless ($cookie) {
--- 302,308 ----
        }
      }
!     my $insecure = C4::Context->boolean_preference('insecure');
      # finished authentification, now respond
!     if ($loggedin || $authnotrequired || (defined($insecure) && $insecure)) {
        # successful login
        unless ($cookie) {

Index: Context.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Context.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -r1.11 -r1.12
*** Context.pm  20 Jan 2003 07:35:31 -0000      1.11
--- Context.pm  6 Feb 2003 06:35:26 -0000       1.12
***************
*** 21,24 ****
--- 21,25 ----
  use strict;
  use DBI;
+ use C4::Boolean;
  
  use vars qw($VERSION $AUTOLOAD),
***************
*** 324,327 ****
--- 325,335 ----
  EOT
        return $retval;
+ }
+ 
+ sub boolean_preference ($) {
+       my $self = shift;
+       my $var = shift;                # The system preference to return
+       my $it = preference($var);
+       return defined($it)? C4::Boolean::is_true($it): undef;
  }