version 1.387, 2014/01/22 18:01:43
|
version 1.388, 2014/02/05 18:02:16
|
Line 1273 ENDTITLE
|
Line 1273 ENDTITLE
|
my $personal_table = |
my $personal_table = |
&personal_data_display($ccuname,$ccdomain,$newuser,$context, |
&personal_data_display($ccuname,$ccdomain,$newuser,$context, |
$inst_results{$ccuname.':'.$ccdomain}); |
$inst_results{$ccuname.':'.$ccdomain}); |
|
# (Do not offer Disable Safeguard here) |
$r->print($personal_table); |
$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', |
Line 1381 ENDCHANGEUSER
|
Line 1382 ENDCHANGEUSER
|
} |
} |
$r->print(' "'.$ccuname.'" '.$lt{'id'}.' "'.$ccdomain.'"</h2>'. |
$r->print(' "'.$ccuname.'" '.$lt{'id'}.' "'.$ccdomain.'"</h2>'. |
"\n".'<div class="LC_left_float">'); |
"\n".'<div class="LC_left_float">'); |
my ($personal_table,$showforceid) = |
my $personal_table = |
&personal_data_display($ccuname,$ccdomain,$newuser,$context, |
&personal_data_display($ccuname,$ccdomain,$newuser,$context, |
$inst_results{$ccuname.':'.$ccdomain}); |
$inst_results{$ccuname.':'.$ccdomain}); |
$r->print($personal_table); |
$r->print($personal_table); |
if ($showforceid) { |
|
$r->print('<table>'.&Apache::lonuserutils::forceid_change($context).'</table>'); |
|
} |
|
if (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) { |
if (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) { |
$r->print('<br /><h3>'.&mt('User Can Request Creation of Courses/Communities in this Domain?').'</h3>'. |
$r->print('<br /><h3>'.&mt('User Can Request Creation of Courses/Communities in this Domain?').'</h3>'. |
&Apache::loncommon::start_data_table()); |
&Apache::loncommon::start_data_table()); |
Line 2170 sub modify_login_block {
|
Line 2168 sub modify_login_block {
|
|
|
sub personal_data_display { |
sub personal_data_display { |
my ($ccuname,$ccdomain,$newuser,$context,$inst_results,$rolesarray) = @_; |
my ($ccuname,$ccdomain,$newuser,$context,$inst_results,$rolesarray) = @_; |
my ($output,$showforceid,%userenv,%canmodify,%canmodify_status); |
my ($output,%userenv,%canmodify,%canmodify_status); |
my @userinfo = ('firstname','middlename','lastname','generation', |
my @userinfo = ('firstname','middlename','lastname','generation', |
'permanentemail','id'); |
'permanentemail','id'); |
my $rowcount = 0; |
my $rowcount = 0; |
Line 2257 sub personal_data_display {
|
Line 2255 sub personal_data_display {
|
} else { |
} else { |
$row .= $userenv{$item}; |
$row .= $userenv{$item}; |
} |
} |
if ($item eq 'id') { |
if (($item eq 'id') && ($canmodify{$item})) { |
$showforceid = $canmodify{$item}; |
$row .= '<br />'.&Apache::lonuserutils::forceid_change($context); |
} |
} |
} |
} |
$row .= &Apache::lonhtmlcommon::row_closure(1); |
$row .= &Apache::lonhtmlcommon::row_closure(1); |
Line 2309 sub personal_data_display {
|
Line 2307 sub personal_data_display {
|
if ($context eq 'selfcreate') { |
if ($context eq 'selfcreate') { |
return($output,$rowcount,$editable); |
return($output,$rowcount,$editable); |
} else { |
} else { |
return ($output,$showforceid); |
return $output; |
} |
} |
} else { |
} else { |
return $output; |
return $output; |