--- trunk2/all2all.pl	2004/09/21 20:43:43	460
+++ trunk2/all2all.pl	2004/09/23 23:17:42	466
@@ -115,11 +115,19 @@
 	foreach my $ds (@ds) {
 		next if (! $ds->{'swish'});
 
+		# strip all non word characters from beginning or end
+		# of word
+		my $words = join(" ",@{$ds->{'swish'}});
+		$words =~ s/^\W+//;
+		$words =~ s/\W*\s+\W*/ /g;
+		$words =~ s/\W+$//;
+
 		$index->insert(
 			index_name => $ds->{'tag'},
-			path => $f,
+			#path => $f,
+			path => $webpac->mfn,
 			headline => $headline,
-			words => join(" ",@{$ds->{'swish'}})
+			words => $words,
 		);
 	}