loncom/interface/lonannounce.pm - diff

Return to lonannounce.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.66, 2007/03/02 23:17:58	version 1.67, 2007/03/03 02:16:17
Line 499 SERVERANNOUNCE	Line 499 SERVERANNOUNCE
# list servers	# list servers
my %hostname = &Apache::lonnet::all_hostnames();	my %hostname = &Apache::lonnet::all_hostnames();
foreach my $host (sort(keys(%hostname))) {	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 ('<br /><label><input type="checkbox" name="postto_'.$host.'" /> '.	$r->print ('<br /><label><input type="checkbox" name="postto_'.$host.'" /> '.
$host.' <tt>'.$hostname{$host}.'</tt> '.	$host.' <tt>'.$hostname{$host}.'</tt> '.
'</label><a href="http://'.$hostname{$host}.	'</label><a href="http://'.$hostname{$host}.