--- loncom/auth/lonroles.pm 2000/12/28 21:46:08 1.19 +++ loncom/auth/lonroles.pm 2001/01/15 15:59:52 1.20 @@ -6,7 +6,8 @@ # 11/23 Gerd Kortemeyer) # 1/14,03/06,06/01,07/22,07/24,07/25, # 09/04,09/06,09/28,09/29,09/30,10/2,10/5,10/26,10/28, -# 12/08,12/28 Gerd Kortemeyer +# 12/08,12/28, +# 01/15/01 Gerd Kortemeyer # package Apache::lonroles; @@ -58,19 +59,31 @@ sub handler { if ($cnum) { my ($furl,$ferr)= &Apache::lonuserstate::readmap($cdom.'/'.$cnum); - if ($ENV{'form.orgurl'}) { + if (($ENV{'form.orgurl'}) && + ($ENV{'form.orgurl'}!~/^\/adm\/flip/)) { $r->internal_redirect($ENV{'form.orgurl'}); return OK; } else { - $r->internal_redirect($furl); - return OK; + $r->content_type('text/html'); + $r->send_http_header; + print (<Entering Course + + + + +Entering course ... + + +ENDREDIR + return OK; } } } } } } - } + } # =============================================================== No Roles Init