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.66, 2014/05/05 22:01:15
Line 1230 sub username_check {	Line 1230 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) =