--- loncom/auth/lonroles.pm 2007/09/10 16:07:32 1.179 +++ loncom/auth/lonroles.pm 2007/11/09 20:56:34 1.181 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # User Roles Screen # -# $Id: lonroles.pm,v 1.179 2007/09/10 16:07:32 raeburn Exp $ +# $Id: lonroles.pm,v 1.181 2007/11/09 20:56:34 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -642,7 +642,7 @@ ENDHEADER } # More than one possible role # ----------------------------------------------------------------------- Table - unless (($advanced) || ($nochoose)) { + unless ((!&Apache::lonmenu::show_course()) || ($nochoose)) { $r->print("

".&mt('Select a Course to Enter')."

\n"); } $r->print('
'); @@ -965,32 +965,6 @@ END return $verify_script; } -sub processpick { - my $process_pick = <<"END"; - -END - return $process_pick; -} - sub display_cc_role { my $rolekey = shift; my $roletext;