loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.173, 2007/08/16 21:16:39	version 1.175, 2007/08/16 21:48:20
Line 1446 sub update_user_data {	Line 1446 sub update_user_data {
$changeHash{'middlename'} = $env{'form.cmiddlename'};	$changeHash{'middlename'} = $env{'form.cmiddlename'};
$changeHash{'lastname'} = $env{'form.clastname'};	$changeHash{'lastname'} = $env{'form.clastname'};
$changeHash{'generation'} = $env{'form.cgeneration'};	$changeHash{'generation'} = $env{'form.cgeneration'};
$changeHash{'permanentemail'} = $env{'form.permanentemail'};	$changeHash{'permanentemail'} = $env{'form.cpermanentemail'};
my $putresult = &Apache::lonnet::put	my $putresult = &Apache::lonnet::put
('environment',\%changeHash,	('environment',\%changeHash,
$env{'form.ccdomain'},$env{'form.ccuname'});	$env{'form.ccdomain'},$env{'form.ccuname'});
Line 1472 sub update_user_data {	Line 1472 sub update_user_data {
<th>$lt{'lst'}</th>	<th>$lt{'lst'}</th>
<th>$lt{'gen'}</th>	<th>$lt{'gen'}</th>
<th>$lt{'mail'}</th>	<th>$lt{'mail'}</th>
<th>$lt{'disk'}<th></tr>	<th>$lt{'disk'}</th></tr>
<tr><td>$lt{'prvs'}</td>	<tr><td>$lt{'prvs'}</td>
<td>$userenv{'firstname'} </td>	<td>$userenv{'firstname'} </td>
<td>$userenv{'middlename'} </td>	<td>$userenv{'middlename'} </td>