version 1.23, 2005/07/10 02:31:30
|
version 1.24, 2005/07/14 21:30:25
|
Line 38 use Apache::lonnavmaps();
|
Line 38 use Apache::lonnavmaps();
|
use Apache::lonuserstate; |
use Apache::lonuserstate; |
use Apache::Constants qw(:common :http); |
use Apache::Constants qw(:common :http); |
use Time::Local; |
use Time::Local; |
|
use GDBM_File; |
|
|
#---------------------------- |
#---------------------------- |
# handler |
# handler |
Line 190 sub display_actions_box() {
|
Line 191 sub display_actions_box() {
|
$r->print('<br /><b><center>You are accessing an invalid course.</center></b><br /><br />'); |
$r->print('<br /><b><center>You are accessing an invalid course.</center></b><br /><br />'); |
return; |
return; |
} |
} |
|
if (tie(my %bighash,'GDBM_File',$env{'request.course.fn'}.'.db', |
my ($furl,$ferr)= |
&GDBM_READER(),0640)) { |
&Apache::lonuserstate::readmap($cdom.'/'.$crs); |
my $furl=$bighash{'first_url'}; |
$r->print('<font size="+1"><a href="'.$furl.'">Go to first resource</a></font><a href="/adm/preferences?action=changecourseinit"></font><br />Change your preferences</a> to suppress display of this screen when accessing courses as Course Coordinator in the future.<br /><hr />'); |
$r->print('<font size="+1"><a href="'.$furl.'">Go to first resource</a></font><a href="/adm/preferences?action=changecourseinit"></font><br />Change your preferences</a> to suppress display of this screen when accessing courses as Course Coordinator in the future.<br /><hr />'); |
|
untie(%bighash); |
|
} |
|
|
my $result; |
my $result; |
|
|