--- loncom/interface/loncreateuser.pm 2007/12/05 17:31:28 1.200 +++ 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.200 2007/12/05 17:31:28 raeburn Exp $ +# $Id: loncreateuser.pm,v 1.201 2007/12/05 17:40:29 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1700,18 +1700,23 @@ sub update_user_data { 'prvs' => "Previous", 'chto' => "Changed To" ); + $r->print('
+ | $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'} | @@ -1719,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 |