--- loncom/interface/loncommon.pm	2007/07/25 23:20:38	1.554
+++ loncom/interface/loncommon.pm	2007/07/28 21:38:29	1.555
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.554 2007/07/25 23:20:38 albertel Exp $
+# $Id: loncommon.pm,v 1.555 2007/07/28 21:38:29 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5532,6 +5532,120 @@ sub get_secgrprole_info {
     return (\@sections,\@groups,$allroles,$rolehash,$accesshash);
 }
 
+sub user_picker {
+    my ($dom,$srch,$forcenewuser) = @_;
+    my $currdom = $dom;
+    my %curr_selected = (
+                        srchin => 'dom',
+                        srchby => 'uname',
+                      );
+    my $srchterm;
+    if (ref($srch) eq 'HASH') {
+        if ($srch->{'srchby'} ne '') {
+            $curr_selected{'srchby'} = $srch->{'srchby'};
+        }
+        if ($srch->{'srchin'} ne '') {
+            $curr_selected{'srchin'} = $srch->{'srchin'};
+        }
+        if ($srch->{'srchtype'} ne '') {
+            $curr_selected{'srchtype'} = $srch->{'srchtype'};
+        }
+        if ($srch->{'srchdomain'} ne '') {
+            $currdom = $srch->{'srchdomain'};
+        }
+        $srchterm = $srch->{'srchterm'};
+    }
+
+    my %lt=&Apache::lonlocal::texthash(
+                    'usr'  => 'Search for',
+                    'or'   => 'or',
+                    'in'   => 'in',
+                    'doma' => 'domain',
+                    'uname' => 'username',
+                    'lastname' => 'last name',
+                    'lastfirst' => 'last name, first name',
+                    'crs' => 'this course',
+                    'dom' => 'this domain', 
+                    'alc' => 'all LON-CAPA',
+                    'instd' => 'institutional directory',
+                    'exact' => 'as exact match to',
+                    'contains' => 'contained in',
+                                       );
+    my $domform = &select_dom_form($currdom,'srchdomain',1);
+
+    my $srchinsel = ' <select name="srchin">';
+
+    my @srchins = ('crs','dom','alc','instd');
+
+    foreach my $option (@srchins) {
+        # FIXME 'alc' option unavailable until 
+        #       loncreateuser::print_user_query_page()
+        #       has been completed.
+        next if ($option eq 'alc');
+        next if ($option eq 'crs' && !$env{'request.course.id'});
+        if ($curr_selected{'srchin'} eq $option) {
+            $srchinsel .= ' 
+   <option value="'.$option.'" selected="selected">'.$lt{$option}.'</option>';
+        } else {
+            $srchinsel .= '
+   <option value="'.$option.'">'.$lt{$option}.'</option>';
+        }
+    }
+    $srchinsel .= "\n  </select>\n";
+
+    my $srchbysel =  ' <select name="srchby">';
+    foreach my $option ('uname','lastname','lastfirst') {
+        if ($curr_selected{'srchby'} eq $option) {
+            $srchbysel .= '
+   <option value="'.$option.'" selected="selected">'.$lt{$option}.'</option>';
+        } else {
+            $srchbysel .= '
+   <option value="'.$option.'">'.$lt{$option}.'</option>';
+         }
+    }
+    $srchbysel .= "\n  </select>\n";
+
+    my $srchtypesel = ' <select name="srchtype">';
+    foreach my $option ('exact','contains') {
+        if ($curr_selected{'srchtype'} eq $option) {
+            $srchtypesel .= '
+   <option value="'.$option.'" selected="selected">'.$lt{$option}.'</option>';
+        } else {
+            $srchtypesel .= '
+   <option value="'.$option.'">'.$lt{$option}.'</option>';
+        }
+    }
+    $srchtypesel .= "\n  </select>\n";
+
+    my $output = <<"END_BLOCK";
+<table>
+<tr>
+ <td align="right">$lt{'usr'}:</td><td><input type="text" size="15" name="srchterm" value="$srchterm" /></td>
+ <td>
+$srchtypesel
+ </td>
+ <td>
+$srchbysel
+ </td>
+</tr>
+<tr>
+ <td align="right">$lt{'in'}:</td>
+ <td colspan="2">
+$srchinsel
+ </td>
+</tr>
+<tr>
+ <td align="right">$lt{'doma'}:</td><td colspan="2">$domform</td>
+</tr>
+</table>
+<br />
+END_BLOCK
+    if ($forcenewuser) {
+        $output .= '<span class="LC_nobreak">'.&mt('Make new user if no match found: ').'<input type="radio" name="forcenew" value="1" onclick="javascript:setSearch()" />'.&mt('Yes').'&nbsp;&nbsp;<input type="radio" name="forcenew" value="0" checked="checked" />'.&mt('No').'</span><br />';
+    }
+    return $output;
+}
+
 =pod
 
 =back