--- loncom/interface/loncommon.pm 2007/08/31 03:21:27 1.576 +++ loncom/interface/loncommon.pm 2007/08/31 17:58:47 1.577 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.576 2007/08/31 03:21:27 raeburn Exp $ +# $Id: loncommon.pm,v 1.577 2007/08/31 17:58:47 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -5695,11 +5695,7 @@ sub user_picker { if (ref($srch) eq 'HASH') { if ($srch->{'srchby'} eq 'uname' && $srch->{'srchtype'} eq 'exact' && $srch->{'srchin'} eq 'dom' && $srch->{'srchdomain'} eq $env{'request.role.domain'}) { $new_user_create = '

&"').'" onclick="javascript:setSearch(\'1\','.$caller.');" />

'; - } else { - $new_user_create = &newuser_radio($caller); } - } else { - $new_user_create = &newuser_radio($caller); } $newuserscript = <<"ENDSCRIPT"; @@ -5827,13 +5823,6 @@ END_BLOCK return $output; } -sub newuser_radio { - my ($caller) = @_; - return ''.&mt('Make new user if no match found: ').''.&mt('Yes').'  '.&mt('No').'
'; -} - - - =pod =back