version 1.209, 2007/12/14 00:20:53
|
version 1.210, 2007/12/14 17:35:52
|
Line 738 $loginscript
|
Line 738 $loginscript
|
ENDTITLE |
ENDTITLE |
$r->print('<div class="LC_left_float">'); |
$r->print('<div class="LC_left_float">'); |
my $personal_table = |
my $personal_table = |
&personal_data_display($ccuname,$ccdomain,$newuser, |
&personal_data_display($ccuname,$ccdomain,$newuser,$context, |
$context,%inst_results); |
$inst_results{$ccuname.':'.$ccdomain}); |
$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 819 $forminfo
|
Line 819 $forminfo
|
ENDCHANGEUSER |
ENDCHANGEUSER |
$r->print('<div class="LC_left_float">'); |
$r->print('<div class="LC_left_float">'); |
my ($personal_table,$showforceid) = |
my ($personal_table,$showforceid) = |
&personal_data_display($ccuname,$ccdomain,$newuser, |
&personal_data_display($ccuname,$ccdomain,$newuser,$context, |
$context,%inst_results); |
$inst_results{$ccuname.':'.$ccdomain}); |
$r->print($personal_table); |
$r->print($personal_table); |
if ($showforceid) { |
if ($showforceid) { |
$r->print(&Apache::lonuserutils::forceid_change($context)); |
$r->print(&Apache::lonuserutils::forceid_change($context)); |
Line 1353 sub modify_login_block {
|
Line 1353 sub modify_login_block {
|
} |
} |
|
|
sub personal_data_display { |
sub personal_data_display { |
my ($ccuname,$ccdomain,$newuser,$context,%inst_results) = @_; |
my ($ccuname,$ccdomain,$newuser,$context,$inst_results) = @_; |
my ($output,$showforceid,%userenv,%domconfig); |
my ($output,$showforceid,%userenv,%domconfig); |
if (!$newuser) { |
if (!$newuser) { |
# Get the users information |
# Get the users information |
Line 1394 sub personal_data_display {
|
Line 1394 sub personal_data_display {
|
} |
} |
$output .= &Apache::lonhtmlcommon::row_title($rowtitle,undef,'LC_oddrow_value')."\n"; |
$output .= &Apache::lonhtmlcommon::row_title($rowtitle,undef,'LC_oddrow_value')."\n"; |
if ($newuser) { |
if ($newuser) { |
if ($inst_results{$item} ne '') { |
if (ref($inst_results) eq 'HASH') { |
$output .= '<input type="hidden" name="c'.$item.'" value="'.$inst_results{$item}.'" />'.$inst_results{$item}; |
if ($inst_results->{$item} ne '') { |
|
$output .= '<input type="hidden" name="c'.$item.'" value="'.$inst_results->{$item}.'" />'.$inst_results->{$item}; |
|
} else { |
|
$output .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="" />'; |
|
} |
} else { |
} else { |
$output .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="" />'; |
$output .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="" />'; |
} |
} |