loncom/interface/lonwhatsnew.pm - diff

Return to lonwhatsnew.pm CVS log

Up to [LON-CAPA] / loncom / interface

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;