loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.119, 2005/04/22 20:54:43	version 1.120, 2005/06/05 07:10:32
Line 39 use Apache::loncommon;	Line 39 use Apache::loncommon;
use Apache::lonhtmlcommon;	use Apache::lonhtmlcommon;
use Apache::lonannounce;	use Apache::lonannounce;
use Apache::lonlocal;	use Apache::lonlocal;
	use GDBM_File;

sub redirect_user {	sub redirect_user {
my ($r,$title,$url,$msg,$launch_nav) = @_;	my ($r,$title,$url,$msg,$launch_nav) = @_;
Line 338 ENDHEADER	Line 339 ENDHEADER
$r->print("<hr><pre>Access : ".	$r->print("<hr><pre>Access : ".
Apache::lonnet::plaintext($priv)."\n");	Apache::lonnet::plaintext($priv)."\n");
$r->print("Resource: ".&Apache::lonenc::check_encrypt($fn)."\n");	$r->print("Resource: ".&Apache::lonenc::check_encrypt($fn)."\n");
$r->print("Action : $msg\n</pre><hr>");	$r->print("Action : $msg\n</pre><hr />");
	my $url=$fn;
	my $last;
	if (tie(my %hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db',
	&GDBM_READER(),0640)) {
	$last=$hash{'last_known'};
	untie(%hash);
	}
	if ($last) { $fn.='?symb='.&Apache::lonnet::escape($last); }

	&Apache::londocs::changewarning($r,undef,'You have modified your course recently, [_1] may fix this access problem.',
	&Apache::lonenc::check_encrypt($fn));
} else {	} else {
if ($env{'user.error.msg'}) {	if ($env{'user.error.msg'}) {
$r->print(	$r->print(