version 1.204, 2007/12/07 23:09:30
|
version 1.206, 2007/12/11 02:27:24
|
Line 76 my $authformfsys;
|
Line 76 my $authformfsys;
|
my $authformloc; |
my $authformloc; |
|
|
sub initialize_authen_forms { |
sub initialize_authen_forms { |
my ($dom,$curr_authtype) = @_; |
my ($dom,$curr_authtype,$mode) = @_; |
my ($krbdefdom)=( $ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/); |
my ($krbdefdom)=( $ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/); |
$krbdefdom= uc($krbdefdom); |
$krbdefdom= uc($krbdefdom); |
my %param = ( formname => 'document.cu', |
my %param = ( formname => 'document.cu', |
Line 91 sub initialize_authen_forms {
|
Line 91 sub initialize_authen_forms {
|
if ($long_auth =~ /^krb(4|5)$/) { |
if ($long_auth =~ /^krb(4|5)$/) { |
$param{'curr_kerb_ver'} = $1; |
$param{'curr_kerb_ver'} = $1; |
} |
} |
|
if ($mode eq 'modifyuser') { |
|
$param{'mode'} = $mode; |
|
} |
} |
} |
# no longer static due to configurable kerberos defaults |
# no longer static due to configurable kerberos defaults |
# $loginscript = &Apache::loncommon::authform_header(%param); |
# $loginscript = &Apache::loncommon::authform_header(%param); |
Line 704 $loginscript
|
Line 707 $loginscript
|
<input type='hidden' name='makeuser' value='1' /> |
<input type='hidden' name='makeuser' value='1' /> |
<h2>$lt{'cnu'} "$ccuname" $lt{'ind'} $ccdomain</h2> |
<h2>$lt{'cnu'} "$ccuname" $lt{'ind'} $ccdomain</h2> |
ENDTITLE |
ENDTITLE |
$r->print('<div class="LC_left_float">'. |
$r->print('<div class="LC_left_float">'); |
&personal_data_display($ccuname,$ccdomain,$newuser, |
my $personal_table = |
%inst_results)); |
&personal_data_display($ccuname,$ccdomain,$newuser, |
|
$context,%inst_results); |
|
$r->print($personal_table); |
my ($home_server_pick,$numlib) = |
my ($home_server_pick,$numlib) = |
&Apache::loncommon::home_server_form_item($ccdomain,'hserver', |
&Apache::loncommon::home_server_form_item($ccdomain,'hserver', |
'default','hide'); |
'default','hide'); |
Line 783 $crumbs
|
Line 788 $crumbs
|
$forminfo |
$forminfo |
<h2>$lt{'cup'} "$ccuname" $lt{'id'} "$ccdomain"</h2> |
<h2>$lt{'cup'} "$ccuname" $lt{'id'} "$ccdomain"</h2> |
ENDCHANGEUSER |
ENDCHANGEUSER |
$r->print('<div class="LC_left_float">'. |
$r->print('<div class="LC_left_float">'); |
&personal_data_display($ccuname,$ccdomain,$newuser, |
my ($personal_table,$showforceid) = |
%inst_results)); |
&personal_data_display($ccuname,$ccdomain,$newuser, |
if ($context eq 'domain') { |
$context,%inst_results); |
|
$r->print($personal_table); |
|
if ($showforceid) { |
$r->print(&Apache::lonuserutils::forceid_change($context)); |
$r->print(&Apache::lonuserutils::forceid_change($context)); |
} |
} |
$r->print('</div>'); |
$r->print('</div>'); |
Line 1197 $lt{'uuas'} ($currentauth). $lt{'adcs'}.
|
Line 1204 $lt{'uuas'} ($currentauth). $lt{'adcs'}.
|
ENDBADAUTH |
ENDBADAUTH |
} |
} |
} else { # Authentication type is valid |
} else { # Authentication type is valid |
&initialize_authen_forms($ccdomain,$currentauth); |
&initialize_authen_forms($ccdomain,$currentauth,'modifyuser'); |
my $authformnop_row; |
my ($authformcurrent,$can_modify,@authform_others) = |
if (&Apache::lonnet::allowed('mau',$ccdomain)) { |
|
$authformnop_row = &Apache::loncommon::start_data_table_row(); |
|
} |
|
my ($authformcurrent,$authform_other,$can_modify) = |
|
&modify_login_block($ccdomain,$currentauth); |
&modify_login_block($ccdomain,$currentauth); |
if (&Apache::lonnet::allowed('mau',$ccdomain)) { |
if (&Apache::lonnet::allowed('mau',$ccdomain)) { |
# Current user has login modification privileges |
# Current user has login modification privileges |
Line 1217 ENDBADAUTH
|
Line 1220 ENDBADAUTH
|
'</script>'."\n". |
'</script>'."\n". |
'<h3>'.$lt{'ld'}.'</h3>'. |
'<h3>'.$lt{'ld'}.'</h3>'. |
&Apache::loncommon::start_data_table(). |
&Apache::loncommon::start_data_table(). |
$authformnop_row. |
&Apache::loncommon::start_data_table_row(). |
'<td>'.$authformnop; |
'<td>'.$authformnop; |
if ($can_modify) { |
if ($can_modify) { |
$outcome .= '</td>'."\n". |
$outcome .= '</td>'."\n". |
Line 1229 ENDBADAUTH
|
Line 1232 ENDBADAUTH
|
$outcome .= ' ('.$authformcurrent.')</td>'. |
$outcome .= ' ('.$authformcurrent.')</td>'. |
&Apache::loncommon::end_data_table_row()."\n"; |
&Apache::loncommon::end_data_table_row()."\n"; |
} |
} |
if ($authform_other ne '') { |
foreach my $item (@authform_others) { |
$outcome .= $authform_other; |
$outcome .= &Apache::loncommon::start_data_table_row(). |
|
'<td>'.$item.'</td>'. |
|
&Apache::loncommon::end_data_table_row()."\n"; |
} |
} |
$outcome .= &Apache::loncommon::end_data_table_row(). |
$outcome .= &Apache::loncommon::end_data_table(); |
&Apache::loncommon::end_data_table(); |
|
} else { |
} else { |
if (&Apache::lonnet::allowed('mau',$env{'request.role.domain'})) { |
if (&Apache::lonnet::allowed('mau',$env{'request.role.domain'})) { |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
Line 1256 sub modify_login_block {
|
Line 1260 sub modify_login_block {
|
my %domconfig = &Apache::lonnet::get_dom('configuration',['usercreation'],$dom); |
my %domconfig = &Apache::lonnet::get_dom('configuration',['usercreation'],$dom); |
my ($authnum,%can_assign) = |
my ($authnum,%can_assign) = |
&Apache::loncommon::get_assignable_auth($dom); |
&Apache::loncommon::get_assignable_auth($dom); |
my ($authformcurrent,$authform_other,$show_override_msg); |
my ($authformcurrent,@authform_others,$show_override_msg); |
if ($currentauth=~/^krb(4|5):/) { |
if ($currentauth=~/^krb(4|5):/) { |
$authformcurrent=$authformkrb; |
$authformcurrent=$authformkrb; |
if ($can_assign{'int'}) { |
if ($can_assign{'int'}) { |
$authform_other = &Apache::loncommon::start_data_table_row(). |
push(@authform_others,$authformint); |
'<td>'.$authformint.'</td>'. |
|
&Apache::loncommon::end_data_table_row()."\n" |
|
} |
} |
if ($can_assign{'loc'}) { |
if ($can_assign{'loc'}) { |
$authform_other .= &Apache::loncommon::start_data_table_row(). |
push(@authform_others,$authformloc); |
'<td>'.$authformloc.'</td>'. |
|
&Apache::loncommon::end_data_table_row()."\n"; |
|
} |
} |
if (($can_assign{'krb4'}) || ($can_assign{'krb5'})) { |
if (($can_assign{'krb4'}) || ($can_assign{'krb5'})) { |
$show_override_msg = 1; |
$show_override_msg = 1; |
Line 1275 sub modify_login_block {
|
Line 1275 sub modify_login_block {
|
} elsif ($currentauth=~/^internal:/) { |
} elsif ($currentauth=~/^internal:/) { |
$authformcurrent=$authformint; |
$authformcurrent=$authformint; |
if (($can_assign{'krb4'}) || ($can_assign{'krb5'})) { |
if (($can_assign{'krb4'}) || ($can_assign{'krb5'})) { |
$authform_other = &Apache::loncommon::start_data_table_row(). |
push(@authform_others,$authformkrb); |
'<td>'.$authformkrb.'</td>'. |
|
&Apache::loncommon::end_data_table_row()."\n"; |
|
} |
} |
if ($can_assign{'loc'}) { |
if ($can_assign{'loc'}) { |
$authform_other .= &Apache::loncommon::start_data_table_row(). |
push(@authform_others,$authformloc); |
'<td>'.$authformloc.'</td>'. |
|
&Apache::loncommon::end_data_table_row()."\n"; |
|
} |
} |
if ($can_assign{'int'}) { |
if ($can_assign{'int'}) { |
$show_override_msg = 1; |
$show_override_msg = 1; |
Line 1290 sub modify_login_block {
|
Line 1286 sub modify_login_block {
|
} elsif ($currentauth=~/^unix:/) { |
} elsif ($currentauth=~/^unix:/) { |
$authformcurrent=$authformfsys; |
$authformcurrent=$authformfsys; |
if (($can_assign{'krb4'}) || ($can_assign{'krb5'})) { |
if (($can_assign{'krb4'}) || ($can_assign{'krb5'})) { |
$authform_other = &Apache::loncommon::start_data_table_row(). |
push(@authform_others,$authformkrb); |
'<td>'.$authformkrb.'</td>'. |
|
&Apache::loncommon::end_data_table_row()."\n"; |
|
} |
} |
if ($can_assign{'int'}) { |
if ($can_assign{'int'}) { |
$authform_other .= &Apache::loncommon::start_data_table_row(). |
push(@authform_others,$authformint); |
'<td>'.$authformint.'</td>'. |
|
&Apache::loncommon::end_data_table_row()."\n" |
|
} |
} |
if ($can_assign{'loc'}) { |
if ($can_assign{'loc'}) { |
$authform_other .= &Apache::loncommon::start_data_table_row(). |
push(@authform_others,$authformloc); |
'<td>'.$authformloc.'</td>'. |
|
&Apache::loncommon::end_data_table_row()."\n"; |
|
} |
} |
if ($can_assign{'fsys'}) { |
if ($can_assign{'fsys'}) { |
$show_override_msg = 1; |
$show_override_msg = 1; |
Line 1310 sub modify_login_block {
|
Line 1300 sub modify_login_block {
|
} elsif ($currentauth=~/^localauth:/) { |
} elsif ($currentauth=~/^localauth:/) { |
$authformcurrent=$authformloc; |
$authformcurrent=$authformloc; |
if (($can_assign{'krb4'}) || ($can_assign{'krb5'})) { |
if (($can_assign{'krb4'}) || ($can_assign{'krb5'})) { |
$authform_other = &Apache::loncommon::start_data_table_row(). |
push(@authform_others,$authformkrb); |
'<td>'.$authformkrb.'</td>'. |
|
&Apache::loncommon::end_data_table_row()."\n"; |
|
} |
} |
if ($can_assign{'int'}) { |
if ($can_assign{'int'}) { |
$authform_other .= &Apache::loncommon::start_data_table_row(). |
push(@authform_others,$authformint); |
'<td>'.$authformint.'</td>'. |
|
&Apache::loncommon::end_data_table_row()."\n" |
|
} |
} |
if ($can_assign{'loc'}) { |
if ($can_assign{'loc'}) { |
$show_override_msg = 1; |
$show_override_msg = 1; |
} |
} |
} |
} |
if ($show_override_msg) { |
if ($show_override_msg) { |
$authformcurrent.= ' <span class="LC_cusr_emph">'. |
$authformcurrent = '<table><tr><td colspan="3">'.$authformcurrent. |
|
'</td></tr>'."\n". |
|
'<tr><td> </td>'. |
|
'<td><b>'.&mt('Currently in use').'</b></td>'. |
|
'<td align="right"><span class="LC_cusr_emph">'. |
&mt('will override current values'). |
&mt('will override current values'). |
'</span><br />'; |
'</span></td></tr></table>'; |
} |
} |
return ($authformcurrent,$authform_other,$show_override_msg); |
return ($authformcurrent,$show_override_msg,@authform_others); |
} |
} |
|
|
sub personal_data_display { |
sub personal_data_display { |
my ($ccuname,$ccdomain,$newuser,%inst_results) = @_; |
my ($ccuname,$ccdomain,$newuser,$context,%inst_results) = @_; |
my ($output,%userenv); |
my ($output,$showforceid,%userenv,%domconfig); |
if (!$newuser) { |
if (!$newuser) { |
# Get the users information |
# Get the users information |
%userenv = &Apache::lonnet::get('environment', |
%userenv = &Apache::lonnet::get('environment', |
['firstname','middlename','lastname','generation', |
['firstname','middlename','lastname','generation', |
'permanentemail','id'],$ccdomain,$ccuname); |
'permanentemail','id'],$ccdomain,$ccuname); |
|
%domconfig = |
|
&Apache::lonnet::get_dom('configuration',['usermodification'], |
|
$ccdomain); |
} |
} |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'pd' => "Personal Data", |
'pd' => "Personal Data", |
Line 1376 sub personal_data_display {
|
Line 1369 sub personal_data_display {
|
$output .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="" />'; |
$output .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="" />'; |
} |
} |
} else { |
} else { |
|
my $canmodify = 0; |
if (&Apache::lonnet::allowed('mau',$ccdomain)) { |
if (&Apache::lonnet::allowed('mau',$ccdomain)) { |
|
$canmodify = 1; |
|
} else { |
|
if (ref($domconfig{'usermodification'}) eq 'HASH') { |
|
if (ref($domconfig{'usermodification'}{$context}) eq 'HASH') { |
|
foreach my $key (keys(%{$domconfig{'usermodification'}{$context}})) { |
|
if (ref($domconfig{'usermodification'}{$context}{$key}) eq 'HASH') { |
|
if ($domconfig{'usermodification'}{$context}{$key}{$item}) { |
|
$canmodify = 1; |
|
last; |
|
} |
|
} |
|
} |
|
} |
|
} elsif ($context eq 'course') { |
|
$canmodify = 1; |
|
} |
|
} |
|
if ($canmodify) { |
$output .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="'.$userenv{$item}.'" />'; |
$output .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="'.$userenv{$item}.'" />'; |
} else { |
} else { |
$output .= $userenv{$item}; |
$output .= $userenv{$item}; |
} |
} |
|
if ($item eq 'id') { |
|
$showforceid = $canmodify; |
|
} |
} |
} |
$output .= &Apache::lonhtmlcommon::row_closure(1); |
$output .= &Apache::lonhtmlcommon::row_closure(1); |
} |
} |
$output .= &Apache::lonhtmlcommon::end_pick_box(); |
$output .= &Apache::lonhtmlcommon::end_pick_box(); |
return $output; |
if (wantarray) { |
|
return ($output,$showforceid); |
|
} else { |
|
return $output; |
|
} |
} |
} |
|
|
# ================================================================= Phase Three |
# ================================================================= Phase Three |
sub update_user_data { |
sub update_user_data { |
my ($r) = @_; |
my ($r,$context) = @_; |
my $uhome=&Apache::lonnet::homeserver($env{'form.ccuname'}, |
my $uhome=&Apache::lonnet::homeserver($env{'form.ccuname'}, |
$env{'form.ccdomain'}); |
$env{'form.ccdomain'}); |
# Error messages |
# Error messages |
Line 1588 sub update_user_data {
|
Line 1607 sub update_user_data {
|
if ($tmp =~ /^(con_lost|error)/i) { |
if ($tmp =~ /^(con_lost|error)/i) { |
%userenv = (); |
%userenv = (); |
} |
} |
# Check to see if we need to change user information |
my $no_forceid_alert; |
|
# Check to see if user information can be changed |
|
my %domconfig = |
|
&Apache::lonnet::get_dom('configuration',['usermodification'], |
|
$env{'form.ccdomain'}); |
|
my @roletypes = ('active','future'); |
|
my %roles = &Apache::lonnet::get_my_roles($env{'form.ccuname'},$env{'form.ccdomain'},'userroles',\@roletypes,undef,$env{'request.role.domain'}); |
|
my @userroles; |
|
my ($cnum,$cdom,$auname,$audom); |
|
if ($context eq 'course') { |
|
$cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
if ($cnum eq '' || $cdom eq '') { |
|
my $cid = $env{'request.course.id'}; |
|
my %coursehash = |
|
&Apache::lonnet::coursedescription($cid,{'one_time' => 1}); |
|
$cdom = $coursehash{'domain'}; |
|
$cnum = $coursehash{'num'}; |
|
} |
|
} elsif ($context eq 'author') { |
|
$auname = $env{'user.name'}; |
|
$audom = $env{'user.domain'}; |
|
} |
|
foreach my $item (keys(%roles)) { |
|
my ($rolenum,$roledom,$role) = split(/:/,$item); |
|
if ($context eq 'course') { |
|
if ($cnum ne '' && $cdom ne '') { |
|
if ($rolenum eq $cnum && $roledom eq $cdom) { |
|
if (!grep(/^\Q$role\E$/,@userroles)) { |
|
push(@userroles,$role); |
|
} |
|
} |
|
} |
|
} elsif ($context eq 'author') { |
|
if ($rolenum eq $auname && $roledom eq $audom) { |
|
if (!grep(/^\Q$role\E$/,@userroles)) { |
|
push(@userroles,$role); |
|
} |
|
} |
|
} |
|
} |
|
# Check for course or co-author roles being activated or re-enabled |
|
if ($context eq 'author' || $context eq 'course') { |
|
foreach my $key (keys(%env)) { |
|
if ($context eq 'author') { |
|
if ($key=~/^form\.act_\Q$audom\E_\Q$auname\E_([^_]+)/) { |
|
if (!grep(/^\Q$1\E$/,@userroles)) { |
|
push(@userroles,$1); |
|
} |
|
} elsif ($key =~/^form\.ren\:\Q$audom\E\/\Q$auname\E_([^_]+)/) { |
|
if (!grep(/^\Q$1\E$/,@userroles)) { |
|
push(@userroles,$1); |
|
} |
|
} |
|
} elsif ($context eq 'course') { |
|
if ($key=~/^form\.act_\Q$cdom\E_\Q$cnum\E_([^_]+)/) { |
|
if (!grep(/^\Q$1\E$/,@userroles)) { |
|
push(@userroles,$1); |
|
} |
|
} elsif ($key =~/^form\.ren\:\Q$cdom\E\/\Q$cnum\E(\/?\w*)_([^_]+)/) { |
|
if (!grep(/^\Q$1\E$/,@userroles)) { |
|
push(@userroles,$1); |
|
} |
|
} |
|
} |
|
} |
|
} |
|
#Check to see if we can change personal data for the user |
|
my (@mod_disallowed,@longroles); |
|
foreach my $role (@userroles) { |
|
if ($role eq 'cr') { |
|
push(@longroles,'Custom'); |
|
} else { |
|
push(@longroles,&Apache::lonnet::plaintext($role)); |
|
} |
|
} |
foreach my $item ('firstname','middlename','lastname','generation','permanentemail','id') { |
foreach my $item ('firstname','middlename','lastname','generation','permanentemail','id') { |
|
my $canmodify = 0; |
|
if (&Apache::lonnet::allowed('mau',$env{'form.ccdomain'})) { |
|
$canmodify = 1; |
|
} else { |
|
if ($context eq 'course' || $context eq 'author') { |
|
if (ref($domconfig{'usermodification'}) eq 'HASH') { |
|
if (ref($domconfig{'usermodification'}{$context}) eq 'HASH') { |
|
foreach my $role (@userroles) { |
|
if (ref($domconfig{'usermodification'}{$context}{$role}) eq 'HASH') { |
|
if ($domconfig{'usermodification'}{$context}{$role}{$item}) { |
|
$canmodify = 1; |
|
last; |
|
} |
|
} |
|
} |
|
} |
|
} |
|
} elsif ($context eq 'course') { |
|
if (grep(/^st$/,@userroles)) { |
|
$canmodify = 1; |
|
} |
|
} |
|
} |
# Strip leading and trailing whitespace |
# Strip leading and trailing whitespace |
$env{'form.c'.$item} =~ s/(\s+$|^\s+)//g; |
$env{'form.c'.$item} =~ s/(\s+$|^\s+)//g; |
|
if (!$canmodify) { |
|
if ($env{'form.c'.$item} ne $userenv{$item}) { |
|
push(@mod_disallowed,$item); |
|
} |
|
$env{'form.c'.$item} = $userenv{$item}; |
|
} |
} |
} |
# Check to see if we can change the ID/student number |
# Check to see if we can change the ID/student number |
my $forceid = $env{'form.forceid'}; |
my $forceid = $env{'form.forceid'}; |
Line 1605 sub update_user_data {
|
Line 1728 sub update_user_data {
|
(!$forceid)) { |
(!$forceid)) { |
if ($env{'form.cid'} ne $uidhash{$env{'form.ccuname'}}) { |
if ($env{'form.cid'} ne $uidhash{$env{'form.ccuname'}}) { |
$env{'form.cid'} = $userenv{'id'}; |
$env{'form.cid'} = $userenv{'id'}; |
|
$no_forceid_alert = &mt('New student/employeeID does not match existing ID for this user.').'<br />'.&mt('Change is not permitted without checking the \'Force ID change\' checkbox on the previous page.').'<br />'."\n"; |
} |
} |
} |
} |
if ($env{'form.cid'} ne $userenv{'id'}) { |
if ($env{'form.cid'} ne $userenv{'id'}) { |
Line 1668 sub update_user_data {
|
Line 1792 sub update_user_data {
|
if ($newisdefault) { |
if ($newisdefault) { |
$newdefquotatext = &get_defaultquota_text($settingstatus); |
$newdefquotatext = &get_defaultquota_text($settingstatus); |
} |
} |
if (&Apache::lonnet::allowed('mau',$env{'form.ccdomain'}) && |
if ($env{'form.cfirstname'} ne $userenv{'firstname'} || |
($env{'form.cfirstname'} ne $userenv{'firstname'} || |
$env{'form.cmiddlename'} ne $userenv{'middlename'} || |
$env{'form.cmiddlename'} ne $userenv{'middlename'} || |
$env{'form.clastname'} ne $userenv{'lastname'} || |
$env{'form.clastname'} ne $userenv{'lastname'} || |
$env{'form.cgeneration'} ne $userenv{'generation'} || |
$env{'form.cgeneration'} ne $userenv{'generation'} || |
$env{'form.cid'} ne $userenv{'id'} || |
$env{'form.cid'} ne $userenv{'id'} || |
$env{'form.cpermanentemail'} ne $userenv{'permanentemail'} ) { |
$env{'form.cpermanentemail'} ne $userenv{'permanentemail'} )) { |
|
$namechanged = 1; |
$namechanged = 1; |
} |
} |
if ($namechanged || $quotachanged) { |
if ($namechanged || $quotachanged) { |
Line 1752 END
|
Line 1875 END
|
<td>$newportfolioquota Mb $newdefquotatext </td> |
<td>$newportfolioquota Mb $newdefquotatext </td> |
END |
END |
$r->print(&Apache::loncommon::end_data_table_row(). |
$r->print(&Apache::loncommon::end_data_table_row(). |
&Apache::loncommon::end_data_table()); |
&Apache::loncommon::end_data_table().'<br />'); |
if ($env{'form.cid'} ne $userenv{'id'}) { |
if ($env{'form.cid'} ne $userenv{'id'}) { |
&Apache::lonnet::idput($env{'form.ccdomain'}, |
&Apache::lonnet::idput($env{'form.ccdomain'}, |
($env{'form.ccuname'} => $env{'form.cid'})); |
($env{'form.ccuname'} => $env{'form.cid'})); |
Line 1783 END
|
Line 1906 END
|
} else { # error occurred |
} else { # error occurred |
$r->print('<span class="LC_error">'.&mt('Unable to successfully change environment for').' '. |
$r->print('<span class="LC_error">'.&mt('Unable to successfully change environment for').' '. |
$env{'form.ccuname'}.' '.&mt('in domain').' '. |
$env{'form.ccuname'}.' '.&mt('in domain').' '. |
$env{'form.ccdomain'}.'</span>'); |
$env{'form.ccdomain'}.'</span><br />'); |
} |
} |
} else { # End of if ($env ... ) logic |
} else { # End of if ($env ... ) logic |
# They did not want to change the users name or quota but we can |
# They did not want to change the users name or quota but we can |
Line 1803 END
|
Line 1926 END
|
$r->print('<br />['.$lt{'disk'}.': '.$oldportfolioquota.' Mb '. |
$r->print('<br />['.$lt{'disk'}.': '.$oldportfolioquota.' Mb '. |
$olddefquotatext.']</h4>'); |
$olddefquotatext.']</h4>'); |
} |
} |
|
if (@mod_disallowed) { |
|
my ($rolestr,$contextname); |
|
if (@longroles > 0) { |
|
$rolestr = join(', ',@longroles); |
|
} else { |
|
$rolestr = &mt('No roles'); |
|
} |
|
if ($context eq 'course') { |
|
$contextname = &mt('course'); |
|
} elsif ($context eq 'author') { |
|
$contextname = &mt('co-author'); |
|
} |
|
$r->print(&mt('The following fields were not updated: ').'<ul>'); |
|
my %fieldtitles = &Apache::loncommon::personal_data_fieldtitles(); |
|
foreach my $field (@mod_disallowed) { |
|
$r->print('<li>'.$fieldtitles{$field}.'</li>'."\n"); |
|
} |
|
$r->print('</ul>'.&mt("You do not have the authority to change these fields given the user's current set of active/future [_1] roles: <span class=\"LC_cusr_emph\">[_2]</span>.",$contextname,$rolestr).'<br />'.&mt('Contact your <a href="[_1]">helpdesk</a> for more information.',"javascript:helpMenu('display')").'<br />'); |
|
} |
|
$r->print($no_forceid_alert. |
|
&Apache::lonuserutils::print_namespacing_alerts($env{'form.ccdomain'},\%alerts, \%curr_rules)); |
} |
} |
## |
## |
my $now=time; |
my $now=time; |
Line 2412 sub handler {
|
Line 2556 sub handler {
|
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
$context = 'course'; |
$context = 'course'; |
} elsif ($env{'request.role'} =~ /^au\./) { |
} elsif ($env{'request.role'} =~ /^au\./) { |
$context = 'construction_space'; |
$context = 'author'; |
} else { |
} else { |
$context = 'domain'; |
$context = 'domain'; |
} |
} |
Line 2527 sub handler {
|
Line 2671 sub handler {
|
$context); |
$context); |
} |
} |
} elsif ($env{'form.phase'} eq 'update_user_data') { |
} elsif ($env{'form.phase'} eq 'update_user_data') { |
&update_user_data($r); |
&update_user_data($r,$context); |
} else { |
} else { |
&print_username_entry_form($r,undef,$srch); |
&print_username_entry_form($r,undef,$srch); |
} |
} |
Line 2723 sub get_permission {
|
Line 2867 sub get_permission {
|
} |
} |
} |
} |
} |
} |
} elsif ($context eq 'construction_space') { |
} elsif ($context eq 'author') { |
$permission{'cusr'} = &authorpriv($env{'user.name'},$env{'request.role.domain'}); |
$permission{'cusr'} = &authorpriv($env{'user.name'},$env{'request.role.domain'}); |
$permission{'view'} = $permission{'cusr'}; |
$permission{'view'} = $permission{'cusr'}; |
} else { |
} else { |