--- loncom/interface/loncommon.pm 2017/03/21 23:19:29 1.1278 +++ loncom/interface/loncommon.pm 2017/03/30 14:08:18 1.1279 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.1278 2017/03/21 23:19:29 raeburn Exp $ +# $Id: loncommon.pm,v 1.1279 2017/03/30 14:08:18 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -10038,7 +10038,7 @@ sub get_secgrprole_info { } sub user_picker { - my ($dom,$srch,$forcenewuser,$caller,$cancreate,$usertype,$context,$fixeddom) = @_; + my ($dom,$srch,$forcenewuser,$caller,$cancreate,$usertype,$context,$fixeddom,$noinstd) = @_; my $currdom = $dom; my @alldoms = &Apache::lonnet::all_domains(); if (@alldoms == 1) { @@ -10121,6 +10121,7 @@ sub user_picker { next if ($option eq 'alc'); next if (($option eq 'crs') && ($env{'form.form'} eq 'requestcrs')); next if ($option eq 'crs' && !$env{'request.course.id'}); + next if (($option eq 'instd') && ($noinstd)); if ($curr_selected{'srchin'} eq $option) { $srchinsel .= ' ';