From 17ab6b0b6820a1759863f6f609481629cdc90e44 Mon Sep 17 00:00:00 2001
From: rangi <rangi>
Date: Sun, 11 Feb 2001 22:38:17 +0000
Subject: [PATCH] Changing the front page search of the intranet site to just
 be a keyword search

---
 search.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/search.pl b/search.pl
index 9ab5bcfb7e..302bd4c1ef 100755
--- a/search.pl
+++ b/search.pl
@@ -40,6 +40,7 @@ $search{'title'}=$title;
 my $keyword=validate($input->param('keyword'));
 $search{'keyword'}=$keyword;
 $search{'front'}=validate($input->param('front'));
+
 my $author=validate($input->param('author'));
 $search{'author'}=$author;
 my $subject=validate($input->param('subject'));
@@ -85,7 +86,8 @@ if ($itemnumber ne '' || $isbn ne ''){
 #      print "hey";
       ($count,@results)=&KeywordSearch(\$blah,'intra',\%search,$num,$offset);
     } elsif ($search{'front'} ne '') {
-    ($count,@results)&FrontSearch(\$blah,'intra',\%search,$num,$offset);
+     $search{'keyword'}=$search{'front'};
+    ($count,@results)&KeywordSearch(\$blah,'intra',\%search,$num,$offset);
 #    print "hey";
     }elsif ($title ne '' || $author ne '' || $dewey ne '' || $class ne '') {
       ($count,@results)=&CatSearch(\$blah,'loose',\%search,$num,$offset);
-- 
2.39.2