loncom/interface/lonhelper.pm - diff

Return to lonhelper.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.97, 2005/02/17 23:19:44	version 1.98, 2005/02/22 11:43:05
Line 1977 BUTTONS	Line 1977 BUTTONS
$mapUrl = $self->{MAP_URL};	$mapUrl = $self->{MAP_URL};
}	}


# Create the composite function that renders the column on the nav map	# Create the composite function that renders the column on the nav map
# have to admit any language that lets me do this can't be all bad	# have to admit any language that lets me do this can't be all bad
# - Jeremy (Pythonista) ;-)	# - Jeremy (Pythonista) ;-)
Line 2005 BUTTONS	Line 2006 BUTTONS
return $result;	return $result;
} else {	} else {
my $col = "";	my $col = "";
	my $raw_name = &$valueFunc($resource);
my $resource_name =	my $resource_name =
HTML::Entities::encode(&$valueFunc($resource),"<>&\"'");	HTML::Entities::encode($raw_name,"<>&\"'");
if($option_vars) {	if($option_vars) {
foreach my $option_var (@$option_vars) {	foreach my $option_var (@$option_vars) {
	my $checked ="";
	if($helper->{VARS}->{$option_var} =~ /$raw_name/) {
	$checked = "checked";
	}
$col .=	$col .=
"<td align='center'><input type='checkbox' name ='$option_var".	"<td align='center'><input type='checkbox' name ='$option_var".
".forminput' value='".	".forminput' value='".
$resource_name . "' /> </td>";	$resource_name . "' $checked /> </td>";
}	}
}	}