--- loncom/interface/loncreateuser.pm 2006/03/21 18:51:28 1.111 +++ 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.111 2006/03/21 18:51:28 albertel Exp $ +# $Id: loncreateuser.pm,v 1.112 2006/04/10 19:59:53 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -283,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; @@ -361,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";