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) = |