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

[Paul POULAIN]

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

Modified Files:
	loadmodules.pl 
Log Message:


Index: loadmodules.pl
===================================================================
RCS file: /cvsroot/koha/koha/loadmodules.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** loadmodules.pl	16 Jan 2003 10:29:45 -0000	1.8
--- loadmodules.pl	23 Jan 2003 12:31:23 -0000	1.9
***************
*** 54,59 ****
  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");
--- 54,61 ----
  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 {
  		print $input ->redirect("/cgi-bin/koha/catalogue-home.pl");