--- loncom/interface/lonannounce.pm 2006/12/06 21:52:49 1.64
+++ loncom/interface/lonannounce.pm 2007/03/02 23:17:58 1.66
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Announce
#
-# $Id: lonannounce.pm,v 1.64 2006/12/06 21:52:49 albertel Exp $
+# $Id: lonannounce.pm,v 1.66 2007/03/02 23:17:58 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -90,7 +90,7 @@ sub readcalendar {
$navmap = Apache::lonnavmaps::navmap->new();
}
my %resourcedata=
- &Apache::lonnet::dump('resourcedata',$coursedom,$coursenum);
+ &Apache::lonnet::get_courseresdata($coursenum,$coursedom);
foreach my $thiskey (sort keys %resourcedata) {
if ($resourcedata{$thiskey.'.type'}=~/^date/) {
my ($course,$middle,$part,$name)=
@@ -497,11 +497,12 @@ Post announcements to the system login a
Check machines:
SERVERANNOUNCE
# list servers
- foreach my $host (sort(keys(%Apache::lonnet::hostname))) {
+ my %hostname = &Apache::lonnet::all_hostnames();
+ foreach my $host (sort(keys(%hostname))) {
if (&Apache::lonnet::allowed('psa',$Apache::lonnet::hostdom{$host})) {
$r->print ('
current');
}
}