--- loncom/interface/createaccount.pm	2014/05/05 21:28:10	1.65
+++ loncom/interface/createaccount.pm	2014/05/05 22:01:15	1.66
@@ -4,7 +4,7 @@
 # kerberos, or SSO) or an e-mail address. Requests to use an e-mail address as
 # username may be processed automatically, or may be queued for approval.
 #
-# $Id: createaccount.pm,v 1.65 2014/05/05 21:28:10 raeburn Exp $
+# $Id: createaccount.pm,v 1.66 2014/05/05 22:01:15 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1230,7 +1230,9 @@ sub username_check {
         $output = '<form method="post" action="/adm/createaccount">';
         if (ref($shibenv) eq 'HASH') {
             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) =