loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.309, 2009/08/22 21:09:46	version 1.311, 2009/08/28 00:02:37
Line 110 sub initialize_authen_forms {	Line 110 sub initialize_authen_forms {

sub auth_abbrev {	sub auth_abbrev {
my %abv_auth = (	my %abv_auth = (
	krb5 => 'krb',
krb4 => 'krb',	krb4 => 'krb',
internal => 'int',	internal => 'int',
localuth => 'loc',	localuth => 'loc',
Line 5235 sub user_search_result {	Line 5236 sub user_search_result {
&build_search_response($context,$srch,%srch_results);	&build_search_response($context,$srch,%srch_results);
} else {	} else {
$currstate = 'modify';	$currstate = 'modify';
	my $uname = $srch->{'srchterm'};
	my $udom = $srch->{'srchdomain'};
	$srch_results{$uname.':'.$udom} =
	{ &Apache::lonnet::get('environment',
	['firstname',
	'lastname',
	'permanentemail'],
	$udom,$uname)
	};
}	}
} else {	} else {
%srch_results = &Apache::lonnet::usersearch($srch);	%srch_results = &Apache::lonnet::usersearch($srch);