version 1.140, 2002/07/09 17:27:11
|
version 1.141, 2002/07/12 14:36:16
|
Line 318 ENDDOCUMENT
|
Line 318 ENDDOCUMENT
|
' '; |
' '; |
# $scrout.=&simplecheckbox('allversions',$ENV{'form.allversions'}); |
# $scrout.=&simplecheckbox('allversions',$ENV{'form.allversions'}); |
# $scrout.='<font color="#800000">Search historic archives</font>'; |
# $scrout.='<font color="#800000">Search historic archives</font>'; |
|
my $checkbox = &simplecheckbox('related',$ENV{'form.related'}); |
$scrout.=<<END; |
$scrout.=<<END; |
</td><td><a href="/adm/searchcat?reqinterface=advanced">Advanced Search</a></td></tr></table> |
</td><td><a href="/adm/searchcat?reqinterface=advanced">Advanced Search</a></td></tr> |
|
<tr><td>$checkbox use related words</td><td></td></tr> |
|
</table> |
</p> |
</p> |
<p> |
<p> |
<input type="submit" name="basicsubmit" value='SEARCH' /> |
<input type="submit" name="basicsubmit" value='SEARCH' /> |
Line 927 sub parse_basic_search {
|
Line 930 sub parse_basic_search {
|
&output_blank_field_error($r); |
&output_blank_field_error($r); |
return OK; |
return OK; |
} |
} |
|
if ($ENV{'form.related'}) { |
|
my $tmp = $ENV{'form.basicexp'}; |
|
while ($ENV{'form.basicexp'} =~ /(\w+)/cg) { |
|
my $word = $1; |
|
my @Words = &Apache::loncommon::get_related_words($word); |
|
my $replacement = join " OR ", ($word, |
|
($#Words>4? @Words[0..4] : @Words) |
|
); |
|
$tmp =~ s/\b$word\b/ $replacement /g; |
|
} |
|
$ENV{'form.basicexp'} = $tmp; |
|
} |
# Build SQL query string based on form page |
# Build SQL query string based on form page |
my $query=''; |
my $query=''; |
my $concatarg=join('," ",', |
my $concatarg=join('," ",', |