#!/usr/local/bin/perl5.6.1 -w

###########################################################################
#                                                                         #
#   The script details the reports that have been written by the          #
#   Oracle team and are available for use, giving information on their    #
#   file location, description of their function and the SQL tables       #
#   involved.  The reports with extension '.sql' can be accessed through  #
#   this tool.                                                            #
#                                                                         #                                      
#   Author : Karen Ambrose                                                #
#                                                                         #
###########################################################################

BEGIN {unshift(@INC, "/usr/local/badger/bin","/nfs/WWW/cgi-bin")};  

$|=1;

use CGI qw(:standard :html3);
require "sangercgi.pl"; 

my $cgititle = 'Unavailable';                                 #page title.
my $reportlink='/cgi-bin/oracle_reports/test_r2';               #address of the script that displays the report.
my $table_colour = '#E2E2FF'; 
my $filepath;
my @filepaths;
my $count=0;


&output_header2($cgititle);

&NAVIGATION_BAR;

print "<HR>";

print "<FONT SIZE=\"5\">This page is unavailable at the moment!!!</FONT>";

print "<HR>";

&output_footer;

#exiting via mod perl environment or normally.
if ($ENV{'MOD_PERL'}){
    Apache->exit;
}else{
    exit;
}

##SUBROUTINES##################################################################################


#navigation bar
sub NAVIGATION_BAR {

print "<TABLE BORDER=\"0\" HEIGHT=\"10\"  WIDTH=\"80%\"  ALIGN=\"center\" BGCOLOR=$table_colour>";
print Tr([td({-align=>'center'},[a({href=>"http://intweb.sanger.ac.uk/HGP/oracle_reports/web.shtml"},"Home-KIT"),a({href=>"http://intweb.sanger.ac.uk/cgi-bin/oracle_reports/status.pl?Projectname=Projectname"},"Project List Totals"),a({href=>"http://intweb.sanger.ac.uk/cgi-bin/oracle_reports/status.pl?Clonename=Clonename"},"Clone List Totals"),a({href=>"http://intweb.sanger.ac.uk/HGP/oracle_reports/help.shtml#Reports Index"},"Help")])]);
print "</TABLE>";
print "<BR>";


}



