loncom/interface/lonhelper.pm - diff

Return to lonhelper.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.104, 2005/07/07 03:56:52	version 1.105, 2005/07/07 04:12:01
Line 3323 sub render {	Line 3323 sub render {
$paramlevel = 'full';	$paramlevel = 'full';
}	}

my $result = "<form name='helpform' method='get' action='/adm/parmset#$affectedResourceId&$parm_name&$level'>\n";	my $result = "<form name='helpform' method='POST' action='/adm/parmset#$affectedResourceId&$parm_name&$level'>\n";
$result .= "<input type='hidden' name='action' value='settable' />\n";	$result .= "<input type='hidden' name='action' value='settable' />\n";
$result .= "<input type='hidden' name='dis' value='helper' />\n";	$result .= "<input type='hidden' name='dis' value='helper' />\n";
$result .= "<input type='hidden' name='pscat' value='".	if ($vars->{ACTION_TYPE} eq 'tries') {
HTML::Entities::encode($vars->{ACTION_TYPE},"'<>&\"") . "' />\n";	$result .= "<input type='hidden' name='pscat' value='maxtries' />\n";
	} else {
	$result .= "<input type='hidden' name='pscat' value='".
	HTML::Entities::encode($vars->{ACTION_TYPE},"'<>&\"") . "' />\n";
	}
if ($vars->{GRANULARITY} eq 'resource') {	if ($vars->{GRANULARITY} eq 'resource') {
$result .= "<input type='hidden' name='symb' value='".	$result .= "<input type='hidden' name='symb' value='".
HTML::Entities::encode($symb,"'<>&\"") . "' />\n";	HTML::Entities::encode($symb,"'<>&\"") . "' />\n";