loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.111, 2006/03/21 18:51:28	version 1.112, 2006/04/10 19:59:53
Line 283 sub print_user_modification_page {	Line 283 sub print_user_modification_page {
$ccdomain=~s/\W//g;	$ccdomain=~s/\W//g;
my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();	my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
my $dc_setcourse_code = '';	my $dc_setcourse_code = '';
my $loaditem;	my %loaditem;
if ($env{'request.role'} =~ m-^dc\./(\w+)/$-) {	if ($env{'request.role'} =~ m-^dc\./(\w+)/$-) {
my $dcdom = $1;	my $dcdom = $1;
$loaditem = qq\|OnLoad="document.cu.coursedesc.value=''"\|;	$loaditem{'onload'} = "document.cu.coursedesc.value=''";
$dc_setcourse_code = <<"ENDSCRIPT";	$dc_setcourse_code = <<"ENDSCRIPT";
function setCourse() {	function setCourse() {
var course = document.cu.dccourse.value;	var course = document.cu.dccourse.value;
Line 361 ENDSCRIPT	Line 361 ENDSCRIPT
my $js = &user_modification_js($pjump_def, $dc_setcourse_code);	my $js = &user_modification_js($pjump_def, $dc_setcourse_code);
my $start_page =	my $start_page =
&Apache::loncommon::start_page('Create Users, Change User Privileges',	&Apache::loncommon::start_page('Create Users, Change User Privileges',
$js,{'add_entries' => $loaditem,});	$js,{'add_entries' => \%loaditem,});

my $forminfo =<<"ENDFORMINFO";	my $forminfo =<<"ENDFORMINFO";
<form action="/adm/createuser" method="post" name="cu">	<form action="/adm/createuser" method="post" name="cu">