[LON-CAPA-cvs] cvs: loncom(version_2_9_X) /interface loncreateuser.pm

[raeburn]

raeburn		Thu Aug 27 13:28:19 2009 EDT

  Modified files:              (Branch: version_2_9_X)
    /loncom/interface	loncreateuser.pm 
  Log:
  - Backport 1.310.
  
  
Index: loncom/interface/loncreateuser.pm
diff -u loncom/interface/loncreateuser.pm:1.295.2.10 loncom/interface/loncreateuser.pm:1.295.2.11
--- loncom/interface/loncreateuser.pm:1.295.2.10	Sun Aug 23 13:09:54 2009
+++ loncom/interface/loncreateuser.pm	Thu Aug 27 13:28:18 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.295.2.10 2009/08/23 13:09:54 raeburn Exp $
+# $Id: loncreateuser.pm,v 1.295.2.11 2009/08/27 13:28:18 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5130,6 +5130,15 @@
                                 &build_search_response($context,$srch,%srch_results);
                         } else {
                             $currstate = 'modify';
+                            my $uname = $srch->{'srchterm'};
+                            my $udom = $srch->{'srchdomain'};
+                            $srch_results{$uname.':'.$udom} =
+                                { &Apache::lonnet::get('environment',
+                                                       ['firstname',
+                                                        'lastname',
+                                                        'permanentemail'],
+                                                         $udom,$uname)
+                                };
                         }
                     } else {
                         %srch_results = &Apache::lonnet::usersearch($srch);