--- 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:<br />
 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 ('<br /><label><input type="checkbox" name="postto_'.$host.'" /> '.
-		       $host.' <tt>'.$Apache::lonnet::hostname{$host}.'</tt> '.
-		       '</label><a href="http://'.$Apache::lonnet::hostname{$host}.
+		       $host.' <tt>'.$hostname{$host}.'</tt> '.
+		       '</label><a href="http://'.$hostname{$host}.
 		       '/announcement.txt" target="annowin">current</a>');
 	}
     }