loncom/interface/createaccount.pm - diff

Return to createaccount.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.65, 2014/05/05 21:28:10	version 1.67, 2014/05/30 16:46:03
Line 1003 sub get_creation_controls {	Line 1003 sub get_creation_controls {
if (ref($usercreation->{'cancreate'}{'emailusername'}) eq 'HASH') {	if (ref($usercreation->{'cancreate'}{'emailusername'}) eq 'HASH') {
$emailusername = $usercreation->{'cancreate'}{'emailusername'};	$emailusername = $usercreation->{'cancreate'}{'emailusername'};
} else {	} else {
$emailusername = {'lastname' => '1', 'firstname' => 1, };	$emailusername = {
	default => {
	'lastname' => '1',
	'firstname' => 1,
	},
	};
}	}
}	}
}	}
Line 1230 sub username_check {	Line 1235 sub username_check {
$output = '<form method="post" action="/adm/createaccount">';	$output = '<form method="post" action="/adm/createaccount">';
if (ref($shibenv) eq 'HASH') {	if (ref($shibenv) eq 'HASH') {
foreach my $key (keys(%{$shibenv})) {	foreach my $key (keys(%{$shibenv})) {
$inst_results{$username.':'.$domain}{$key} = $shibenv->{$key};	if ($ENV{$shibenv->{$key}} ne '') {
	$inst_results{$username.':'.$domain}{$key} = $ENV{$shibenv->{$key}};
	}
}	}
}	}
(my $datatable,$rowcount,$editable) =	(my $datatable,$rowcount,$editable) =