--- loncom/interface/loncommon.pm 2007/08/24 18:41:06 1.568 +++ loncom/interface/loncommon.pm 2007/08/26 21:09:43 1.570 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.568 2007/08/24 18:41:06 albertel Exp $ +# $Id: loncommon.pm,v 1.570 2007/08/26 21:09:43 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -5609,7 +5609,7 @@ sub get_secgrprole_info { } sub user_picker { - my ($dom,$srch,$forcenewuser) = @_; + my ($dom,$srch,$forcenewuser,$caller) = @_; my $currdom = $dom; my %curr_selected = ( srchin => 'dom', @@ -5642,6 +5642,7 @@ sub user_picker { 'instd' => 'in institutional directory', 'exact' => 'is', 'contains' => 'contains', + 'begins' => 'begins with', ); my $domform = &select_dom_form($currdom,'srchdomain',1,1); my $srchinsel = ' '; @@ -5677,7 +5678,7 @@ sub user_picker { $srchbysel .= "\n \n"; my $srchtypesel = ' '; - foreach my $option ('exact','contains') { + foreach my $option ('exact','begins','contains') { if ($curr_selected{'srchtype'} eq $option) { $srchtypesel .= ' '.$lt{$option}.''; @@ -5691,29 +5692,29 @@ sub user_picker { my ($newuserscript,$new_user_create); if ($forcenewuser) { - $new_user_create = ' &"').'" onclick="javascript:setSearch(\'1\');" /> '; + $new_user_create = ' &"').'" onclick="javascript:setSearch(\'1\','.$caller.');" /> '; $newuserscript = <<"ENDSCRIPT"; -function setSearch(createnew) { +function setSearch(createnew,callingForm) { if (createnew == 1) { - for (var i=0; i -function validateEntry() { +function validateEntry(callingForm) { var checkok = 1; var srchin; - for (var i=0; i
&"').'" onclick="javascript:setSearch(\'1\');" />
&"').'" onclick="javascript:setSearch(\'1\','.$caller.');" />