--- loncom/auth/lonroles.pm 2009/11/03 03:01:47 1.240 +++ loncom/auth/lonroles.pm 2009/12/06 19:47:47 1.240.2.1 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # User Roles Screen # -# $Id: lonroles.pm,v 1.240 2009/11/03 03:01:47 raeburn Exp $ +# $Id: lonroles.pm,v 1.240.2.1 2009/12/06 19:47:47 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -767,6 +767,27 @@ ENDHEADER } $r->print(&Apache::loncommon::end_page()); return OK; + } elsif ($countactive==1) { # Is there only one choice? + my $needs_switchserver; + if ($env{'user.author'}) { + $needs_switchserver = &check_needs_switchserver($possiblerole); + } + if ((!$needs_switchserver) && ($env{'request.role'} eq 'cm')) { + $r->print('