loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.358, 2011/09/25 23:07:49	version 1.360, 2012/04/25 21:22:01
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 1471 sub display_existing_roles {	Line 1465 sub display_existing_roles {
$rolesdump{$newkey} = $newvalue;	$rolesdump{$newkey} = $newvalue;
}	}
} else {	} else {
my $extra = &Apache::lonnet::freeze_escape({'skipcheck' => 1});	%rolesdump=&Apache::lonnet::dump('roles',$ccdomain,$ccuname);
%rolesdump=&Apache::lonnet::dump('roles',$ccdomain,$ccuname,'.',undef,$extra);
}	}
# Build up table of user roles to allow revocation and re-enabling of roles.	# Build up table of user roles to allow revocation and re-enabling of roles.
my ($tmp) = keys(%rolesdump);	my ($tmp) = keys(%rolesdump);