--- loncom/interface/loncreateuser.pm 2004/01/17 18:12:05 1.77
+++ loncom/interface/loncreateuser.pm 2004/07/19 17:58:10 1.85
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Create a user
#
-# $Id: loncreateuser.pm,v 1.77 2004/01/17 18:12:05 www Exp $
+# $Id: loncreateuser.pm,v 1.85 2004/07/19 17:58:10 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -123,10 +123,7 @@ sub print_username_entry_form {
my $defdom=$ENV{'request.role.domain'};
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').
- &Apache::loncommon::help_open_faq(282).
- &Apache::loncommon::help_open_bug('Instructor Interface');
+ my $bodytag =&Apache::loncommon::bodytag('Create Users, Change User Privileges').&Apache::loncommon::help_open_menu('',undef,undef,'',282,'Instructor Interface');
my $selscript=&Apache::loncommon::studentbrowser_javascript();
my $sellink=&Apache::loncommon::selectstudent_link
('crtuser','ccuname','ccdomain');
@@ -177,8 +174,8 @@ sub print_user_modification_page {
my $ccuname=$ENV{'form.ccuname'};
my $ccdomain=$ENV{'form.ccdomain'};
- $ccuname=~s/\W//gs;
- $ccdomain=~s/\W//gs;
+ $ccuname=~s/[\W|_]//gs;
+ $ccdomain=~s/[\W|_]//gs;
unless (($ccuname) && ($ccdomain)) {
&print_username_entry_form($r);
@@ -250,7 +247,7 @@ ENDFORMINFO
''."\n".
&Apache::loncommon::home_server_option_list($ccdomain);
- my %lt=&Apache::lonlocal::texthash(
+ my %lt=&Apache::lonlocal::texthash(
'cnu' => "Create New User",
'nu' => "New User",
'id' => "in domain",
@@ -263,6 +260,7 @@ ENDFORMINFO
'hs' => "Home Server",
'lg' => "Login Data"
);
+ my $genhelp=&Apache::loncommon::help_open_topic('Generation');
$r->print(<$lt{'cnu'}
@@ -281,7 +279,7 @@ $loginscript
|
$lt{'ln'} |
|
-$lt{'gen'} |
+
$lt{'gen'}$genhelp |
|
$lt{'idsn'}
@@ -295,7 +293,7 @@ $lt{'hs'}: