Power Searchでチェックボックスから検索(改造)
初めまして質問させて頂きます。
Power Search Ver.1.11(配布元 ttp://dream.lib.net/room/cgi/e_ps.html)を今回設置しようと試みたのですが、検索を行う際、検索文字列を入力せず、チェックボックスのチェックのみで動作するように指定することが出きずに躓いています。
「ps_search.cgi」の275行からの内容を以下のように変更して見たのですが、500エラーが出てしまいます。(現在はエラーが出る直前の状態に設置アドレス先のCGIは戻してあります)
改造の内容で恐縮なのですが、もし宜しければお知恵を拝借いただけないでしょうか。
設置url http://faq.qp.land.to/search/
エラーが出たcgi全文 http://faq.qp.land.to/search/pwsrh.html
------------------------------------------------
sub search{
#通常検索
my @terms = split(/ /,lc($word));
my (@site,$catlimit,$flag,$data,$a1);
if ($metasearch eq "a"){
$catlimit = "<c>$cat[0]<";
}
elsif ($metasearch eq "b"){
$catlimit = "<c>$cat[0]";
}
------------------------------------------------
上の部分を、
以下のように変更しました。
------------------------------------------------
sub search{
#通常検索
if ($word eq ""){
my @terms = /;
}
else{
my @terms = split(/ /,lc($word));
}
my (@site,$catlimit,$flag,$data,$a1);
if ($metasearch eq "a"){
$catlimit = "<c>$cat[0]<";
}
elsif ($metasearch eq "b"){
$catlimit = "<c>$cat[0]";
}
------------------------------------------------
他に、基本から変更した部分は以下となっています。
86行目
変更前 if ($word eq ""){&jump($toppage);}
変更後 if ($word eq ""){&search;}
どうか宜しくお願い致します。