#!/usr/local/bin/perl


eval{

# Version: 1.0
my $version = 1.0;
# Version notes:
# 1.0: Uses PDB ID and site number to look up

# Retrieve Entry
# ==============

# Program to offer CSA versions for download
#

BEGIN{ unshift @INC, "/nfs/research2/thornton/www/databases/cgi-bin/CSA/Modules"; }

require EBI::HtmlHelper;
#require CSA::HtmlHelper;
use DBI;

# Parameters
# ----------
#require("Active_Site_Parameters.pl"); # Common Parameters
#require("PSA_Parameters.pl");         # Common Parameters
require("PSA_Param.pl");              # Common Parameters
%PARAMETER = ();		      # Local Parameters



# Includes
# --------
#require("Active_Site_Routines.pl");
require("PSA_Routines.pl");

# Access Permissions
# ------------------
Check_IP_Address($PSA_PARAM{ACCESS_ATLAS}); 
Update_Access_Log("CSA");

# Parameters
# ----------

# Variables
# ---------

use CGI::Carp qw(fatalsToBrowser);


$PDB_Code = "";			# PDB code to search on
@Keys     = ();			# Keys to search on 
				# (Used to restrict search)

@Site_Info = ();		# Information retreived by search. 



# Main 
# ----

#Turn off Buffering 
$| = 1;

# Display these files
my $helpFile = "/nfs/research2/thornton/www/databases/html/CSA/help.dat";
DisplayHelp($helpFile);

exit; 


# Display data
sub DisplayHelp {
	my ($helpFile) = @_;

	# EBI Banner

	print "Content-type: text/html\n\n";

	EBI::HtmlHelper::CSA_printEBIbanner(0, "databases", "Catalytic Site Atlas", "Catalytic Site Atlas ".$PSA_PARAM{Version_Number}, $PSA_PARAM{HTML_Home}, "CSA", "Download CSA", 0, 0, 0,0,$PSA_PARAM{PSA_Site_Wrapper},$PSA_PARAM{Find_SPROT},$PSA_PARAM{Find_EC}, $PSA_PARAM{Browse}, $PSA_PARAM{"Help_Page"}, $PSA_PARAM{Download});

	print "\n<link rel=\"STYLESHEET\" href=\"$PSA_PARAM{StyleSheet}\" type=\"text/css\">\n";

	open(HELP, $helpFile) or die "<p>Cannot open help-file data.</p>";

	while(my $line = <HELP>) {
		print $line;
	}
	
	close HELP;

	#Footer 
	EBI::HtmlHelper::CSA_footer();

}

sub printTableHeader {
	my ($heading) = @_;
	
	print << "TABLE";
	<table cellpadding=2 border=1 width=100%>
	<tr>
	<td valign=top bgcolor=#336666 width=100% colspan = 2><font color="white">
	<div class=heading_boldwhite>$heading</div>
	</td>
	</tr>
TABLE

}

sub printTableRow {
	
	my ($name, $text) = @_;

	print "<tr>\n";
	print "<td valign=top bgcolor=#336666 width=10% colspan=1><font color=\"white\">\n";
	print "<div class=bodytext_bold>$name</div>\n";
	print "</td>\n";
	print "<td valign=top align=left><div class=bodytext>\n";
	print "$text\n";
	print "</div></td>\n";
	print "</tr>\n";
	
}

}