From a913fc3bca627fcc9ccba659b0ee2915a3325846 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Thu, 16 Jan 2003 10:29:45 +0000
Subject: [PATCH] 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

---
 koha-tmpl/intranet-tmpl/default/en/intranet-main.tmpl | 2 +-
 loadmodules.pl                                        | 9 +++++++++
 updater/updatedatabase                                | 6 ++++++
 3 files changed, 16 insertions(+), 1 deletion(-)

diff --git a/koha-tmpl/intranet-tmpl/default/en/intranet-main.tmpl b/koha-tmpl/intranet-tmpl/default/en/intranet-main.tmpl
index a84c631a28..9a617835b0 100644
--- a/koha-tmpl/intranet-tmpl/default/en/intranet-main.tmpl
+++ b/koha-tmpl/intranet-tmpl/default/en/intranet-main.tmpl
@@ -76,7 +76,7 @@ circulation.src ="/images/front-mouseover-circulation.gif"
 			<td background="" colspan=5><img src="/images/holder.gif"
 			width=1 height=1 hspace=0 vspace=0></td>
 
-			<td background="" colspan=5><a href="/cgi-bin/koha/catalogue-home.pl" onMouseOver="if(document.images)document.search.src='/images/front-mouseover-search.gif'" 		onMouseOut="if(document.images)document.search.src='/images/front-search.gif'"><img src="/images/front-search.gif" width=320 	height=37 name="search"
+			<td background="" colspan=5><a href="/cgi-bin/koha/loadmodules.pl?module=search" onMouseOver="if(document.images)document.search.src='/images/front-mouseover-search.gif'" 		onMouseOut="if(document.images)document.search.src='/images/front-search.gif'"><img src="/images/front-search.gif" width=320 	height=37 name="search"
 			hspace=0 vspace=0 border=0></a></td>
 		</tr>
 		<FORM ACTION="/cgi-bin/koha/search.pl" method=post>
diff --git a/loadmodules.pl b/loadmodules.pl
index 0eb085c1a9..ed51f057ca 100755
--- a/loadmodules.pl
+++ b/loadmodules.pl
@@ -30,6 +30,7 @@ my $module=$input->param('module');
 
 SWITCH: {
 	if ($module eq 'acquisitions') { acquisitions(); last SWITCH; }
+	if ($module eq 'search') { catalogue_search(); last SWITCH; }
 	if ($module eq 'somethingelse') { somethingelse(); last SWITCH; }
 }
 
@@ -50,6 +51,14 @@ sub acquisitions {
 	}
 }
 
+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 {
 # just an example subroutine
diff --git a/updater/updatedatabase b/updater/updatedatabase
index 9d303dea1c..6a2a15ce73 100755
--- a/updater/updatedatabase
+++ b/updater/updatedatabase
@@ -265,6 +265,7 @@ my %tabledata=(
     	{ uniquefieldrequired => 'variable', variable => 'opaclanguages', value => 'en', explanation => 'languages' },
     	{ uniquefieldrequired => 'variable', variable => 'opacthemes', value => 'default', explanation => 'theme' },
     	{ uniquefieldrequired => 'variable', variable => 'timeout', value => '12000000', explanation => 'login timeout' },
+    	{ uniquefieldrequired => 'variable', variable => 'marc', value => 'ON', explanation => 'MARC support (ON or OFF)' },
     ],
 
 );
@@ -530,6 +531,11 @@ $sth->finish;
 exit;
 
 # $Log$
+# Revision 1.32  2003/01/16 10:29:45  tipaul
+# 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
+#
 # Revision 1.31  2003/01/06 13:32:43  tipaul
 # *** empty log message ***
 #
-- 
2.39.2