--- loncom/interface/lonpickuser.pm 2009/09/06 19:09:54 1.4 +++ loncom/interface/lonpickuser.pm 2016/09/05 01:46:08 1.6 @@ -1,7 +1,7 @@ # The LearningOnline Network # Search for a user # -# $Id: lonpickuser.pm,v 1.4 2009/09/06 19:09:54 raeburn Exp $ +# $Id: lonpickuser.pm,v 1.6 2016/09/05 01:46:08 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -203,19 +203,22 @@ ENDSET ($srch{'srchtype'} eq 'exact') && ($srch{'srchdomain'} ne '') && ($srch{'srchterm'} ne '')) { + my (%curr_rules,%got_rules); my ($rules,$ruleorder) = &Apache::lonnet::inst_userrules($srch{'srchdomain'},'username'); $usertype = &Apache::lonuserutils::check_usertype($srch{'srchdomain'}, - $srch{'srchterm'},$rules); + $srch{'srchterm'},$rules, + \%curr_rules,\%got_rules); } my $dom = $env{'form.coursedom'}; my $cancreate = &Apache::lonuserutils::can_create_user($dom,$context,$usertype); - my $userpicker = + my ($userpicker,$cansearch) = &Apache::loncommon::user_picker($dom,\%srch,$forcenewuser, - 'document.userpicker',$cancreate,$usertype); + 'document.userpicker',$cancreate, + $usertype,$context); my $srchbutton = &mt('Search'); my $headertext = &mt('Search for a user to add to course personnel'); @@ -225,7 +228,9 @@ ENDSET $env{'form.coursedom'}.'" />'."\n". &set_opener_elems(); unless ($env{'form.phase'} eq 'define_newuser') { - $r->print(<<"ENDBLOCK"); + if ($cansearch) { + + $r->print(<<"ENDBLOCK");

$headertext

$opener_elems @@ -234,6 +239,14 @@ $userpicker
ENDBLOCK + } else { + $r->print(<<"ENDBLOCK"); +
+$opener_elems + +
+ENDBLOCK + } } if (($env{'form.phase'} eq 'get_user_info') && ($env{'form.srchterm'} ne '')) { $r->print('
'.&mt('Searching ...').'
');