[BACK]Return to loncommon.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.554 and 1.555

version 1.554, 2007/07/25 23:20:38 version 1.555, 2007/07/28 21:38:29
Line 5532  sub get_secgrprole_info { Line 5532  sub get_secgrprole_info {
     return (\@sections,\@groups,$allroles,$rolehash,$accesshash);      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  =pod
   
 =back  =back
Removed from v.1.554  
changed lines
  Added in v.1.555

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>