version 1.59, 2006/07/03 15:30:52
|
version 1.60, 2006/09/02 20:47:11
|
Line 490 SERVERANNOUNCE
|
Line 490 SERVERANNOUNCE
|
# list servers |
# list servers |
foreach my $host (sort(keys(%Apache::lonnet::hostname))) { |
foreach my $host (sort(keys(%Apache::lonnet::hostname))) { |
if (&Apache::lonnet::allowed('psa',$Apache::lonnet::hostdom{$host})) { |
if (&Apache::lonnet::allowed('psa',$Apache::lonnet::hostdom{$host})) { |
$r->print ('<br /><input type="checkbox" name="postto_'.$host.'" /> '. |
$r->print ('<br /><label><input type="checkbox" name="postto_'.$host.'" /> '. |
$host.' <tt>'.$Apache::lonnet::hostname{$host}.'</tt> '. |
$host.' <tt>'.$Apache::lonnet::hostname{$host}.'</tt> '. |
'<a href="http://'.$Apache::lonnet::hostname{$host}. |
'</label><a href="http://'.$Apache::lonnet::hostname{$host}. |
'/announcement.txt" target="annowin">current</a>'); |
'/announcement.txt" target="annowin">current</a>'); |
} |
} |
} |
} |