loncom/interface/lonwhatsnew.pm - diff

Return to lonwhatsnew.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.17, 2005/06/04 03:36:36	version 1.18, 2005/06/06 22:39:59
Line 35 use Apache::lonhtmlcommon();	Line 35 use Apache::lonhtmlcommon();
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::loncoursedata();	use Apache::loncoursedata();
use Apache::lonnavmaps();	use Apache::lonnavmaps();
	use Apache::lonuserstate;
use Apache::Constants qw(:common :http);	use Apache::Constants qw(:common :http);
use Time::Local;	use Time::Local;

Line 186 sub display_actions_box() {	Line 187 sub display_actions_box() {
my $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);	my $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);

unless ($env{'request.course.id'}) {	unless ($env{'request.course.id'}) {
$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;
}	}

	my ($furl,$ferr)=
	&Apache::lonuserstate::readmap($cdom.'/'.$crs);
	$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 />');

my $result;	my $result;

if ($command eq 'reset') {	if ($command eq 'reset') {