Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv32557 Modified Files: search.pl Log Message: Changing the front page search of the intranet site to just be a keyword search Index: search.pl =================================================================== RCS file: /cvsroot/koha/koha/search.pl,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -r1.1.1.1 -r1.2 *** search.pl 2000/12/19 23:45:53 1.1.1.1 --- search.pl 2001/02/11 22:38:17 1.2 *************** *** 41,44 **** --- 41,45 ---- $search{'keyword'}=$keyword; $search{'front'}=validate($input->param('front')); + my $author=validate($input->param('author')); $search{'author'}=$author; *************** *** 86,90 **** ($count,@results)=&KeywordSearch(\$blah,'intra',\%search,$num,$offset); } elsif ($search{'front'} ne '') { ! ($count,@results)&FrontSearch(\$blah,'intra',\%search,$num,$offset); # print "hey"; }elsif ($title ne '' || $author ne '' || $dewey ne '' || $class ne '') { --- 87,92 ---- ($count,@results)=&KeywordSearch(\$blah,'intra',\%search,$num,$offset); } elsif ($search{'front'} ne '') { ! $search{'keyword'}=$search{'front'}; ! ($count,@results)&KeywordSearch(\$blah,'intra',\%search,$num,$offset); # print "hey"; }elsif ($title ne '' || $author ne '' || $dewey ne '' || $class ne '') {