--- loncom/auth/lonroles.pm 2001/06/02 16:14:40 1.26 +++ loncom/auth/lonroles.pm 2001/10/26 17:09:04 1.29 @@ -9,7 +9,7 @@ # 12/08,12/28, # 01/15/01 Gerd Kortemeyer # 02/27/01 Scott Harrison -# 03/02,05/03,05/25,05/30,06/01 Gerd Kortemeyer +# 03/02,05/03,05/25,05/30,06/01,07/06,08/06 Gerd Kortemeyer package Apache::lonroles; @@ -19,6 +19,7 @@ use Apache::lonuserstate(); use Apache::Constants qw(:common); use Apache::File(); use Apache::lonmenu; +use Apache::loncommon; sub handler { @@ -59,6 +60,7 @@ sub handler { my ($cdom,$cnum,$csec)=split(/\//,$where); &Apache::lonnet::appenv('request.role' => $trolecode, 'request.course.sec' => $csec); + my $msg='Entering course ...'; if (($cnum) && ($role ne 'ca')) { my ($furl,$ferr)= &Apache::lonuserstate::readmap($cdom.'/'.$cnum); @@ -67,19 +69,28 @@ sub handler { $r->internal_redirect($ENV{'form.orgurl'}); return OK; } else { + unless ($ENV{'request.course.id'}) { + &Apache::lonnet::appenv( + "request.course.id" => $cdom.'_'.$cnum); + $furl='/adm/notfound.html'; + $msg= + '