loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.198, 2007/12/05 16:49:55	version 1.199, 2007/12/05 17:13:34
Line 718 $lt{'hs'}: $home_server_pick	Line 718 $lt{'hs'}: $home_server_pick
} else {	} else {
$r->print($home_server_pick);	$r->print($home_server_pick);
}	}
if ($context eq 'domain') {
$r->print(&Apache::lonuserutils::forceid_change());
}
$r->print('</div>'."\n".'<div class="LC_left_float"><h3>'.	$r->print('</div>'."\n".'<div class="LC_left_float"><h3>'.
$lt{'lg'}.'</h3>');	$lt{'lg'}.'</h3>');
my ($fixedauth,$varauth,$authmsg);	my ($fixedauth,$varauth,$authmsg);
Line 788 $forminfo	Line 785 $forminfo
ENDCHANGEUSER	ENDCHANGEUSER
$r->print('<div class="LC_left_float">'.	$r->print('<div class="LC_left_float">'.
&personal_data_display($ccuname,$ccdomain,$newuser,	&personal_data_display($ccuname,$ccdomain,$newuser,
%inst_results).	%inst_results));
'</div>');	if ($context eq 'domain') {
	$r->print(&Apache::lonuserutils::forceid_change());
	}
	$r->print('</div>');
my $user_auth_text =	my $user_auth_text =
&user_authentication($ccuname,$ccdomain,$krbdefdom,\%abv_auth);	&user_authentication($ccuname,$ccdomain,$krbdefdom,\%abv_auth);
my $user_quota_text;	my $user_quota_text;