--- loncom/interface/loncreateuser.pm 2003/12/16 14:15:12 1.74
+++ loncom/interface/loncreateuser.pm 2004/01/17 18:12:05 1.77
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Create a user
#
-# $Id: loncreateuser.pm,v 1.74 2003/12/16 14:15:12 sakharuk Exp $
+# $Id: loncreateuser.pm,v 1.77 2004/01/17 18:12:05 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -124,7 +124,9 @@ sub print_username_entry_form {
my @domains = &Apache::loncommon::get_domains();
my $domform = &Apache::loncommon::select_dom_form($defdom,'ccdomain');
my $bodytag =&Apache::loncommon::bodytag(
- 'Create Users, Change User Privileges');
+ 'Create Users, Change User Privileges').
+ &Apache::loncommon::help_open_faq(282).
+ &Apache::loncommon::help_open_bug('Instructor Interface');
my $selscript=&Apache::loncommon::studentbrowser_javascript();
my $sellink=&Apache::loncommon::selectstudent_link
('crtuser','ccuname','ccdomain');
@@ -140,6 +142,8 @@ sub print_username_entry_form {
'nr' => "Name of Role",
'cre' => "Custom Role Editor"
);
+ my $helpsiur=&Apache::loncommon::help_open_topic('Course_Change_Privileges');
+ my $helpecpr=&Apache::loncommon::help_open_topic('Course_Editing_Custom_Roles');
$r->print(<<"ENDDOCUMENT");
<html>
<head>
@@ -149,7 +153,7 @@ $selscript
$bodytag
<form action="/adm/createuser" method="post" name="crtuser">
<input type="hidden" name="phase" value="get_user_info">
-<h2>$lt{siur}</h2>
+<h2>$lt{siur}$helpsiur</h2>
<table>
<tr><td>$lt{usr}:</td><td><input type="text" size="15" name="ccuname">
</td><td rowspan="2">$sellink</td></tr><tr><td>
@@ -159,7 +163,7 @@ $lt{'dom'}:</td><td>$domform</td></tr>
</form>
<form action="/adm/createuser" method="post" name="docustom">
<input type="hidden" name="phase" value="selected_custom_edit">
-<h2>$lt{'ecrp'}</h2>
+<h2>$lt{'ecrp'}$helpecpr</h2>
$lt{'nr'}: $choice <input type="text" size="15" name="newrolename" /><br />
<input name="customeditor" type="submit" value="$lt{'cre'}" />
</body>
@@ -756,10 +760,10 @@ ENDNEWUSERHEAD
$ENV{'form.cmiddle'},$ENV{'form.clast'},$ENV{'form.cgen'},
undef,$desiredhost
);
- $r->print('Generating user: '.$result);
+ $r->print(&mt('Generating user').': '.$result);
my $home = &Apache::lonnet::homeserver($ENV{'form.ccuname'},
$ENV{'form.ccdomain'});
- $r->print('<br />'&mt('Home server').': '.$home.' '.
+ $r->print('<br />'.&mt('Home server').': '.$home.' '.
$Apache::lonnet::libserv{$home});
} elsif (($ENV{'form.login'} ne 'nochange') &&
($ENV{'form.login'} ne '' )) {
@@ -1002,6 +1006,8 @@ END
}
}
} # End of foreach (keys(%ENV))
+# Flush the course logs so reverse user roles immediately updated
+ &Apache::lonnet::flushcourselogs();
$r->print('</body></html>');
}