package	Galaxies;

use vars qw($VERSION @ISA @EXPORT);
require Exporter;

@ISA	= qw(Exporter);
@EXPORT	= qw(@sings_galaxies %sidebarLinks @waves  %sampleInfo %distanceInfo &findHappy);	#export list of galaxies
$VERSION	= 1.00;			#version number


#a subroutine to print out the table of links to Galaxy images
sub printImageLinkTable(){
;
}


#a list of wavelengths names for SINGS
#@waves = ("IRAC","IRS","MIPS","Xray","UV","Galex","Optical","Spec","JHK","NICMOS","2MASS","IRAS","Submm","mm","Radio","H1");
@waves = ("IRAC","IRS","MIPS","Xray","Galex","Optical","Spec","FP","JHK","NICMOS","2MASS","IRAS","Submm","mm","Radio","H1");

#this is a list of the link names for the sidebar on individual gal pages
%sidebarLinks = ("Legacy Visualization" => "http://sings.stsci.edu/sample/",
		"SIRTF Data Details" => "showDataTable.cgi", 
		"NED Link" =>"http://nedwww.ipac.caltech.edu/cgi-bin/nph-objsearch?extend=no&out_csys=Equatorial&out_equinox=J2000.0&obj_sort=RA+or+Longitude&of=pre_text&zv_breaker=30000.0&list_limit=5&img_stamp=YES&objname=",
	        "Datascope" => "http://heasarc.gsfc.nasa.gov/cgi-bin/vo/datascope/jds.pl?position=",
		"SSC Archive" => "http://ssc.spitzer.caltech.edu/",
		"README" => "data/",
		"Retrieve: More Options" => "retrievalMenu.cgi",
		"ADS Abstract Search" => "http://adsabs.harvard.edu/cgi-bin/nph-abs_connect?db_key=AST&qform=AST&sim_query=YES&ned_query=YES&obj_req=YES&aut_logic=OR&obj_logic=OR&author=&start_mon=&start_year=&end_mon=&end_year=&ttl_logic=OR&title=&txt_logic=OR&text=&nr_to_return=100&start_nr=1&jou_pick=NO&ref_stems=&data_and=ALL&group_and=ALL&start_entry_day=&start_entry_mon=&start_entry_year=&end_entry_day=&end_entry_mon=&end_entry_year=&min_score=&sort=NDATE&data_type=HTML&aut_syn=YES&ttl_syn=YES&txt_syn=YES&aut_wt=1.0&obj_wt=1.0&ttl_wt=0.3&txt_wt=3.0&aut_wgt=YES&obj_wgt=YES&ttl_wgt=YES&txt_wgt=YES&ttl_sco=YES&txt_sco=YES&version=1&object=",
		"Home - Member" => "http://sings.stsci.edu/teamarea/",
		"Home - Public" => "http://sings.stsci.edu/" );
		
		
#Galaxy  	Type  	Nuc  	D25  VR Duso M(opt) L(IR)/L(opt)  60/100 log(Mh) SFR  [o/h] other
#this is a list of the galaxies in the SINGS collection, with some basic information
@sings_galaxies = ("ngc0024",
		"ngc0337",
		"ngc0584",
		"ngc0628",
		"ngc0855",
		"ngc0925",
		"ngc1097",
		"ngc1266",
		"ngc1291",
		"ngc1316",
		"ngc1377",
		"ngc1404",
		"ngc1482",
		"ngc1512",
		"ngc1566",
		"ngc1705",
		"ngc2403",
		"holmberg2",
		"m81dwa",
		"ddo053",
		"ngc2798",
		"ngc2841",
		"ngc2915",
		"holmberg1",
		"ngc2976",
		"ngc3049",
		"ngc3031",
		"ngc3034",
		"holmberg9",
		"m81dwb",
		"ngc3190",
		"ngc3184",
		"ngc3198",
		"ic2574",
		"ngc3265",
		"mrk33",
		"ngc3351",
		"ngc3521",
		"ngc3621",
		"ngc3627",
		"ngc3773",
		"ngc3938",
		"ngc4125",
		"ngc4236",
		"ngc4254",
		"ngc4321",
		"ngc4450",
		"ngc4536",
		"ngc4552",
		"ngc4559",
		"ngc4569",
		"ngc4579",
		"ngc4594",
		"ngc4625",
		"ngc4631",
		"ngc4725",
		"ngc4736",
		"ddo154",
		"ngc4826",
		"ddo165",
		"ngc5033",
		"ngc5055",
		"ngc5194",
		"ngc5195",
		"ngc5398",
		"ngc5408",
		"ngc5474",
		"ngc5713",
		"ngc5866",
		"ic4710",
		"ngc6822",
		"ngc6946",
		"ngc7331",
		"ngc7552",
		"ngc7793");
		

