--- loncom/interface/lonpickuser.pm 2011/01/05 18:39:38 1.5 +++ 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.5 2011/01/05 18:39:38 raeburn Exp $ +# $Id: lonpickuser.pm,v 1.6 2016/09/05 01:46:08 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -215,7 +215,7 @@ ENDSET 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,$context); @@ -228,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 @@ -237,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 ...').'
');