#!/usr/bin/perl
use strict;
use warnings;
my $version = "8.1.28.2";
no warnings qw (uninitialized);
use lib ("../lib", "Book", "/perl5lib/lib", "/perl5lib/lib/i686-linux" );
use CGI::Fast qw(:standard);
use Book::DB;
use Book::Library;
#use CGI qw(:standard);
use CGI::Carp qw();
use CGI::Cookie;
use HTML::Template;
use HTML::Template::Expr;
use Data::Grouper;
use Digest::MD5 qw(md5_hex);
use Time::Piece::MySQL;
use Time::Local;
use CGI::FormBuilder;

use vars qw($LANG $GLOBAL $CONFIG);
use vars qw($reason $count $exit_requested $handling_request);

use XML::Simple;
$LANG = XMLin("Resources/en.xml",ForceArray=>['page','string'],KeyAttr => {page => 'name',string=>'name'},ContentKey => '-content' );
#$GLOBAL = XMLin("Resources/globals.xml",ForceArray=> 0,ContentKey => '-content' );
#$CONFIG = XMLin("Configuration/$ENV{SERVER_NAME}.xml",ForceArray=> 0,ContentKey => '-content' );




use Book::Config qw();
use vars qw(%c %d);
*c = \%Book::Config::c;
*d = \%Book::Config::d;
my $db_obj = new Book::DB or die;
my $COUNTER = 0;


while (my $query = new CGI::Fast) {

	print header();	
	my $id = $db_obj->PlainSQL("SELECT DATABASE();"); 
	unless( $id ){$db_obj = new Book::DB or die;}
	exit if -M $ENV{SCRIPT_FILENAME} < 0;

	my $a = $query->param('a');
	
	SWITCH: {

	if ($a eq 'tryoutReport1') {
		require 'Pages/report/report.pl';
		&tryout_report($query, $db_obj);
		last SWITCH;
	}
	if ($a eq 'tryoutReport2') {
		require 'Pages/report/report.pl';
		if ($query->param('_submitted')){
			&tryout_report_2($query, $db_obj);
		} else {
			&tryout_report_2_setup;
		}
		
		last SWITCH;
	}
	if ($a eq 'mr') {
		require 'Pages/step_1/step_1.pl';
		&med_release($query, $db_obj);
		last SWITCH;
	}	
	if ($a eq 'mr_email_reminder') {
		require 'Pages/step_1/step_1.pl';
		&med_release_reminder($query, $db_obj);
		last SWITCH;
	}	
	require 'Pages/step_1/step_1.pl';
  	&step_1($query, $db_obj);
  	}		
	#my $template;
 	#my $ACTION = 'step_1';
 	#$template = HTML::Template::Expr->new(filename => 'Pages/step_1/step_1.html');
 	#$template->param(ACTION=>$ACTION);
 	#print $template->output;

}



1;
 

# 
# 
# #!/usr/bin/perl -w
# use strict;
# use warnings;
# no warnings qw( uninitialized );
# use lib ("../lib", "lib");
# use DB;
# use CGI qw(:standard);
# use CGI::Carp qw(fatalsToBrowser set_message);
# #use HTML::Template;
# use HTML::Template::Expr;
# use Data::Grouper;
# require 'lib/library.pl';
# print header();	
# set_message(\&Handle_Errors);
# 
# my $db_obj = new My::DB or croak "Can't initialize My::DB object: $!\n";
# 
# my $query = new CGI;
# my $a = $query->param('a');
# #print $a; #debug;
# #exit;
# if ($a eq 'step_1') {
# 	require 'lib/step_1.pl';
# 	&step_1($query);
# 	}
# elsif ($a eq 'dataentry') {
# 	require 'lib/step_1.pl';
# 	&step_1($query);
# 	}
# elsif ($a eq 'dataentry_submit') {
# 	require 'lib/step_1.pl';
# 	&step_1($query);
# 	}
# elsif ($a eq 'tryout_report') {
# 	require 'lib/tryout_report.pl';
# 	&tryout_report();
# 	}
# elsif ($a eq 'tryout_report_2') {
# 	require 'lib/tryout_report_2.pl';
# 	&tryout_report_2();
# 	}
# elsif ($a eq 'reminder_101') {
# 	#my $template;
# 	#$template = HTML::Template::Expr->new(filename => 'ui/reminder.html');
# 	#print $template->output;
# 	}
# elsif ($a eq 'reminder_101_run') {
# 	#require 'lib/reminder.pl';
# 	#&reminder();
# 	}
# else {
# 	my $template;
# 	my $ACTION = 'step_1';
# 	$template = HTML::Template::Expr->new(filename => 'ui/step_1.html');
# 	$template->param(ACTION=>$ACTION);
# 	print $template->output;
# 
# }
# 
# 
#