loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.357, 2011/09/01 02:47:51	version 1.359, 2011/12/08 22:10:18
Line 742 sub user_modification_js {	Line 742 sub user_modification_js {
<script type="text/javascript" language="Javascript">	<script type="text/javascript" language="Javascript">
// <![CDATA[	// <![CDATA[

function pclose() {
parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",
"height=350,width=350,scrollbars=no,menubar=no");
parmwin.close();
}

$pjump_def	$pjump_def
$dc_setcourse_code	$dc_setcourse_code

function dateset() {	function dateset() {
eval("document.cu."+document.cu.pres_marker.value+	eval("document.cu."+document.cu.pres_marker.value+
".value=document.cu.pres_value.value");	".value=document.cu.pres_value.value");
pclose();	modalWindow.close();
}	}

$nondc_setsection_code	$nondc_setsection_code
Line 4042 sub handler {	Line 4036 sub handler {
my ($permission,$allowed) =	my ($permission,$allowed) =
&Apache::lonuserutils::get_permission($context,$crstype);	&Apache::lonuserutils::get_permission($context,$crstype);
if (!$allowed) {	if (!$allowed) {
	if ($context eq 'course') {
	$r->internal_redirect('/adm/viewclasslist');
	return OK;
	}
$env{'user.error.msg'}=	$env{'user.error.msg'}=
"/adm/createuser:cst:0:0:Cannot create/modify user data ".	"/adm/createuser:cst:0:0:Cannot create/modify user data ".
"or view user status.";	"or view user status.";