if ($gathered) {print"-!$gathered!-<br>"}

#Print forms for displaying Site options

if ($import{'site_info'})
{

	$site = $query->param('site');
	$cc = $query->param('country_code');
	$query->import_names('F');
	$cc = uc($cc);

	print qq(<br>);
	print qq(<hr><center>);

	print $query->start_form;
	if (!$import{'Gather'})
	{
		print $query->submit('Gather','Gather site info');
	}
	elsif ($import{'Gather'})
	{
		print $query->submit('Update','Update site info');
	}
	print $query->endform;

	print "<hr>";

	print $query->h3("Gather or Update<br>for tools below");
	print "<hr>";

	print $query->start_form(-method=>'post',-action=>'ap_chan.cgi',
		-target=>'main');
	&hide;
	print $query->submit('chan_power','Chan/Power');
	print $query->endform;
	
	print $query->start_form(-method=>'post',-action=>'world_mode.cgi',
		-target=>'main');
	&hide;
	print $query->submit('world_mode','Set World Mode');
	print $query->endform;
	
	print "<hr>";
	print qq(</center>);
}

print qq(</body>\n</html>);

sub hide
{
	while(my($k,$v) = each(%import))
	{
		print $query->hidden($k,$v);
	}
	print qq(<INPUT TYPE="hidden" NAME="isp" VALUE="$isp">\n);
}