[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 {