loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.122, 2004/11/02 21:02:01	version 1.124, 2004/11/11 18:43:25
Line 885 sub rawconfig {	Line 885 sub rawconfig {
if ($ENV{'request.course.fn'}) {	if ($ENV{'request.course.fn'}) {
$output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc);	$output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc);
}	}
	} elsif ($pro =~ /^courseenv_(.*)$/) {
	my $key = $1;
	if ($ENV{'course.'.$ENV{'request.course.id'}.'.'.$key}) {
	$output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc);
	}
} elsif ($pro =~ /^course_(.*)$/) {	} elsif ($pro =~ /^course_(.*)$/) {
# Check for permissions inside of a course	# Check for permissions inside of a course
if (($ENV{'request.course.id'}) &&	if (($ENV{'request.course.id'}) &&
Line 920 sub rawconfig {	Line 925 sub rawconfig {
unless (($ENV{'browser.interface'} eq 'textual') \|\|	unless (($ENV{'browser.interface'} eq 'textual') \|\|
($ENV{'environment.remote'} eq 'off')) {	($ENV{'environment.remote'} eq 'off')) {
$output.="\nwindow.status='Synchronizing Time';swmenu.syncclock(1000*".time.");\nwindow.status='Remote Control Configured.';";	$output.="\nwindow.status='Synchronizing Time';swmenu.syncclock(1000*".time.");\nwindow.status='Remote Control Configured.';";
	if (&Apache::lonmsg::newmail()) {
	$output.='swmenu.setstatus("you have","messages");';
	}
}	}

return $output;	return $output;
}	}