[Koha-cvs] CVS: koha loadmodules.pl,1.9,1.10

[Ambrose Li]

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

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


Index: loadmodules.pl
===================================================================
RCS file: /cvsroot/koha/koha/loadmodules.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -r1.9 -r1.10
*** loadmodules.pl      23 Jan 2003 12:31:23 -0000      1.9
--- loadmodules.pl      6 Feb 2003 06:38:41 -0000       1.10
***************
*** 53,60 ****
  
  sub catalogue_search {
!       my $aq_type = C4::Context->preference("marc") || "ON";
        my $query = new CGI;
        my $type = $query->param('type');
!       if ($aq_type eq 'ON') {
                print 
$input->redirect("/cgi-bin/koha/search.marc/search.pl?type=$type");
        } else {
--- 53,61 ----
  
  sub catalogue_search {
!       my $marc_p = C4::Context->boolean_preference("marc");
!       $marc_p = 1 unless defined $aq_type;
        my $query = new CGI;
        my $type = $query->param('type');
!       if ($marc_p) {
                print 
$input->redirect("/cgi-bin/koha/search.marc/search.pl?type=$type");
        } else {