loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.59, 2002/11/22 18:55:18	version 1.60, 2002/11/27 15:25:48
Line 1199 sub keywords_highlight {	Line 1199 sub keywords_highlight {
(my $styleoff = $styleon) =~ s/\</\<\//;	(my $styleoff = $styleon) =~ s/\</\<\//;
my @keylist = split(/[,\s+]/,$ENV{'form.keywords'});	my @keylist = split(/[,\s+]/,$ENV{'form.keywords'});
foreach (@keylist) {	foreach (@keylist) {
$string =~ s/\b$_(\b\|\.)/\<font color\=$ENV{'form.kwclr'} $size\>$styleon$_$styleoff\<\/font\>/gi;	$string =~ s/\b\Q$_\E(\b\|\.)/\<font color\=$ENV{'form.kwclr'} $size\>$styleon$_$styleoff\<\/font\>/gi;
}	}
# This is not really the right place to do this, but I cannot find a	# This is not really the right place to do this, but I cannot find a
# better one at this time. So here we go - the m in the s:::mg causes	# better one at this time. So here we go - the m in the s:::mg causes