loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.64, 2003/07/25 01:16:29	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
Line 570 ENDHEADER	Line 574 ENDHEADER
}	}
}	}
}	}
	$r->print(&Apache::lonnet::getannounce());
	if ($advanced) {
	$r->print('<p><small><i>This is LON-CAPA '.
	$r->dir_config('lonVersion').'</i></small></p>');
	}
$r->print("</body></html>\n");	$r->print("</body></html>\n");
return OK;	return OK;
}	}