--- loncom/interface/loncommon.pm 2007/09/05 00:00:26 1.564.2.8 +++ loncom/interface/loncommon.pm 2007/09/05 00:25:52 1.564.2.9 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.564.2.8 2007/09/05 00:00:26 albertel Exp $ +# $Id: loncommon.pm,v 1.564.2.9 2007/09/05 00:25:52 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -5648,11 +5648,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"; @@ -5780,13 +5776,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