[LON-CAPA-cvs] cvs: loncom /interface createaccount.pm

[raeburn]

raeburn		Mon May  5 22:01:16 2014 EDT

  Modified files:              
    /loncom/interface	createaccount.pm 
  Log:
  - Domain configuration for self-creation of accounts by users authenticated
    via Shibboleth SSO.
    - Actually check in %ENV with the variable saved in the domain config. 
  
  
Index: loncom/interface/createaccount.pm
diff -u loncom/interface/createaccount.pm:1.65 loncom/interface/createaccount.pm:1.66
--- loncom/interface/createaccount.pm:1.65	Mon May  5 21:28:10 2014
+++ loncom/interface/createaccount.pm	Mon May  5 22:01:15 2014
@@ -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 @@
         $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) =