package	2dustInformation;

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

@ISA	= qw(Exporter);
@EXPORT	= qw(%teamMembers @pi &dSingsHeader &dMainNavbar $siteBackground %navLinks);	#export list of galaxies
$VERSION	= 1.00;			#version number

 
 
#2dust development team (top two are leads)
%teamMembers = 

 ("Margaret Meixner" => ["Space Telescope Science Institute","meixner\@stsci.edu"],
  "Toshiya Ueta" => ["NASA Ames Research Center/SOFIA project","toshiya\_ueta\@fastmail.us"],
  "Megan Sosey" => ["Space Telescope Science Institute","sosey\@stsci.edu"] );
 


#display 2dust pretty header
sub dSingsHeader {
print <<HTML;
		<br><br>
		<center><table border=0 cellpadding=0 cellspacing=5>
		<tr><td></td><td><center>
		<a href="./index.cgi" class="2dust"> <img src="./logo1.gif">  </a><br>
		</td>
		<td></td></tr>
		
		</table><br><br>
HTML
}


#some default site variables
#$siteBackground = "../../bg.gif"; #the basic background image for the site

#team links for the the front page and navigation
%navLinks = ("Home" => "./index.cgi",
		"Latest News" => "./news.html",
		"Test Datasets" => "./testData.html",
		"Models" => "./Models/index.cgi",
		"Publications" => "./dPublications.cgi",
		"Resources" => "",
		"Employment" => "http://sings.stsci.edu/employment/index.htm");


#display the main navigation toolbar
sub dMainNavbar {

print <<HTML;

	<div id="sidebar-a"><br>
	<p align="left">
HTML
 
#add in the team links for the left sidebar

@mykeys = keys(%navLinks);
 for $i (sort(@mykeys)){
 	print "<a href=\"$navLinks{$i}\">$i</a><br>";
 }
print <<HTML;
	</p>
	</div> 
HTML

}
1;