--- loncom/auth/lonroles.pm 2003/07/25 01:16:29 1.64 +++ loncom/auth/lonroles.pm 2003/09/15 18:43:53 1.68 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # User Roles Screen # -# $Id: lonroles.pm,v 1.64 2003/07/25 01:16:29 bowersj2 Exp $ +# $Id: lonroles.pm,v 1.68 2003/09/15 18:43:53 www 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'}; + + &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= - '

Could not initialize course at this time.

Please try again.

'; + '

Could not initialize course at this time.

Please try again.

'.$ferr; } # Check to see if the user is a CC entering a course @@ -570,7 +574,11 @@ ENDHEADER } } } - + $r->print(&Apache::lonnet::getannounce()); + if ($advanced) { + $r->print('

This is LON-CAPA '. + $r->dir_config('lonVersion').'

'); + } $r->print("\n"); return OK; }