--- trunk2/lib/WebPAC/jsFind.pm	2004/09/14 21:02:28	445
+++ trunk2/lib/WebPAC/jsFind.pm	2004/10/09 21:47:42	491
@@ -104,14 +104,16 @@
 	}
 	return unless (defined($args->{'words'}));
 
-	my $words = $args->{'words'};
+	my $words = lc($args->{'words'});
 
 	# chop leading and trailing spaces
 	$words =~ s/^\s+//;
 	$words =~ s/\s+$//;
 
+	my @words = split(/\s+/,$words);
+
 	my %usage;
-	foreach (split(/\s+/,$words)) {
+	foreach (@words) {
 		$usage{$_}++;
 	}
 
@@ -121,7 +123,7 @@
 		" path: ",$args->{'path'}
 	);
 
-	foreach my $word (keys %usage) {
+	foreach my $word (@words) {
 
 		$self->tree($args->{'index_name'})->B_search(
 			Key => $word,