#!/opt/gnu/bin/perl -wT
use CGI ":standard";
use CGI::Carp "fatalsToBrowser";
use lib "../";
use Galaxies; #my defined module for SINGS
$query = new CGI;

print "\n\n";
&displayPage;



#display the main page
sub displayPage {

@modelkeys =sort alphabetically keys(%sampleInfo);

#get the seperation character they wanted
my $mytype  = $query->param('seperator');
my $sep;


if ( $mytype eq "Colon") {
	$sep = ":";
} elsif ( $mytype eq "Space") {
	$sep = " "; 
} elsif ( $mytype eq "TAB") {
	$sep = "\t";
} else {
	$sep = ",";
}


for ($j=0;$j<=12;$j++){
	print "$sampleInfo{'Model'}[$j] $sep";
}
print "\n";

for $i (@modelkeys) {
   if ($i ne "Model"){
	print "$i$sep";
	for ($j=0;$j<=12;$j++){
		if ( ($sampleInfo{$i}[$j] eq "\&nbsp")  or ($sampleInfo{$i}[$j] eq "... ") ){
			print "$sep";
		} else {
			print "$sampleInfo{$i}[$j] $sep";
		}
	}
	print "\n";
   }
}

print <<HTML;

\n
Notes:\n\n

(1) ID\n
(2) RC3 Type\n
(3) Nuclear Type: H=HII-region, SB=Starburst, L=LINER, Sy=Seyfert(1, 2)\n
(4) Major and minor axis diameters\n
(5) Heliocentric velocity\n
(6) Flow-corrected distance in Mpc, for Ho=70 km/s/Mpc\n
(7) Absolute R magnitude, when available; from the V or B bands\n
(8) FIR/optical luminosity ratio. The FIR luminosity is derived from the IRAS-measured 60-100 fluxes, \n
	from Fullmer & Lonsdale (1989). The optical luminosity is defined as: \n\n


(9): The ratio of the 60 to 100 flux, measured by IRAS (see note above).\n
(10): Logarithmic gas mass, from HI and CO integrated fluxes; `H' denotes only HI data are\n
	available from the literature; `C' denotes only CO data available.\n
(11): Star formation rates derived from nebular emission, with typical A(H) = 1 mag.\n
(12): Oxygen abundance of the ionized gas, 12+log(O/H), at 0.4 R25.\n
(13): Additional data already available for a galaxy, generally from public archives. \n
  	IUE=UV spectra from IUE. \n
	UIT=UV images from Astro2/UIT. \n
	HST= UV and/or Optical images from the HST archive. \n
	ISO=data from ISO, CII=[CII] emission, at 158 micron measured by ISO. \n
	CO=CO maps from the SONG collaboration; \n
	HI=HI maps from the VLA or WSRT.\n
	
HTML

}

sub alphabetically { lc $a cmp lc $b }