--- loncom/interface/lonannounce.pm	2006/12/20 22:36:17	1.65
+++ loncom/interface/lonannounce.pm	2007/03/03 02:16:17	1.67
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Announce
 #
-# $Id: lonannounce.pm,v 1.65 2006/12/20 22:36:17 albertel Exp $
+# $Id: lonannounce.pm,v 1.67 2007/03/03 02:16:17 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -497,11 +497,13 @@ Post announcements to the system login a
 Check machines:<br />
 SERVERANNOUNCE
 # list servers
-    foreach my $host (sort(keys(%Apache::lonnet::hostname))) {
-	if (&Apache::lonnet::allowed('psa',$Apache::lonnet::hostdom{$host})) {
+    my %hostname = &Apache::lonnet::all_hostnames();
+    foreach my $host (sort(keys(%hostname))) {
+	if (&Apache::lonnet::allowed('psa',
+				     &Apache::lonnet::host_domain($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>');
 	}
     }