Diff for /loncom/auth/lonroles.pm between versions 1.66 and 1.70

version 1.66, 2003/08/12 19:46:04 version 1.70, 2003/09/17 17:50:49
Line 171  ENDENTERKEY Line 171  ENDENTERKEY
     &Apache::lonuserstate::readmap($cdom.'/'.$cnum);      &Apache::lonuserstate::readmap($cdom.'/'.$cnum);
  if (($ENV{'form.orgurl'}) &&    if (($ENV{'form.orgurl'}) && 
     ($ENV{'form.orgurl'}!~/^\/adm\/flip/)) {      ($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;      return OK;
  } else {   } else {
     unless ($ENV{'request.course.id'}) {      unless ($ENV{'request.course.id'}) {
Line 179  ENDENTERKEY Line 183  ENDENTERKEY
       "request.course.id"  => $cdom.'_'.$cnum);        "request.course.id"  => $cdom.'_'.$cnum);
  $furl='/adm/roles?tryagain=1';   $furl='/adm/roles?tryagain=1';
  $msg=   $msg=
  '<h1><font color=red>Could not initialize course at this time.</font></h1><h3>Please try again.</h3>';   '<h1><font color=red>Could not initialize course at this time.</font></h1><h3>Please try again.</h3>'.$ferr;
     }      }
   
     # Check to see if the user is a CC entering a course       # Check to see if the user is a CC entering a course 

Removed from v.1.66  
changed lines
  Added in v.1.70


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>