Diff for /loncom/auth/lonroles.pm between versions 1.65 and 1.69

version 1.65, 2003/08/05 12:52:23 version 1.69, 2003/09/15 21: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::perlvar{'MODPERL2'} ) {
    &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 
Line 570  ENDHEADER Line 574  ENDHEADER
     }      }
  }   }
     }      }
       $r->print(&Apache::lonnet::getannounce());
     if ($advanced) {      if ($advanced) {
  $r->print('<p><small><i>This is LON-CAPA '.   $r->print('<p><small><i>This is LON-CAPA '.
   $r->dir_config('lonVersion').'</i></small></p>');    $r->dir_config('lonVersion').'</i></small></p>');

Removed from v.1.65  
changed lines
  Added in v.1.69


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