[Koha-cvs] CVS: koha loadmodules.pl,1.18,1.19

[Paul POULAIN]

Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3680

Modified Files:
	loadmodules.pl 
Log Message:
improving behaviour when MARC=OFF

Index: loadmodules.pl
===================================================================
RCS file: /cvsroot/koha/koha/loadmodules.pl,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -r1.18 -r1.19
*** loadmodules.pl	18 Jul 2003 03:04:41 -0000	1.18
--- loadmodules.pl	19 Nov 2004 16:41:49 -0000	1.19
***************
*** 69,85 ****
  	my $query = new CGI;
  	my $type = $query->param('type');
! 	if ($keyword) {
! 		if ($marc_p) {
  			print $input->redirect("/cgi-bin/koha/search.marc/search.pl?type=$type");
! 		} else {
! 			print $input ->redirect("/cgi-bin/koha/search.pl?keyword=$keyword");
! 		}
! 	} else {
! 		if ($marc_p) {
! 			print $input->redirect("/cgi-bin/koha/search.marc/search.pl?type=$type");
! 		} else {
! 			print $input ->redirect("/cgi-bin/koha/catalogue-home.pl");
! 		}
! 	}
  }
  
--- 69,85 ----
  	my $query = new CGI;
  	my $type = $query->param('type');
! # 	if ($keyword) {
! # 		if ($marc_p) {
! # 			print $input->redirect("/cgi-bin/koha/search.marc/search.pl?type=$type");
! # 		} else {
! # 			print $input ->redirect("/cgi-bin/koha/search.pl?keyword=$keyword");
! # 		}
! # 	} else {
! # 		if ($marc_p) {
  			print $input->redirect("/cgi-bin/koha/search.marc/search.pl?type=$type");
! # 		} else {
! # 			print $input ->redirect("/cgi-bin/koha/catalogue-home.pl");
! # 		}
! # 	}
  }