--- loncom/auth/lonroles.pm 2006/05/30 17:15:00 1.150 +++ loncom/auth/lonroles.pm 2006/05/30 19:47:36 1.151 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # User Roles Screen # -# $Id: lonroles.pm,v 1.150 2006/05/30 17:15:00 www Exp $ +# $Id: lonroles.pm,v 1.151 2006/05/30 19:47:36 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -39,8 +39,8 @@ use Apache::loncommon; use Apache::lonhtmlcommon; use Apache::lonannounce; use Apache::lonlocal; +use Apache::lonpageflip(); use GDBM_File; -use lib '/home/httpd/lib/perl/'; use LONCAPA; @@ -306,6 +306,11 @@ ENDENTERKEY } } } +# Are we allowed to look at the first resource? + if (!&Apache::lonnet::allowed('bre',$furl)) { +# Guess not ... + $furl=&Apache::lonpageflip::first_accessible_resource(); + } &redirect_user($r,&mt('Entering Course'), $furl,$msg, $env{'environment.remotenavmap'});