version 1.295.2.33, 2010/04/23 17:51:42
|
version 1.295.2.36, 2010/11/01 13:54:00
|
Line 1461 sub display_existing_roles {
|
Line 1461 sub display_existing_roles {
|
$rolesdump{$newkey} = $newvalue; |
$rolesdump{$newkey} = $newvalue; |
} |
} |
} else { |
} else { |
%rolesdump=&Apache::lonnet::dump('roles',$ccdomain,$ccuname); |
my $extra = &Apache::lonnet::freeze_escape({'skipcheck' => 1}); |
|
%rolesdump=&Apache::lonnet::dump('roles',$ccdomain,$ccuname,'.',undef,$extra); |
} |
} |
# Build up table of user roles to allow revocation and re-enabling of roles. |
# Build up table of user roles to allow revocation and re-enabling of roles. |
my ($tmp) = keys(%rolesdump); |
my ($tmp) = keys(%rolesdump); |
Line 1613 sub display_existing_roles {
|
Line 1614 sub display_existing_roles {
|
$plaintext=&Apache::lonnet::plaintext($role_code,$class) |
$plaintext=&Apache::lonnet::plaintext($role_code,$class) |
} else { |
} else { |
$plaintext= |
$plaintext= |
"Customrole '$croletitle'<br />defined by $croleuname\@$croleudom"; |
&mt('Customrole [_1][_2]defined by [_3]', |
|
'"'.$croletitle.'"', |
|
'<br />', |
|
$croleuname.':'.$croleudom); |
} |
} |
$row.= '</td><td>'.$plaintext. |
$row.= '</td><td>'.$plaintext. |
'</td><td>'.$area. |
'</td><td>'.$area. |
Line 2297 sub update_user_data {
|
Line 2301 sub update_user_data {
|
|
|
$r->print('<h3>'.&mt('User [_1] in domain [_2]', |
$r->print('<h3>'.&mt('User [_1] in domain [_2]', |
$env{'form.ccuname'}, $env{'form.ccdomain'}).'</h3>'); |
$env{'form.ccuname'}, $env{'form.ccdomain'}).'</h3>'); |
|
$r->print('<p class="LC_info">'.&mt('Please be patient').'</p>'); |
my (%alerts,%rulematch,%inst_results,%curr_rules); |
my (%alerts,%rulematch,%inst_results,%curr_rules); |
my @userinfo = ('firstname','middlename','lastname','generation','permanentemail','id'); |
my @userinfo = ('firstname','middlename','lastname','generation','permanentemail','id'); |
my @usertools = ('aboutme','blog','portfolio'); |
my @usertools = ('aboutme','blog','portfolio'); |
Line 2438 sub update_user_data {
|
Line 2443 sub update_user_data {
|
$r->print($error.&mt('You do not have the authority to modify this users authentification information').'.'.$end); |
$r->print($error.&mt('You do not have the authority to modify this users authentification information').'.'.$end); |
} |
} |
} |
} |
|
|
|
$r->rflush(); # Finish display of header before time consuming actions start |
|
|
## |
## |
my (@userroles,%userupdate,$cnum,$cdom,$crstype,%namechanged); |
my (@userroles,%userupdate,$cnum,$cdom,%namechanged); |
if ($context eq 'course') { |
if ($context eq 'course') { |
($cnum,$cdom) = &Apache::lonuserutils::get_course_identity(); |
($cnum,$cdom) = &Apache::lonuserutils::get_course_identity(); |
$crstype = &Apache::loncommon::course_type($cdom.'_'.$cnum); |
$crstype = &Apache::loncommon::course_type($cdom.'_'.$cnum); |
Line 4867 ENDSCRIPT
|
Line 4875 ENDSCRIPT
|
'<input type="checkbox" name="selfenroll_notify"'.$notifyon.' value="'.$cc.'" />'. |
'<input type="checkbox" name="selfenroll_notify"'.$notifyon.' value="'.$cc.'" />'. |
&Apache::loncommon::plainname($ccuname,$ccudom). |
&Apache::loncommon::plainname($ccuname,$ccudom). |
'</label></span></td>'; |
'</label></span></td>'; |
$count; |
$count ++; |
} |
} |
my $rem = $count%$numcols; |
my $rem = $count%$numcols; |
if ($rem) { |
if ($rem) { |
Line 4884 ENDSCRIPT
|
Line 4892 ENDSCRIPT
|
my $cid = $env{'request.course.id'}; |
my $cid = $env{'request.course.id'}; |
my $currlim = $env{'course.'.$cid.'.internal.selfenroll_limit'}; |
my $currlim = $env{'course.'.$cid.'.internal.selfenroll_limit'}; |
my $currcap = $env{'course.'.$cid.'.internal.selfenroll_cap'}; |
my $currcap = $env{'course.'.$cid.'.internal.selfenroll_cap'}; |
my $nolimit = ' checked="checked" '; |
$nolimit = ' checked="checked" '; |
if ($currlim eq 'allstudents') { |
if ($currlim eq 'allstudents') { |
$crslimit = ' checked="checked" '; |
$crslimit = ' checked="checked" '; |
$selflimit = ' '; |
$selflimit = ' '; |