loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.172, 2007/08/15 16:25:14	version 1.173, 2007/08/16 21:16:39
Line 783 ENDCHANGEUSER	Line 783 ENDCHANGEUSER
'<th>'.$lt{'fn'}.'</th><th>'.$lt{'mn'}.'</th><th>'.$lt{'ln'}.'</th><th>'.$lt{'gen'}.'</th><th>'.$lt{'email'}.'</th>'.	'<th>'.$lt{'fn'}.'</th><th>'.$lt{'mn'}.'</th><th>'.$lt{'ln'}.'</th><th>'.$lt{'gen'}.'</th><th>'.$lt{'email'}.'</th>'.
&Apache::loncommon::end_data_table_header_row().	&Apache::loncommon::end_data_table_header_row().
&Apache::loncommon::start_data_table_row());	&Apache::loncommon::start_data_table_row());
foreach my $item ('firstname','middlename','lastname','generation','permenanentemail') {	foreach my $item ('firstname','middlename','lastname','generation','permanentemail') {
if (&Apache::lonnet::allowed('mau',$ccdomain)) {	if (&Apache::lonnet::allowed('mau',$ccdomain)) {
$r->print(<<"END");	$r->print(<<"END");
<td><input type="text" name="c$item" value="$userenv{$item}" size="15" /></td>	<td><input type="text" name="c$item" value="$userenv{$item}" size="15" /></td>
Line 1471 sub update_user_data {	Line 1471 sub update_user_data {
<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{'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>