#sample information for the galaxies, derived from the original sample page


%sampleInfo=("Galaxy" => ["Type ","Nuc ","D25<br>arcmin","VR<br>km/ec","Dist<br> Mpc","M<sub>opt</sub><br>mag ","L<sub>IR</sub><br>----<br>L<sub>Opt</sub>  ","60/100 ","log<sub>MH</sub><br> M(sun) ","SFR<br> M/yr","[O/H] ","Other Data","RA(J2000)","DEC(J2000)"],
"(1) " => ["(2) ","(3) ","(4) ","(5) ","(6) ","(7) ","(8) ","(9) ","(10) ","(11) ","(12) ","(13) "],
"&nbsp" => ["","&nbsp","&nbsp","&nbsp","&nbsp","&nbsp","&nbsp","&nbsp","&nbsp","&nbsp","&nbsp","&nbsp"],
"NGC0024" => ["SAc ","... ","5.8 x 1.3 ","554","8.2","-18.4","0.20","0.35","9.07H","... ","... ","&nbsp","2.485583","-24.963139"],
"NGC0337" => ["SBd ","... ","2.9 x 1.8 ","1650","24.7","-20.3","1.20","0.49","<10.22","4.3 ","... ","ISO ","14.958708","-7.577972"],
"NGC0584" => ["E4 ","... ","4.2 x 2.3 ","1854","27.6","-22.2","... ","... ","... ","... ","... ","IUE ","22.836458","-6.868056"],
"NGC0628" => ["SAc ","... ","10.5 x 9.5 ","657","11.4","-20.9","0.72","0.31","10.20","4.0","9.1 ","IUE,ISO,CII,CO,HI","24.174042","15.783472"],
"NGC0855" => ["E ","... ","2.6 x 1.0 ","610","9.6","-17.7","0.23","0.48","... ","... ","... ","ISO ","33.515042","27.877167"],
"NGC0925" => ["SABd ","H ","10.5 x 5.9 ","553","10.1","-20.6","0.18","0.29","<9.87","2.4 ","8.7 ","UIT,ISO,CII,CO,HI","36.8203333","33.5791667"],
"NGC1097" => ["SBb ","L ","9.3 x 6.3 ","1275","16.9","-22.4","0.75","0.40","10.03H","4-8","9.0 ","IUE,UIT,ISO,CII ","41.579417","-30.25331"],
"NGC1266" => ["SB0 ","L ","1.5 x 1.0 ","2194","31.3","-21.1","5.49","0.76","... ","... ","... ","ISO,CII ","49.003125","-2.427361"],
"NGC1291" => ["SBa ","... ","9.8 x 8.1 ","839","9.7","-22.0","0.02","0.17","9.19H","0.4 ","... ","UIT ","49.327500","-41.108083"],
"NGC1316" => ["SAB0 ","L ","12.0 x 8.5 ","1760","26.3","-23.5","0.04","0.41","<8.87H","... ","... ","IUE,ISO,CII","50.673825","-37.208227"],
"NGC1377" => ["S0 ","H ","1.8 x 0.9 ","1792","24.4","-19.6","2.04","1.23","... ","... ","... ","ISO,CII","54.162833","-20.902250"],
"NGC1404" => ["E1 ","... ","3.3 x 3.0 ","1947","25.1","-22.9","... ","... ","... ","... ","... ","IUE,ISO ","54.716333","-35.594389"],
"NGC1482" => ["SA0 ","... ","2.5 x 1.4 ","1655","22.0","-20.5","4.65","0.77","<9.57","1.5 ","... ","ISO,CII","58.662208","-20.502444"],
"NGC1512" => ["SBab ","SB ","8.9 x 5.6 ","896","10.4","-19.9","0.24","0.29","9.77H","... ","... ","UIT,HST,ISO ","60.976167","-43.348861"],
"NGC1566" => ["SABbc ","Sy ","8.3 x 6.6 ","1496","18.0","-21.9","0.49","0.32","10.03H","... ","9.0 ","ISO ","65.001750","-54.937806"],
"NGC1705" => ["Am ","SB ","1.9 x 1.4 ","628","5.8","-16.7","0.29","0.48","... ","0.03 ","... ","IUE,HST,ISO","73.55625","-53.361056"],
"NGC2403" => ["SABcd ","H ","21.9 x 12.3","131","3.5","-19.7","0.29","0.35","9.74","1.3 ","8.8 ","IUE,UIT,CO","114.214167","65.602556"],
"HOLMBERG2" => ["Im ","... ","7.9 x 6.3 ","157","3.5","-17.1","0.06","0.44","<9.36","0.12 ","8.3 ","UIT,ISO,CII","124.770750","70.720028"],
"M81DwA" => ["I? ","... ","1.3 x 0.7 ","113","3.5","... ","... ","... ","<7.16","<0.001","... ","&nbsp","125.98336","71.02930"],
"DDO053" => ["Im ","... ","1.5 x 1.3 ","19","3.5","-13.6","0.48","0.29","... ","0.005 ","7.6 ","&nbsp","128.5300","66.181667"],
"NGC2798" => ["SBa ","SB ","2.6 x 1.0 ","1726","24.7","-19.6","4.71","0.70","9.69","2.0 ","... ","IUE,HST","139.345625","41.99972"],
"NGC2841" => ["SAb ","L/Sy ","8.1 x 3.5 ","638","9.8","-20.7","0.11","0.18","9.73","0.2 ","9.3 ","IUE,CO,HI","140.510975","50.976519"],
"NGC2915" => ["I0 ","SB ","1.9 x 1.0 ","468","2.7","-15.1","0.31","1.17","8.25H","0.04 ","... ","ISOC ","141.548042","-76.626333"],
"HOLMBERG1" => ["IABm ","... ","3.6 x 3.0 ","143","3.5","-13.2","... ","... ","8.15H","0.004 ","7.7 ","&nbsp","145.13471","71.18222"],
"NGC2976" => ["SAc ","H ","5.9 x 2.7 ","3","3.5","-17.6","0.49","0.37","8.42","0.2 ","... ","CO","146.814417","67.916389"],
"NGC3049" => ["SBab ","SB ","2.2 x 1.4 ","1494","19.6","-18.7","0.64","0.67","9.10H","... ","8.9 ","IUE,HST","148.706875","9.271639"],
"NGC3031" => ["SAab ","L ","26.9 x14.1","-34","3.5","-21.2","0.08","0.26","8.88H","1.1 ","8.9 ","IUE,ISO,CII,CO,HI","148.8882208","69.0652947"],
"NGC3034" => ["IO ","SB ","11.2 x 4.3 ","203","3.5","-17.9","42.35","0.97","9.50","6.0","... ","ISO,CII","148.967580","69.679704"],
"HOLMBERG9" => ["Im ","... ","2.5 x 2.0 ","46","3.5","-13.6","... ","... ","7.55H","0.001 ","... ","&nbsp","149.38333","69.04583"],
"M81DwB" => ["Im ","... ","0.9 x 0.6 ","350","3.5","-12.5","... ","... ","7.08H","0.004 ","8.0 ","&nbsp","151.377500","70.364444"],
"NGC3190" => ["SAap ","L ","4.4 x 1.5 ","1271","17.4","-20.7","0.30","0.32","8.65H","<0.1","... ","ISO ","154.523500","21.831944"],
"NGC3184" => ["SABcd ","H ","7.4 x 6.9 ","592","8.6","-19.0","0.99","0.31","9.48","1.2 ","9.3 ","HST,CO","154.570750","41.424389"],
"NGC3198" => ["SBc ","... ","8.5 x 3.3 ","663","9.8","-20.2","0.19","0.40","9.74H","0.85 ","8.9 ","HI ","154.978750","45.549667"],
"IC2574" => ["SABm ","... ","13.2 x 5.4 ","57","3.5","-17.7","0.11","0.23","9.21H","0.10 ","8.1 ","UIT,ISO","157.097833","68.412139"],
"NGC3265" => ["E ","... ","1.3 x 1.0 ","1421","20.0","-17.7","1.30","0.65","8.24H","... ","... ","&nbsp","157.778208","28.796389"],
"Mrk33" => ["Im ","SB ","1.0 x 0.9 ","1461","21.7","-18.4","2.29","0.88","8.77H","1.5 ","... ","IUE,HST","158.133066","54.400969"],
"NGC3351" => ["SBb ","SB ","7.4 x 5.0 ","778","9.3","-20.4","0.54","0.51","9.28","1.2 ","9.3 ","UIT,HST,CO","160.990542","11.703611"],
"NGC3521" => ["SABbc ","L ","11.0 x 5.1 ","805","9.0","-21.0","0.81","0.38","9.96","1.7 ","9.1 ","CO,HI","166.4524208","-0.0358639"],
"NGC3621" => ["Sad ","... ","12.3 x 7.1 ","727","6.2","-19.4","1.10","0.33","9.88H","5.1 ","9.0 ","&nbsp","169.567917","-32.812611"],
"NGC3627" => ["SABb ","Sy2 ","9.1 x 4.2 ","727","8.9","-20.8","1.21","0.47","9.69","6.9 ","9.3 ","CO","170.062615","12.991549"],
"NGC3773" => ["SA0 ","... ","1.2 x 1.0 ","987","12.9","-17.5","0.40","0.82","7.99H","... ","... ","&nbsp","174.554042","12.111917"],
"NGC3938" => ["SAc ","... ","5.4 x 4.9 ","809","12.2","-20.1","0.46","0.33","9.82","1.2 ","... ","CO","178.206042","44.120722"],
"NGC4125" => ["E6p ","... ","5.8 x 3.2 ","1356","21.4","-21.6","0.03","0.39","... ","... ","... ","ISO,CII ","182.025083","65.174139"],
"NGC4236" => ["SBdm ","... ","21.9 x 7.2 ","0","3.5","-18.1","0.09","0.40","... ","0.3 ","... ","ISO,CII","184.175500","69.462583"],
"NGC4254" => ["SAc ","... ","5.4 x 4.7 ","2407","20.0","-21.6","1.02","0.37","10.31","11.0 ","9.2 ","&nbsp","184.706792","184.706792"],
"NGC4321" => ["SABbc ","L ","7.4 x 6.3 ","1571","20.0","-22.1","0.73","0.37","10.29","5.5 ","9.3 ","IUE,HST,ISO,CO,HI","185.728750","15.822389"],
"NGC4450" => ["SAab ","L ","5.2 x 3.9 ","1954","20.0","-21.4","0.07","0.19","9.38","0.5 ","... ","ISO,CII,CO","187.123458","17.084944"],
"NGC4536" => ["SABbc ","H ","7.6 x 3.2 ","1808","25.0","-20.8","2.33","0.64","10.01","3.7 ","8.9 ","HST","188.613042","2.187889"],
"NGC4552" => ["E ","L ","5.1 x 4.7 ","340","4.5","-17.3","... ","... ","... ","... ","... ","... ","188.9158637","12.5563414"],
"NGC4559" => ["SABcd ","H ","10.7 x 4.4 ","816","11.6","-21.0","0.17","0.41","10.05H","... ","8.7 ","ISO,CII,CO","188.990375","27.959750"],
"NGC4569" => ["SABab ","L/Sy ","9.5 x 4.4 ","-235","20.0","-22.0","0.22","0.37","9.86","1.9 ","9.3 ","IUE,ISO,CII,CO,HI","189.207489","13.162859"],
"NGC4579" => ["SABb ","L/Sy ","5.9 x 4.7 ","1519","20.0","-21.8","0.17","0.28","9.68","2.0 ","9.3 ","IUE,ISO,CII","189.431667","11.818083"],
"NGC4594" => ["SAa ","L/Sy2 ","8.7 x 3.5 ","1091","13.7","-21.5","0.16","0.19","<9.46","0.1 ","... ","IUE,UIT ","189.9976254","-11.6230511"],
"NGC4625" => ["SABmp ","... ","2.2 x 1.9 ","609","9.5","-17.5","0.37","0.34","9.02H","... ","... ","ISO ","190.469583","41.273722"],
"NGC4631" => ["SBd ","... ","15.5 x 2.7 ","606","9.0","-20.6","1.26","0.40","10.14","3.3 ","... ","UIT,ISO","190.533375","32.541500"],
"NGC4725" => ["SABab ","Sy2 ","10.7 x 7.6 ","1206","17.1","-22.0","0.09","0.20","10.14","... ","9.3 ","ISO,CO","192.610875","25.500750"],
"NGC4736" => ["SAab ","L ","11.2 x 9.1 ","308","5.3","-19.9","0.87","0.57","9.22","2.1 ","9.0 ","UIT,HST,ISO,CO,HI","192.721088","41.120458"],
"DDO154" => ["IBm ","... ","3.0 x 2.2 ","376","5.4","-15.1","... ","... ","8.99H","0.0015","7.5 ","ISO ","193.521875","27.149639"],
"NGC4826" => ["SAab ","Sy2 ","10.0 x 5.4 ","408","5.6","-20.3","0.27","0.48","9.02","0.3 ","9.4 ","ISO,CO,HI","194.182333","21.681083"],
"DDO165" => ["Im ","... ","3.5 x 1.9 ","37","3.5","-15.3","... ","... ","8.02H","0.002 ","... ","&nbsp","196.60354","67.70694"],
"NGC5033" => ["SAc ","Sy2 ","10.7 x 5.0 ","875","13.3","-20.9","0.48","0.34","10.10","2.1 ","9.1 ","ISO,CO","198.364692","36.593911"],
"NGC5055" => ["SAbc ","H/L ","12.6 x 7.2 ","504","8.2","-19.0","4.56","0.25","10.07","2.3 ","9.3 ","UIT,ISO,CO,HI","198.955542","42.029278"],
"NGC5194" => ["SABbc ","H/Sy2 ","11.2 x 6.9 ","463","8.2","-21.4","0.60","0.35","10.03","5.4 ","9.3 ","UIT,ISO,CII,CO,HI","202.4696292","47.1951722"],
"NGC5195" => ["SB0p ","L ","5.8 x 4.6 ","552","8.2","-20.0","0.29","0.53","8.25C","<0.1","... ","ISO,CII","202.498292","47.266139"],
"NGC5398" => ["SBdm ","H ","2.8 x 1.7 ","1216","15.0","-18.9","0.44","0.58","9.11H","... ","... ","IUE,HST","210.339833","-33.063778"],
"NGC5408" => ["IBm ","... ","1.6 x 0.8 ","509","4.5","-16.1","0.74","0.89","8.45H","0.18 ","8.0 ","ISO ","210.837125","-41.377694"],
"NGC5474" => ["SAcd ","H ","4.8 x 4.3 ","273","6.9","-18.4","0.11","0.28","9.10H","0.2 ","... ","ISO ","211.256708","53.662222"],
"NGC5713" => ["SABbcp","... ","2.8 x 2.5 ","1883","26.6","-20.9","1.71","0.57","10.14","... ","... ","HST,ISO,CII","220.048042","-0.289222"],
"NGC5866" => ["S0 ","... ","4.7 x 1.9 ","692","12.5","-19.9","0.51","0.29","<8.79","<0.1","... ","ISO,CII","226.623167","55.763306"],
"IC4710" => ["SBm ","SB ","3.6 x 2.8 ","741","8.5","-18.3","0.20","0.38","8.69H","1.3 ","... ","HST ","277.158208","-66.982278"],
"NGC6822" => ["IBm ","... ","15.5 x 13.5","-57","0.6","-13.8","2.50","0.50","8.26H","0.024 ","8.1 ","ISO,CII,CO","296.23594","-14.78929"],
"NGC6946" => ["SABcd ","H ","11.5 x 9.8 ","48","5.5","-21.3","0.39","0.40","10.01","2.2 ","9.1 ","UIT,ISO,CII,CO,HI","308.718068","60.153946"],
"NGC7331" => ["SAb ","L ","10.5 x 3.7 ","816","15.7","-21.8","1.02","0.30","10.33","4.2 ","9.1 ","ISO,CII,CO,HI","339.2670653","34.4156372"],
"NGC7552" => ["SAc ","SB/L ","3.4 x 2.7 ","1585","22.3","-21.7","3.20","0.71","9.68H","7.0 ","9.0 ","IUE,HST,ISO,CII","349.044875","-42.584833"],
"NGC7793" => ["SAd ","H ","9.3 x 6.3 ","230","3.2","-18.2","0.57","0.35","8.81H","0.3 ","8.6 ","IUE,ISO,CII","359.457625","-32.591028"]);
	
	
	
