--- loncom/interface/loncreateuser.pm 2006/03/19 22:15:46 1.110 +++ loncom/interface/loncreateuser.pm 2006/04/10 19:59:53 1.112 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Create a user # -# $Id: loncreateuser.pm,v 1.110 2006/03/19 22:15:46 albertel Exp $ +# $Id: loncreateuser.pm,v 1.112 2006/04/10 19:59:53 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -143,6 +143,7 @@ sub print_username_entry_form { my $helpsiur=&Apache::loncommon::help_open_topic('Course_Change_Privileges'); my $helpecpr=&Apache::loncommon::help_open_topic('Course_Editing_Custom_Roles'); $r->print(<<"ENDDOCUMENT"); +$start_page

$lt{siur}$helpsiur

@@ -282,10 +283,10 @@ sub print_user_modification_page { $ccdomain=~s/\W//g; my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition(); my $dc_setcourse_code = ''; - my $loaditem; + my %loaditem; if ($env{'request.role'} =~ m-^dc\./(\w+)/$-) { my $dcdom = $1; - $loaditem = qq|OnLoad="document.cu.coursedesc.value=''"|; + $loaditem{'onload'} = "document.cu.coursedesc.value=''"; $dc_setcourse_code = <<"ENDSCRIPT"; function setCourse() { var course = document.cu.dccourse.value; @@ -360,7 +361,7 @@ ENDSCRIPT my $js = &user_modification_js($pjump_def, $dc_setcourse_code); my $start_page = &Apache::loncommon::start_page('Create Users, Change User Privileges', - $js,{'add_entries' => $loaditem,}); + $js,{'add_entries' => \%loaditem,}); my $forminfo =<<"ENDFORMINFO";