--- trunk/html/FormatResult.pm	2004/09/01 14:12:57	90
+++ trunk/html/FormatResult.pm	2005/07/09 13:14:25	107
@@ -106,7 +106,7 @@
 	my @words = sort { length($b) <=> length($a) } @{$words_ref};
 
 	# colors to highlite
-	my @colors = qw{#ffff66 #a0ffff #99ff99 #ff9999 #ff66ff};
+	my @colors = ('#ffff66','#a0ffff','#99ff99','#ff9999','#ff66ff');
 
 	# color offset
 	my $i = 0;
@@ -114,10 +114,10 @@
  	foreach my $w (@words) {
 		if ($w =~ m/ARRAY/) {
 			foreach my $ww (sort { length($b) <=> length($a) } @{$w}) {
-				$$snip_ref =~ s,(\b\Q$ww\E),<span style="background: $colors[$i]; color:black;">$1</span>,gsi;
+				$$snip_ref =~ s,(\b\Q$ww\E\w*),<span style="background: $colors[$i]; color:black;">$1</span>,gsi;
 			}
 		} else {
-			$$snip_ref =~ s,(\b\Q$w\E),<span style="background: $colors[$i]; color:black;">$1</span>,gsi;
+			$$snip_ref =~ s,(\b\Q$w\E\w*),<span style="background: $colors[$i]; color:black;">$1</span>,gsi;
 		}
 		$i++;
 		$i = 0 if ($i > $#colors);