--- loncom/interface/loncreateuser.pm 2009/03/18 15:31:46 1.268.2.8
+++ loncom/interface/loncreateuser.pm 2008/12/15 00:12:38 1.269
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Create a user
#
-# $Id: loncreateuser.pm,v 1.268.2.8 2009/03/18 15:31:46 raeburn Exp $
+# $Id: loncreateuser.pm,v 1.269 2008/12/15 00:12:38 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -213,6 +213,7 @@ END_SCRIPT
$tool_on = '';
}
}
+ $curr_access = &Apache::lonnet::usertools_access($ccuname,$ccdomain,$item);
$output .= ' <tr class="LC_info_row">'."\n".
' <td>'.$lt{$item}.'</td>'."\n".
' </tr>'."\n".
@@ -769,9 +770,8 @@ $lt{'hs'}: $home_server_pick
my $authtype = $rules->{$matchedrule}{'authtype'};
if ($authtype !~ /^(krb4|krb5|int|fsys|loc)$/) {
$r->print(&Apache::lonuserutils::set_login($ccdomain,$authformkrb,$authformint,$authformloc));
- } else {
+ } else {
my $authparm = $rules->{$matchedrule}{'authparm'};
- $authmsg = $rules->{$matchedrule}{'authmsg'};
if ($authtype =~ /^krb(4|5)$/) {
my $ver = $1;
if ($authparm ne '') {
@@ -780,6 +780,7 @@ $lt{'hs'}: $home_server_pick
<input type="hidden" name="krbver" value="$ver" />
<input type="hidden" name="krbarg" value="$authparm" />
KERB
+ $authmsg = $rules->{$matchedrule}{'authmsg'};
}
} else {
$fixedauth =
@@ -788,16 +789,8 @@ KERB
$fixedauth .=
'<input type="hidden" name="'.$authtype.'arg" value="'.$authparm.'" />'."\n";
} else {
- if ($authtype eq 'int') {
- $varauth = '<br />'.
-&mt('[_1] Internally authenticated (with initial password [_2])','','<input type="password" size="10" name="intarg" value="" />')."<label><input type=\"checkbox\" name=\"visible\" onClick='if (this.checked) { this.form.intarg.type=\"text\" } else { this.form.intarg.type=\"password\" }' />".&mt('Visible input').'</label>';
- } elsif ($authtype eq 'loc') {
- $varauth = '<br />'.
-&mt('[_1] Local Authentication with argument [_2]','','<input type="text" name="'.$authtype.'arg" value="" />')."\n";
- } else {
- $varauth =
+ $varauth =
'<input type="text" name="'.$authtype.'arg" value="" />'."\n";
- }
}
}
}
@@ -1561,15 +1554,11 @@ sub personal_data_display {
}
} else {
if ($context eq 'selfcreate') {
- if (($item eq 'permanentemail') && ($newuser eq 'email')) {
- $row .= $ccuname;
+ if ($canmodify{$item}) {
+ $row .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="" />';
+ $editable ++;
} else {
- if ($canmodify{$item}) {
- $row .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="" />';
- $editable ++;
- } else {
- $hiderow = 1;
- }
+ $hiderow = 1;
}
} else {
$row .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="" />';
@@ -1691,8 +1680,8 @@ sub update_user_data {
}
if ( $env{'form.ccuname'} ne
&LONCAPA::clean_username($env{'form.ccuname'}) ) {
- $r->print($error.&mt('Invalid login name.').' '.
- &mt('Only letters, numbers, periods, dashes, @, and underscores are valid.').
+ $r->print($error.&mt('Invalid login name').'. '.
+ &mt('Only letters, numbers, periods, dashes, @, and underscores are valid').'.'.
$end.$rtnlink);
return;
}
@@ -1702,8 +1691,8 @@ sub update_user_data {
}
if ( $env{'form.ccdomain'} ne
&LONCAPA::clean_domain($env{'form.ccdomain'}) ) {
- $r->print($error.&mt ('Invalid domain name.').' '.
- &mt('Only letters, numbers, periods, dashes, and underscores are valid.').
+ $r->print($error.&mt ('Invalid domain name').'. '.
+ &mt('Only letters, numbers, periods, dashes, and underscores are valid').'.'.
$end.$rtnlink);
return;
}
@@ -2082,6 +2071,7 @@ sub update_user_data {
}
} else {
$changed{$tool} = &tool_admin($tool,'',\%changeHash);
+ print STDERR "for $tool - changed is $changed{$tool}\n";
if ($changed{$tool}) {
$newaccess{$tool} = &mt('default');
} else {
@@ -2135,20 +2125,18 @@ sub update_user_data {
&Apache::lonnet::put('environment',\%changeHash,
$env{'form.ccdomain'},$env{'form.ccuname'});
if ($chgresult eq 'ok') {
+ my %newenvhash;
+ my $hashid="$env{'form.ccuname'}:$env{'form.ccdomain'}";
+ foreach my $key (keys(%changed)) {
+ if ($key ne 'quota') {
+ &Apache::lonnet::devalidate_cache_new('usertools.'.$key,$hashid);
+ $newenvhash{'environment.tools.'.$key} =
+ $changeHash{'tools.'.$key};
+ }
+ }
if (($env{'user.name'} eq $env{'form.ccuname'}) &&
($env{'user.domain'} eq $env{'form.ccdomain'})) {
- my %newenvhash;
- foreach my $key (keys(%changed)) {
- if ($key ne 'quota') {
- $newenvhash{'environment.tools.'.$key} =
- $changeHash{'tools.'.$key};
- $newenvhash{'environment.availabletools.'.$key} =
- $changeHash{'tools.'.$key};
- }
- }
- if (keys(%newenvhash)) {
- &Apache::lonnet::appenv(\%newenvhash);
- }
+ &Apache::lonnet::appenv(\%newenvhash);
}
}
}
@@ -3377,101 +3365,127 @@ sub print_main_menu {
listusers => 'Display Co-authors and Manage Multiple Users',
},
course => {
- upload => 'Upload a File of Course Users',
- singleuser => 'Add/Modify a Single Course User',
- listusers => 'Display Class Lists and Manage Multiple Users',
+ upload => 'File of Course Users',
+ singleuser => 'Single Course User',
+ listusers => 'Course User Lists',
},
);
- my @menu =
- (
- { text => $links{$context}{'upload'},
- help => 'Course_Create_Class_List',
- action => 'upload',
- permission => $permission->{'cusr'},
- },
- { text => $links{$context}{'singleuser'},
- help => 'Course_Change_Privileges',
- action => 'singleuser',
- permission => $permission->{'cusr'},
- },
- { text => $links{$context}{'listusers'},
- help => 'Course_View_Class_List',
- action => 'listusers',
- permission => ($permission->{'view'} || $permission->{'cusr'}),
- },
- );
- if ($context eq 'domain' || $context eq 'course') {
- my $customlink = { text => 'Edit Custom Roles',
- help => 'Course_Editing_Custom_Roles',
- action => 'custom',
- permission => $permission->{'custom'},
- };
- push(@menu,$customlink);
- }
- if ($context eq 'course') {
- my ($cnum,$cdom) = &Apache::lonuserutils::get_course_identity();
- my @courselinks =
- (
- { text => 'Enroll a Single Student',
- help => 'Course_Add_Student',
- action => 'singlestudent',
- permission => $permission->{'cusr'},
- },
- { text => 'Drop Students',
- help => 'Course_Drop_Student',
- action => 'drop',
- permission => $permission->{'cusr'},
- });
- if (!exists($permission->{'cusr_section'})) {
- push(@courselinks,
- { text => 'Automated Enrollment Manager',
- help => 'Course_Automated_Enrollment',
- permission => (&Apache::lonnet::auto_run($cnum,$cdom)
- && $permission->{'cusr'}),
- url => '/adm/populate',
- },
- { text => 'Configure User Self-enrollment',
- help => 'Course_Self_Enrollment',
- action => 'selfenroll',
- permission => $permission->{'cusr'},
- });
- }
- push(@courselinks,
- { text => 'Manage Course Groups',
- help => 'Course_Manage_Group',
- permission => $permission->{'grp_manage'},
- url => '/adm/coursegroups?refpage=cusr',
- },
- { text => 'View Change Logs',
- help => 'Course_User_Logs',
- action => 'changelogs',
- permission => $permission->{'cusr'},
- },);
+ my @menu = ( {categorytitle => 'Add Users',
+ items =>
+ [{
+ linktext => $links{$context}{'upload'},
+ icon => 'sctr.png',
+ #help => 'Course_Create_Class_List',
+ url => '/adm/createuser?action=upload',
+ permission => $permission->{'cusr'},
+ linktitle => 'Upload a CSV or a text file containing users.',
+ },
+ {
+ linktext => $links{$context}{'singleuser'},
+ icon => 'edit-redo.png',
+ #help => 'Course_Change_Privileges',
+ url => '/adm/createuser?action=singleuser',
+ permission => $permission->{'cusr'},
+ linktitle => 'Add a user with a certain role to this course.',
+ }]},
+ {categorytitle => 'Administration',
+ items =>
+ [{
+ linktext => $links{$context}{'listusers'},
+ icon => 'edit-find.png',
+ #help => 'Course_View_Class_List',
+ url => '/adm/createuser?action=listusers',
+ permission => ($permission->{'view'} || $permission->{'cusr'}),
+ linktitle => 'Show and manage users of this course.',
+ }]},
+ {categorytitle => 'Configuration',
+ items =>
+ [
+ ]},
+ );
+
+ if ($context eq 'domain'){
+
+ push(@{ $menu[1]->{items} },
+ { linktext => 'Custom Roles',
+ icon => 'emblem-photos.png',
+ #help => 'Course_Editing_Custom_Roles',
+ url => '/adm/createuser?action=custom',
+ permission => $permission->{'custom'},
+ linktitle => 'Configure a custom role.',
+ });
+
+ }elsif ($context eq 'course'){
+ my ($cnum,$cdom) = &Apache::lonuserutils::get_course_identity();
+
+ push(@{ $menu[0]->{items} },
+ { linktext => 'Single Student',
+ #help => 'Course_Add_Student',
+ icon => 'list-add.png',
+ url => '/adm/createuser?action=singlestudent',
+ permission => $permission->{'cusr'},
+ linktitle => 'Add a user with the role student to this course.',
+ });
+
+ push(@{ $menu[1]->{items} },
+ { linktext => 'Drop Students',
+ icon => 'edit-undo.png',
+ #help => 'Course_Drop_Student',
+ url => '/adm/createuser?action=drop',
+ permission => $permission->{'cusr'},
+ linktitle =>'Remove a student from this course.',
+ },
+ { linktext => 'Custom Roles',
+ icon => 'emblem-photos.png',
+ #help => 'Course_Editing_Custom_Roles',
+ url => '/adm/createuser?action=custom',
+ permission => $permission->{'custom'},
+ linktitle => 'Configure a custom role.',
+ });
+
+ if (!exists($permission->{'cusr_section'})){
+
+ push(@{ $menu[2]->{items} },
+ { linktext => 'Automated Enrollment',
+ icon => 'roles.png',
+ #help => 'Course_Automated_Enrollment',
+ permission => (&Apache::lonnet::auto_run($cnum,$cdom)
+ && $permission->{'cusr'}),
+ url => '/adm/populate',
+ linktitle => 'Automated enrollment manager.',
+ },
+ { linktext => 'User Self-Enrollment',
+ icon => 'cstr.png',
+ #help => 'Course_Self_Enrollment',
+ url => '/adm/createuser?action=selfenroll',
+ permission => $permission->{'cusr'},
+ linktitle => 'Configure user self enrollment.',
+ });
+
+ }
+
+ push(@{ $menu[2]->{items} },
+ { linktext => 'Course Groups',
+ icon => 'conf.png',
+ #help => 'Course_Manage_Group',
+ url => '/adm/coursegroups?refpage=cusr',
+ permission => $permission->{'grp_manage'},
+ linktitle => 'Manage course groups.',
+ },
+ { linktext => 'Change Logs',
+ icon => 'document-properties.png',
+ #help => 'Course_User_Logs',
+ url => '/adm/createuser?action=changelogs',
+ permission => $permission->{'cusr'},
+ linktitle => 'View change log.',
+ });
+ };
+return Apache::lonhtmlcommon::generate_menu(@menu);
# { text => 'View Log-in History',
# help => 'Course_User_Logins',
# action => 'logins',
# permission => $permission->{'cusr'},
# });
- push(@menu,@courselinks);
- }
- my $menu_html = '';
- foreach my $menu_item (@menu) {
- next if (! $menu_item->{'permission'});
- $menu_html.='<p>';
- if (exists($menu_item->{'help'})) {
- $menu_html.=
- &Apache::loncommon::help_open_topic($menu_item->{'help'});
- }
- $menu_html.='<font size="+1">';
- if (exists($menu_item->{'url'})) {
- $menu_html.=qq{<a href="$menu_item->{'url'}">};
- } else {
- $menu_html.=
- qq{<a href="/adm/createuser?action=$menu_item->{'action'}">}; }
- $menu_html.= &mt($menu_item->{'text'}).'</a></font>';
- $menu_html.='</p>';
- }
- return $menu_html;
}
sub restore_prev_selections {
@@ -3674,10 +3688,9 @@ ENDSCRIPT
my ($visible,$cansetvis,$vismsgs,$visactions) = &visible_in_cat($cdom,$cnum);
if (ref($visactions) eq 'HASH') {
if ($visible) {
- $output .= '<p class="LC_info">'.$visactions->{'vis'}.'</p>';
+ $output .= '<p>'.$visactions->{'vis'}.'</p>';
} else {
- $output .= '<p class="LC_warning">'.$visactions->{'miss'}.'</p>'
- .$visactions->{'yous'}.
+ $output .= $visactions->{'miss'}.'<br />'.$visactions->{'yous'}.
'<p>'.$visactions->{'gen'}.'<br />'.$visactions->{'coca'};
if (ref($vismsgs) eq 'ARRAY') {
$output .= '<br />'.$visactions->{'make'}.'<ul>';