[Koha-cvs] CVS: koha loadmodules.pl,1.7,1.8

[Paul POULAIN]

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

Modified Files:
	loadmodules.pl 
Log Message:
adding a MARC parameter in systempref ( which is ON or OFF)
the search will be a marc search if MARC=ON
and a standard (v1.2) search if MARC=OFF

Index: loadmodules.pl
===================================================================
RCS file: /cvsroot/koha/koha/loadmodules.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** loadmodules.pl	22 Oct 2002 15:51:25 -0000	1.7
--- loadmodules.pl	16 Jan 2003 10:29:45 -0000	1.8
***************
*** 31,34 ****
--- 31,35 ----
  SWITCH: {
  	if ($module eq 'acquisitions') { acquisitions(); last SWITCH; }
+ 	if ($module eq 'search') { catalogue_search(); last SWITCH; }
  	if ($module eq 'somethingelse') { somethingelse(); last SWITCH; }
  }
***************
*** 51,54 ****
--- 52,63 ----
  }
  
+ sub catalogue_search {
+ 	my $aq_type = C4::Context->preference("marc") || "ON";
+ 	if ($aq_type eq 'ON') {
+ 		print $input->redirect("/cgi-bin/koha/search.marc/search.pl");
+ 	} else {
+ 		print $input ->redirect("/cgi-bin/koha/catalogue-home.pl");
+ 	}
+ }
  
  sub somethingelse {