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 { |