loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.148, 2006/05/15 17:45:46	version 1.149, 2006/05/30 12:45:24
Line 40 use Apache::lonhtmlcommon;	Line 40 use Apache::lonhtmlcommon;
use Apache::lonannounce;	use Apache::lonannounce;
use Apache::lonlocal;	use Apache::lonlocal;
use GDBM_File;	use GDBM_File;
	use lib '/home/httpd/lib/perl/';
	use LONCAPA;


sub redirect_user {	sub redirect_user {
my ($r,$title,$url,$msg,$launch_nav) = @_;	my ($r,$title,$url,$msg,$launch_nav) = @_;
Line 379 ENDHEADER	Line 382 ENDHEADER
$last=$hash{'last_known'};	$last=$hash{'last_known'};
untie(%hash);	untie(%hash);
}	}
if ($last) { $fn.='?symb='.&Apache::lonnet::escape($last); }	if ($last) { $fn.='?symb='.&escape($last); }

&Apache::londocs::changewarning($r,undef,'You have modified your course recently, [_1] may fix this access problem.',	&Apache::londocs::changewarning($r,undef,'You have modified your course recently, [_1] may fix this access problem.',
&Apache::lonenc::check_encrypt($fn));	&Apache::lonenc::check_encrypt($fn));
Line 990 sub allcourses_row {	Line 993 sub allcourses_row {

sub recent_filename {	sub recent_filename {
my $area=shift;	my $area=shift;
return 'nohist_recent_'.&Apache::lonnet::escape($area);	return 'nohist_recent_'.&escape($area);
}	}

sub set_privileges {	sub set_privileges {