#!/usr/bin/perl -w
use strict;

BEGIN {
unshift (@INC,"/view/sawans1_Ndb_0037_work/vobs/pp/pptai/common/NightlyDB");
}
use DBIx::Class;
use Configuration qw( &get_common_path );
use lib &Configuration::get_common_path();
use Common;
use Database::ConnectionManager;
my $host;
my $user;
my $pw;
my $dump_flag;
my $dump_dir;


my $us_desc_info=& _get_us_desc();

print $us_desc_info;

sub _get_api_schema{
my $db = $Configuration::DB_SCHEMA_NAME;
	$host = $Configuration::DB_HOST_NAME;
	$user = $Configuration::DB_USERNAME;
	$pw = $Configuration::DB_PASSWORD;
	$dump_flag = $Configuration::SCHEMA_DUMP_FLAG;
	$dump_dir = $Configuration::SCHEMA_DUMP_DIR;
	
	return ConnectionManager::connect_to_nightly_db_schema($db,$host,
$user,$pw,$dump_flag,$dump_dir);       
        }
sub _get_us_desc
{
    	#get DIBx::Class::Schema object
	my $schema = _get_api_schema();
    my $us_name="testppcmd/UserScenarioPPsetpriority";
     my $test_run_description =
        _query_to_get_desc($schema, $us_name);
  
}

sub _query_to_get_desc
{
    my ($schema, $us_name) = @_;
    my $test_run_rs =
        $schema->resultset("UserScenario")->search(
            {
             "name" => $us_name
             },
            { select    => "description",
        
             }          
        );
    
    return $test_run_rs;    
}