loncom/interface/lonhelper.pm - diff

Return to lonhelper.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.98, 2005/02/22 11:43:05	version 1.99, 2005/02/22 22:56:08
Line 2011 BUTTONS	Line 2011 BUTTONS
HTML::Entities::encode($raw_name,"<>&\"'");	HTML::Entities::encode($raw_name,"<>&\"'");
if($option_vars) {	if($option_vars) {
foreach my $option_var (@$option_vars) {	foreach my $option_var (@$option_vars) {
	my $var_value = "\\|\\|\\|" . $helper->{VARS}->{$option_var} .
	"\\|\\|\\|";
my $checked ="";	my $checked ="";
if($helper->{VARS}->{$option_var} =~ /$raw_name/) {	if($var_value =~ /\Q\|\|\|$raw_name\|\|\|\E/) {
$checked = "checked";	$checked = "checked";
}	}
$col .=	$col .=