--- loncom/interface/loncommon.pm 2007/08/25 19:52:29 1.569 +++ 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.569 2007/08/25 19:52:29 raeburn 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', @@ -5692,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