--- loncom/interface/loncreateuser.pm 2007/12/05 16:49:55 1.198
+++ loncom/interface/loncreateuser.pm 2007/12/05 17:40:29 1.201
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Create a user
#
-# $Id: loncreateuser.pm,v 1.198 2007/12/05 16:49:55 raeburn Exp $
+# $Id: loncreateuser.pm,v 1.201 2007/12/05 17:40:29 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -718,9 +718,6 @@ $lt{'hs'}: $home_server_pick
} else {
$r->print($home_server_pick);
}
- if ($context eq 'domain') {
- $r->print(&Apache::lonuserutils::forceid_change());
- }
$r->print(''."\n".'
'.
$lt{'lg'}.'
');
my ($fixedauth,$varauth,$authmsg);
@@ -788,8 +785,11 @@ $forminfo
ENDCHANGEUSER
$r->print('
'.
&personal_data_display($ccuname,$ccdomain,$newuser,
- %inst_results).
- '
');
+ %inst_results));
+ if ($context eq 'domain') {
+ $r->print(&Apache::lonuserutils::forceid_change());
+ }
+ $r->print('
');
my $user_auth_text =
&user_authentication($ccuname,$ccdomain,$krbdefdom,\%abv_auth);
my $user_quota_text;
@@ -1198,6 +1198,10 @@ ENDBADAUTH
}
} else { # Authentication type is valid
&initialize_authen_forms($ccdomain,$currentauth);
+ my $authformnop_row;
+ 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);
if (&Apache::lonnet::allowed('mau',$ccdomain)) {
@@ -1213,7 +1217,7 @@ ENDBADAUTH
''."\n".
''.$lt{'ld'}.'
'.
&Apache::loncommon::start_data_table().
- &Apache::loncommon::start_data_table_row().
+ $authformnop_row.
''.$authformnop;
if ($can_modify) {
$outcome .= ' | '."\n".
@@ -1222,7 +1226,8 @@ ENDBADAUTH
''.$authformcurrent.' | '.
&Apache::loncommon::end_data_table_row()."\n";
} else {
- $outcome .= ' ('.$authformcurrent.')';
+ $outcome .= ' ('.$authformcurrent.')'.
+ &Apache::loncommon::end_data_table_row()."\n";
}
if ($authform_other ne '') {
$outcome .= $authform_other;
@@ -1695,18 +1700,23 @@ sub update_user_data {
'prvs' => "Previous",
'chto' => "Changed To"
);
+ $r->print(''.$lt{'uic'}.'
'.
+ &Apache::loncommon::start_data_table().
+ &Apache::loncommon::start_data_table_header_row());
$r->print(<<"END");
-
-$lt{'uic'}
- |
+ |
$lt{'frst'} |
$lt{'mddl'} |
$lt{'lst'} |
$lt{'gen'} |
$lt{'id'} |
$lt{'mail'} |
- $lt{'disk'} |
-$lt{'prvs'} |
+ $lt{'disk'} |
+END
+ $r->print(&Apache::loncommon::end_data_table_header_row().
+ &Apache::loncommon::start_data_table_row());
+ $r->print(<<"END");
+ $lt{'prvs'} |
$userenv{'firstname'} |
$userenv{'middlename'} |
$userenv{'lastname'} |
@@ -1714,17 +1724,21 @@ sub update_user_data {
$userenv{'id'} |
$userenv{'permanentemail'} |
$oldportfolioquota Mb |
-
-$lt{'chto'} |
+END
+ $r->print(&Apache::loncommon::end_data_table_row().
+ &Apache::loncommon::start_data_table_row());
+ $r->print(<<"END");
+ $lt{'chto'} |
$env{'form.cfirstname'} |
$env{'form.cmiddlename'} |
$env{'form.clastname'} |
$env{'form.cgeneration'} |
$env{'form.cid'} |
$env{'form.cpermanentemail'} |
- $newportfolioquota Mb $defquotatext |
-
+ $newportfolioquota Mb $defquotatext |
END
+ $r->print(&Apache::loncommon::end_data_table_row().
+ &Apache::loncommon::end_data_table());
if (($forceid) && ($recurseid) && (!$disallowed_id) &&
(&Apache::lonnet::allowed('mau',$env{'form.ccdomain'}))) {
my %userupdate = (