##

use Provider::CGI;
use strict;
use coplib;
use Apache::DBI;
use DBI;
use Provider::LogAgent;
use Provider::Constants;

my $cgi = Provider::CGI->new();

# Store the user information in the session object
my $session = {};
getSession( $session );
## Common Log
my $logger     = new Provider::LogAgent($session);
#my $event     = $Provider::Constants::ADMIN_INFO;
my $event      = 20001;
my $entity     = "";
my $entityType = "";
my $additional = {"action"=>$Provider::Constants::COMMON_LOG_ACCESS};
$logger->store_message($event, $entity, $entityType, %$additional);

my $dbh = cpDBConnect( $session );
my $loop_data=[];
my $sql_stmt;
print $cgi->header( -charset => q{utf-8} );
my $template;

if(( $session->{entity_type_cd} eq 'A' ) or ($session->{entity_type_cd} eq 'S' ) )
{
   $template = coplib::new_template('airline_carrier.tmpl', 'Airline Carrier', $session);
}
else
{
   $event = $Provider::Constants::INVALID_LOGIC_ERROR;
   $logger->store_message($event, $entity, $entityType);
   $template = new_template("no_access.tmpl", "No Access", undef );
   print $template->output();
   exit;
}

$sql_stmt = <prepare($sql_stmt);
$sth->execute( );
$loop_data = $sth->fetchall_arrayref({});
$sth->finish;
#$dbh->disconnect;
$template->param( AIRLINE_LIST => $loop_data);
print $template->output;

END
{
   untie $session;
   undef $session;
}