loncom/interface/lonannounce.pm - diff

Return to lonannounce.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.60, 2006/09/02 20:47:11	version 1.62, 2006/11/29 07:46:39
Line 80 sub readcalendar {	Line 80 sub readcalendar {
$returnhash{$courseid.'@'.$item}=$thiscal{$item};	$returnhash{$courseid.'@'.$item}=$thiscal{$item};
}	}
}	}
my $can_see_hidden = $env{'request.role.adv'};	my $can_see_hidden = ($env{'request.role.adv'} &&
my $navmap;# = Apache::lonnavmaps::navmap->new();	($courseid eq $env{'request.course.id'}));

	my $navmap;
	if ($courseid eq $env{'request.course.id'}) {
	$navmap = Apache::lonnavmaps::navmap->new();
	}
my %resourcedata=	my %resourcedata=
&Apache::lonnet::dump('resourcedata',$coursedom,$coursenum);	&Apache::lonnet::dump('resourcedata',$coursedom,$coursenum);
foreach my $thiskey (sort keys %resourcedata) {	foreach my $thiskey (sort keys %resourcedata) {
Line 353 ENDDIA	Line 358 ENDDIA
# ----------------------------------------------------- Summarize all calendars	# ----------------------------------------------------- Summarize all calendars
sub get_all_calendars {	sub get_all_calendars {
my %allcal=();	my %allcal=();
foreach my $course (sort(&Apache::loncommon::findallcourses())) {	my %courses = &Apache::loncommon::findallcourses();
	foreach my $course (sort(keys(%courses))) {
%allcal=(%allcal,&readcalendar($course));	%allcal=(%allcal,&readcalendar($course));
}	}
return %allcal;	return %allcal;