--- loncom/auth/lonroles.pm 2003/06/24 15:52:32 1.62 +++ loncom/auth/lonroles.pm 2003/09/17 18:16:39 1.71 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # User Roles Screen # -# $Id: lonroles.pm,v 1.62 2003/06/24 15:52:32 matthew Exp $ +# $Id: lonroles.pm,v 1.71 2003/09/17 18:16:39 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -171,7 +171,11 @@ ENDENTERKEY &Apache::lonuserstate::readmap($cdom.'/'.$cnum); if (($ENV{'form.orgurl'}) && ($ENV{'form.orgurl'}!~/^\/adm\/flip/)) { - $r->internal_redirect($ENV{'form.orgurl'}); + my $dest=$ENV{'form.orgurl'}; + if ( &Apache::lonnet::mod_perl_version() == 2 ) { + &Apache::lonnet::cleanenv(); + } + $r->internal_redirect($dest); return OK; } else { unless ($ENV{'request.course.id'}) { @@ -179,7 +183,7 @@ ENDENTERKEY "request.course.id" => $cdom.'_'.$cnum); $furl='/adm/roles?tryagain=1'; $msg= - '
'); } $r->print(' | User Role | Extent | '. 'Start | End | Remark |
---|