loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.55, 2002/09/26 16:56:21	version 1.56, 2002/09/30 16:45:01
Line 1204 sub new {	Line 1204 sub new {
my ($cdom,$cnum)=split(/\_/,$cid);	my ($cdom,$cnum)=split(/\_/,$cid);

my %emailstatus = &Apache::lonnet::dump('email_status');	my %emailstatus = &Apache::lonnet::dump('email_status');
my logoutTime = $emailstatus{'logout'};	my $logoutTime = $emailstatus{'logout'};
my courseLeaveTime = $emailstatus{'logout_'.$ENV{'request.course.id'}};	my $courseLeaveTime = $emailstatus{'logout_'.$ENV{'request.course.id'}};
$self->{LAST_CHECK} = ($courseLeaveTime > $logoutTime ?	$self->{LAST_CHECK} = ($courseLeaveTime > $logoutTime ?
$courseLeaveTime : $logoutTime);	$courseLeaveTime : $logoutTime);
my %discussiontime = &Apache::lonnet::dump{'discussiontimes',	my %discussiontime = &Apache::lonnet::dump('discussiontimes',
$cdom, $cnum);	$cdom, $cnum);
my %feedback=();	my %feedback=();
my %error=();	my %error=();
Line 1256 sub courseMapDefined {	Line 1256 sub courseMapDefined {
my $self = shift;	my $self = shift;
my $uri = &Apache::lonnet::clutter($ENV{'request.course.uri'});	my $uri = &Apache::lonnet::clutter($ENV{'request.course.uri'});

my $firstres = $self->{NAV_HASH}->{'map_start_$uri'};	my $firstres = $self->{NAV_HASH}->{"map_start_$uri"};
my $lastres = $self->{NAV_HASH}->{'map_finish_$uri'};	my $lastres = $self->{NAV_HASH}->{"map_finish_$uri"};
return $firstres && $lastres;	return $firstres && $lastres;
}	}