--- trunk/html/swish.cgi 2003/03/18 20:24:57 22
+++ trunk/html/swish.cgi 2003/03/21 21:10:51 23
@@ -41,6 +41,14 @@
$labels{$_->{value}} = x($_->{content});
}
+my $path = param('path'); # limit to this path
+my %path_label;
+my @path_name;
+foreach (@{$config->{paths}->{path}}) {
+ push @path_name,x($_->{limit});
+ $path_label{$_->{limit}} = x($_->{content});
+}
+
if ($config->{charset}) {
print header(-charset=>x($config->{charset}));
} else {
@@ -53,6 +61,10 @@
print textfield('search');
print submit(-value=> x($config->{text}->{submit}));
print checkbox(-name=>'no_affix', -checked=>0, -label=>x($config->{text}->{no_spell})) if ($spelling_alt);
+if (@path_name) {
+ print br,x($config->{text}->{limit});
+ print popup_menu(-name=>'path',-values=>\@path_name,-labels=>\%path_label,-default=>$path);
+}
print end_form,hr;
if (param('search')) {
@@ -95,6 +107,9 @@
$s=~tr/¹©ðÐèÈæƾ®/sSdDcCcCzZ/;
$s=~s/\*\*+/*/g;
+ # limit to some path
+ $s = "swishdocpath=($path) and $s" if ($path);
+
my %params; # optional parametars for swish
my @properties = split(/\s+/,x($config->{properties}));