loncom/interface/lonhelper.pm - diff

Return to lonhelper.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.35, 2003/05/29 17:39:40	version 1.37, 2003/06/12 13:52:06
Line 1694 BUTTONS	Line 1694 BUTTONS
$col .= "checked ";	$col .= "checked ";
$checked = 1;	$checked = 1;
}	}
	if ($multichoice) { # all resources start checked; see bug 1174
	$col .= "checked ";
	$checked = 1;
	}
$col .= "value='" .	$col .= "value='" .
HTML::Entities::encode(&$valueFunc($resource))	HTML::Entities::encode(&$valueFunc($resource))
. "' /></td>";	. "' /></td>";
Line 2587 sub render {	Line 2591 sub render {
$result .= "<center>\n" .	$result .= "<center>\n" .
"<form action='/adm/roles' method='post' target='loncapaclient'>\n" .	"<form action='/adm/roles' method='post' target='loncapaclient'>\n" .
"<input type='button' onclick='history.go(-1)' value='<- Previous' />" .	"<input type='button' onclick='history.go(-1)' value='<- Previous' />" .
"<input type='hidden' name='orgurl' value='/adm/navmaps' />" .	"<input type='hidden' name='orgurl' value='/adm/menu' />" .
"<input type='hidden' name='selectrole' value='1' />\n" .	"<input type='hidden' name='selectrole' value='1' />\n" .
"<input type='hidden' name='" . $ENV{'request.role'} .	"<input type='hidden' name='" . $ENV{'request.role'} .
"' value='1' />\n<input type='submit' value='Finish Course Initialization' />\n" .	"' value='1' />\n<input type='submit' value='Finish Course Initialization' />\n" .