loncom/interface/lonannounce.pm - diff

Return to lonannounce.pm CVS log

Up to [LON-CAPA] / loncom / interface

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>');
}	}
}	}