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

Diff for /loncom/interface/lonpickuser.pm between versions 1.4 and 1.6

version 1.4, 2009/09/06 19:09:54 version 1.6, 2016/09/05 01:46:08
Line 203  ENDSET Line 203  ENDSET
         ($srch{'srchtype'} eq 'exact') &&          ($srch{'srchtype'} eq 'exact') &&
         ($srch{'srchdomain'} ne '') &&          ($srch{'srchdomain'} ne '') &&
         ($srch{'srchterm'} ne '')) {          ($srch{'srchterm'} ne '')) {
           my (%curr_rules,%got_rules);
         my ($rules,$ruleorder) =          my ($rules,$ruleorder) =
             &Apache::lonnet::inst_userrules($srch{'srchdomain'},'username');              &Apache::lonnet::inst_userrules($srch{'srchdomain'},'username');
         $usertype = &Apache::lonuserutils::check_usertype($srch{'srchdomain'},          $usertype = &Apache::lonuserutils::check_usertype($srch{'srchdomain'},
                                                           $srch{'srchterm'},$rules);                                                            $srch{'srchterm'},$rules,
                                                             \%curr_rules,\%got_rules);
     }      }
   
     my $dom = $env{'form.coursedom'};      my $dom = $env{'form.coursedom'};
   
     my $cancreate =      my $cancreate =
         &Apache::lonuserutils::can_create_user($dom,$context,$usertype);          &Apache::lonuserutils::can_create_user($dom,$context,$usertype);
     my $userpicker =      my ($userpicker,$cansearch) =
        &Apache::loncommon::user_picker($dom,\%srch,$forcenewuser,         &Apache::loncommon::user_picker($dom,\%srch,$forcenewuser,
                                        'document.userpicker',$cancreate,$usertype);                                         'document.userpicker',$cancreate,
                                          $usertype,$context);
     my $srchbutton = &mt('Search');      my $srchbutton = &mt('Search');
   
     my $headertext = &mt('Search for a user to add to course personnel');        my $headertext = &mt('Search for a user to add to course personnel');  
Line 225  ENDSET Line 228  ENDSET
                        $env{'form.coursedom'}.'" />'."\n".                         $env{'form.coursedom'}.'" />'."\n".
                        &set_opener_elems();                         &set_opener_elems();
     unless ($env{'form.phase'} eq 'define_newuser') {       unless ($env{'form.phase'} eq 'define_newuser') { 
         $r->print(<<"ENDBLOCK");          if ($cansearch) {
               
               $r->print(<<"ENDBLOCK");
 <h3>$headertext</h3>  <h3>$headertext</h3>
 <form action="/adm/pickuser" method="post" name="userpicker">  <form action="/adm/pickuser" method="post" name="userpicker">
 $opener_elems  $opener_elems
Line 234  $userpicker Line 239  $userpicker
 <input name="userrole" type="button" value="$srchbutton" onclick="javascript:validateEntry(document.userpicker)" />  <input name="userrole" type="button" value="$srchbutton" onclick="javascript:validateEntry(document.userpicker)" />
 </form>  </form>
 ENDBLOCK  ENDBLOCK
           } else {
               $r->print(<<"ENDBLOCK");
   <form action="/adm/pickuser" method="post" name="userpicker">
   $opener_elems
   <input type="hidden" name="phase" value="get_user_info" />
   </form>
   ENDBLOCK
           }
     }      }
     if (($env{'form.phase'} eq 'get_user_info') && ($env{'form.srchterm'} ne '')) {      if (($env{'form.phase'} eq 'get_user_info') && ($env{'form.srchterm'} ne '')) {
         $r->print('<hr /><div>'.&mt('Searching ...').'</div>');          $r->print('<hr /><div>'.&mt('Searching ...').'</div>');
Removed from v.1.4  
changed lines
  Added in v.1.6

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