--- loncom/interface/loncommon.pm	2007/12/08 19:19:02	1.623
+++ loncom/interface/loncommon.pm	2007/12/12 23:59:41	1.625
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.623 2007/12/08 19:19:02 raeburn Exp $
+# $Id: loncommon.pm,v 1.625 2007/12/12 23:59:41 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -6243,7 +6243,7 @@ sub user_picker {
                         srchby => 'lastname',
                       );
     my $srchterm;
-    if (ref($srch) eq 'HASH') {
+    if ((ref($srch) eq 'HASH') && ($env{'form.origform'} ne 'crtusername')) {
         if ($srch->{'srchby'} ne '') {
             $curr_selected{'srchby'} = $srch->{'srchby'};
         }
@@ -6598,6 +6598,19 @@ sub instrule_disallow_msg {
     return $response;
 }
 
+sub personal_data_fieldtitles {
+    my %fieldtitles = &Apache::lonlocal::texthash (
+                        id => 'Student/Employee ID',
+                        permanentemail => 'E-mail address',
+                        lastname => 'Last Name',
+                        firstname => 'First Name',
+                        middlename => 'Middle Name',
+                        generation => 'Generation',
+                        gen => 'Generation',
+                   );
+    return %fieldtitles;
+}
+
 =pod
 
 =back