version 1.200, 2007/12/05 17:31:28
|
version 1.201, 2007/12/05 17:40:29
|
Line 1700 sub update_user_data {
|
Line 1700 sub update_user_data {
|
'prvs' => "Previous", |
'prvs' => "Previous", |
'chto' => "Changed To" |
'chto' => "Changed To" |
); |
); |
|
$r->print('<h4>'.$lt{'uic'}.'</h4>'. |
|
&Apache::loncommon::start_data_table(). |
|
&Apache::loncommon::start_data_table_header_row()); |
$r->print(<<"END"); |
$r->print(<<"END"); |
<table border="2"> |
<th> </th> |
<caption>$lt{'uic'}</caption> |
|
<tr><th> </th> |
|
<th>$lt{'frst'}</th> |
<th>$lt{'frst'}</th> |
<th>$lt{'mddl'}</th> |
<th>$lt{'mddl'}</th> |
<th>$lt{'lst'}</th> |
<th>$lt{'lst'}</th> |
<th>$lt{'gen'}</th> |
<th>$lt{'gen'}</th> |
<th>$lt{'id'}</th> |
<th>$lt{'id'}</th> |
<th>$lt{'mail'}</th> |
<th>$lt{'mail'}</th> |
<th>$lt{'disk'}</th></tr> |
<th>$lt{'disk'}</th> |
<tr><td>$lt{'prvs'}</td> |
END |
|
$r->print(&Apache::loncommon::end_data_table_header_row(). |
|
&Apache::loncommon::start_data_table_row()); |
|
$r->print(<<"END"); |
|
<td><b>$lt{'prvs'}</b></td> |
<td>$userenv{'firstname'} </td> |
<td>$userenv{'firstname'} </td> |
<td>$userenv{'middlename'} </td> |
<td>$userenv{'middlename'} </td> |
<td>$userenv{'lastname'} </td> |
<td>$userenv{'lastname'} </td> |
Line 1719 sub update_user_data {
|
Line 1724 sub update_user_data {
|
<td>$userenv{'id'}</td> |
<td>$userenv{'id'}</td> |
<td>$userenv{'permanentemail'} </td> |
<td>$userenv{'permanentemail'} </td> |
<td>$oldportfolioquota Mb</td> |
<td>$oldportfolioquota Mb</td> |
</tr> |
END |
<tr><td>$lt{'chto'}</td> |
$r->print(&Apache::loncommon::end_data_table_row(). |
|
&Apache::loncommon::start_data_table_row()); |
|
$r->print(<<"END"); |
|
<td><b>$lt{'chto'}</b></td> |
<td>$env{'form.cfirstname'} </td> |
<td>$env{'form.cfirstname'} </td> |
<td>$env{'form.cmiddlename'} </td> |
<td>$env{'form.cmiddlename'} </td> |
<td>$env{'form.clastname'} </td> |
<td>$env{'form.clastname'} </td> |
<td>$env{'form.cgeneration'} </td> |
<td>$env{'form.cgeneration'} </td> |
<td>$env{'form.cid'} </td> |
<td>$env{'form.cid'} </td> |
<td>$env{'form.cpermanentemail'} </td> |
<td>$env{'form.cpermanentemail'} </td> |
<td>$newportfolioquota Mb $defquotatext </td></tr> |
<td>$newportfolioquota Mb $defquotatext </td> |
</table> |
|
END |
END |
|
$r->print(&Apache::loncommon::end_data_table_row(). |
|
&Apache::loncommon::end_data_table()); |
if (($forceid) && ($recurseid) && (!$disallowed_id) && |
if (($forceid) && ($recurseid) && (!$disallowed_id) && |
(&Apache::lonnet::allowed('mau',$env{'form.ccdomain'}))) { |
(&Apache::lonnet::allowed('mau',$env{'form.ccdomain'}))) { |
my %userupdate = ( |
my %userupdate = ( |