# This is where we pass it in to be highlighted...
# <%Plugins::Keyword_Highlighter::Highlight_String($FieldName,$query)%>
sub Highlight_String {

# grab our options...
my $value = $_[0];
my $query = $_[1];
my @words = split / /, $query;

my @colors = qw(FFFF99 FFCC99 FFCCCC CC99FF CCFF99 CC9900 CC6699 CCFFCC 999966 CC6699);

my $count = 0;
foreach (@words) {

if (lc($_) eq 'and') { next; }

my $formatted_query_ucf = ucfirst(lc($_));
my $formatted_query_uc = uc(lc($_));
my $formatted_query_lc = lc($_);

# now lets make the pretty colours!
my $highlight_string = qq|style="background-color: #| . $colors[$count] . q|"|;
my $replace = qq|<span $highlight_string>$_</span>|;
my $replace2 = qq|<span $highlight_string>$formatted_query_ucf</span>|;
my $replace3 = qq|<span $highlight_string>$formatted_query_lc</span>|;
my $replace4 = qq|<span $highlight_string>$formatted_query_uc</span>|;
$value =~ s|\Q$_|$replace|g;
$value =~ s|\Q$formatted_query_ucf|$replace2|g;
$value =~ s|\Q$formatted_query_lc|$replace3|g;
$value =~ s|\Q$formatted_query_uc|$replace4|g;

$count++;
}

# send it back...
return $value;
}

# This is where we pass it in to be highlighted...
# <%Plugins::Keyword_Highlighter::Highlight_String($FieldName,$query)%>
sub Highlight_String {

# grab our options...
my $value = $_[0];
my $query = $_[1];
my @words = split / /, $query;

# define our random color.
my $max = $#words;
my @colors = map {
join "", map { sprintf "%02x", rand(255) } (0..2)
} (0..$max);

foreach (@words) {

my $color;
if (/^[abcd]/i) {
$color = $colors[0];
} elsif (/^[efgh]/i) {
$color = $colors[1];
} elsif (/^\d/i) {
$color = $colors[2];
} elsif (/^[ijklmn]/i) {
$color = $colors[3];
} elsif (/^[opqrstu]/i) {
$color = $colors[3];
} elsif (/^[vwxyz]/i) {
$color = $colors[3];
} elsif (/^\W/i) {
$color = $colors[3];
}

# now lets make the pretty colours!
my $highlight_string = qq|style="background-color: #$color"|;
my $replace = qq|<span $highlight_string>$_</span>|;
$value =~ s|\Q$_|$replace|ig;

}

# send it back...
return $value;

}