--- loncom/interface/lonannounce.pm 2007/03/02 23:17:58 1.66
+++ 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.66 2007/03/02 23:17:58 albertel Exp $
+# $Id: lonannounce.pm,v 1.67 2007/03/03 02:16:17 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -499,7 +499,8 @@ SERVERANNOUNCE
# list servers
my %hostname = &Apache::lonnet::all_hostnames();
foreach my $host (sort(keys(%hostname))) {
- if (&Apache::lonnet::allowed('psa',$Apache::lonnet::hostdom{$host})) {
+ if (&Apache::lonnet::allowed('psa',
+ &Apache::lonnet::host_domain($host))) {
$r->print ('