#this is the extra data table on the Galaxies that Claus requested
#
%distanceInfo=("Galaxy" => ["Dist<br>Mpc ","dist_unc<br>Mpc ","Flow Model Flag","Distance Method","Reference"],
"(1) " => ["(2) ","(3) ","(4) ","(5)","(6)"],
"&nbsp" => ["","&nbsp","&nbsp","&nbsp","&nbsp","&nbsp"],
"NGC0628" => [7.30 ,"","","","Shapley 2001ApJS 137, 139<br> (Shapley 2001:  7.3)"],
"NGC0024" => [7.336, 2.329,"KLMflow","",""],
"NGC0337" => [22.393,	  2.329,   "KLMflow","",""],
"NGC0584" => [19.95,	 1.84,	 "","SBF","T01"],						
"NGC0855" => [9.55,	  0.44 ,  "","SBF","T01"],						
"NGC0925" => [9.12,	  0.17 ,   "","ceph","F01"],
"NGC1097" => [17.094,	  2.329,  "KLMFlow","",""],						
"NGC1266" => [30.032,	 2.329,   "KLMFlow","",""],
"NGC1291" => [10.831,	 2.329,   "KLMFlow","",""],						
"NGC1316" => [24.307,	 2.329,   "KLMFlow","",""],						
"NGC1377" => [24.980,	 2.329,   "KLMFlow","",""],
"NGC1404" => [18.45,	 0.85,	 "KLMFlow","cmult",""],					
"NGC1482" => [23.208,	 2.329,   "KLMFlow","",""],						
"NGC1512" => [11.812,	 2.329,   "KLMFlow","",""],
"NGC1566" => [20.349,	 2.329,   "KLMFlow","",""],
"NGC1705" => [5.10,	 0.60,	 "", "TRGB","TSB01"],						
"NGC2403" => [3.22,	 0.15,	 "","ceph", "F01 <br>(Shapley 2001:  3.2)"], 			
"NGC2798" => [26.172,	 2.329,   "KLMFlow","",""],
"NGC2841" => [14.1,	 1.5,	 "","","Macri 2001 <br>(Shapley 2001: 24.9)"],
"NGC2915" => [3.78,	 0.45,	 "","TRGB","K03a"],						
"NGC2976" => [3.56,	 0.38,	 "","TRGB", "K02a"],						
"NGC3031" => [3.63,	 0.13,	 "","ceph","F01 <br>(Shapley 2001:  3.6)"],		
"NGC3034" => [3.53,	"",	 "","","Ferrarese 2000 ApJS 128,<br>431F (Shapley 2001:  3.6)"],	
"NGC3049" => [23.905,	 2.329,   "KLMFlow","",""],						
"NGC3184" => [11.10,		 "","","","Leonard et al. 2002 (SN) <br>(Shapley 2001:  7.2)"],
"NGC3190" => [20.895,	 2.329,   "KLMFlow","",""],						
"NGC3198" => [13.68,	 0.50,	 "","ceph","F01"],
"NGC3265" => [23.151,	 2.329,   "KLMFlow","",""],
"NGC3351" => [9.33,	 0.39,	 "","ceph","F01 <br>(Shapley 2001: 10.1)"],
"NGC3521" => [10.054,	 2.329,   "KLMFlow","",""],						
"NGC3621" => [6.64,	 0.18,	 "","ceph","F01"],
"NGC3627" => [9.38,	 0.13,	 "","ceph","F01"],
"NGC3773" => [11.878,	 2.329 ,  "KLMFlow","",""],
"NGC3938" => [13.348,	 2.329,   "KLMFlow","",""],
"NGC4125" => [22.91,	 2.11,	 "","SBF","T01"],
"NGC4236" => [4.45,	 0.45,	 "","TRGB","K02a <br>(Shapley 2001:  3.6)"],
"NGC4254" => [37.246,	 2.329,   "KLMFlow","","(Shapley 2001: 12.9)"],
"NGC4321" => [14.32,	 0.46,	 "","SBF","T01 <br>(Shapley 2001: 16.1)"],
"NGC4450" => [31.458,	 2.329,   "KLMFlow","","(Shapley 2001: 14.2)"],
"NGC4536" => [14.45,	 0.27,	 "","ceph","F01 <br>(Shapley 2001: 16.6)"],
"NGC4552" => [15.92,	 0.81,	 "","cmult","Fe00a"],
"NGC4559" => [10.287,	 2.329,   "KLMFlow","",""],
"NGC4569" => [16.583,	 2.000,   "KLMFlow <br>(set to Virgo center)","","(Shapley 2001:  9.0)"],
"NGC4579" => [16.583,	 2.000,   "KLMFlow <br>(set to Virgo center)","","(Shapley 2001: 20.0)"],
"NGC4594" => [9.33,	 0.34,	 "","cmult","Fe00a <br>(Shapley 2001:  9.4)"],
"NGC4625" => [9.166,	 2.329,   "KLMFlow","",""],
"NGC4631" => [8.067,	 2.329 ,  "KLMFlow","","(Shapley 2001:  3.5)"],
"NGC4725" => [11.91,	 0.33,	 "","ceph","F01"],
"NGC4736" => [5.01,	 0.23,	 "","SBF","T01 <br>(Shapley 2001:  5.9)"],
"NGC4826" => [4.962,	 2.329,   "KLMFlow","",""],
"NGC5033" => [14.819,	 2.329,   "KLMFlow","",""],
"NGC5055" => [7.817,	 2.329,   "KLMFlow","",""],
"NGC5194" => [7.768,	 2.329,   "KLMFlow","","(Shapley 2001:  8.4)"],
"NGC5195" => [8.02,	 0.41,	 "","cmult","Fe00a"],
"NGC5408" => [4.81,	 0.38,	 "","TRGB","K02b"],
"NGC5474" => [6.80,	 1.41,	 "","stars","DK00 <br>(Shapley 2001:  7.2)"],
"NGC5713" => [29.412,	 2.329,   "KLMFlow","",""],
"NGC5866" => [15.14,	 0.70,	 "","SBF","T01"],
"NGC6822" => [0.466,	 0.013,   "","ceph","PG04<br> (Shapley 2001:  0.50)"],
"NGC6946" => [6.80,	 1.41,	 "","stars","KSH00 <br>(Shapley 2001:  5.5)"],
"NGC7331" => [14.52,	 0.60,	 "","ceph","F01 <br>(Shapley 2001: 15.1)"],
"NGC7552" => [21.010,	 2.329,   "KLMFlow","",""],
"NGC7793" => [3.82, 0.42,	 "","TRGB","K03c<br> (Shapley 2001:  4.0)"],
"DDO053" => [3.56,0.25,    "","TRGB","K02a"],
"DDO154" => [4.30,0.89,    "","stars","Ma98"],
"DDO165" => [4.57,0.40,   "", "TRGB","K02a"],
"HoI" =>  [3.84, 0.46,    "","TRGB","K02a"],
"HoII" => [3.39, 0.2 ,    "","TRGB","K02a <br>(via G331-034, also see Ferrarese 2000 ApJS 128,431F)"],
"HoIX" => [3.28 ,0.60,    '',"stars","GB04"],
"IC2574" => [4.02,  	   "","","", "Karachentsev 2003 AA 398, 479"],
"IC4710" => [8.957, 2.329,   "KLMFlow","",""],
"M81DwA" => [3.55, 0.26,    "","TRGB","K02a"],
"M81DwB" => [5.30,   "","","","Karachentsev 2003 AA 398, 479"],
"Mrk33" => [22.877, 2.329,   "KLMFlow","",""],
"NGC5398" => [16.688,2.329,   "KLMFlow","",""]);



#see if there's data in the directory and return the proper image reference
#Pass is the name of the galaxy, and the wavelength you're looking at. This makes
#the table of Happy Faces on the data page

sub findHappy {

 $happy = "data/icon_smile.gif";
 $sad = "data/icon_sad.gif";

 $myGalaxy = $_[0];
 $myWave = $_[1];


	 $filename="data/$myGalaxy/$myWave/$myGalaxy\_$myWave\.zip";
	 #print "Looking for: <a href=\"$filename\">$filename</a> <br>";


	 if (-e $filename) {
		 return $happy;
	 } else {
		 return $sad;
}

} #end of findHappy

1;