##########################################################################
#
# routine: db_req_date.pl
#
# Purpose: Look up a request in the requests relation.
#          Return the corresponding dads request date (req_date).
#
# Input:   $REQUEST - name of request to look up
#          ENV.ARCH_SERVER - name of DB server
#          ENV.ARCH_DB - name of database containing requests relation
#
# Output:  $DADS_REQUEST_DATE - request date for the input request name
#
# Return:  req_date, if found
#          "" if not found or error
#
# Calls:   PrintMsg
#
# modification history:
#
#   date    opr     who     reason
# -------- -----  --------  --------------------------------------
# 04/03/00 43165  MSwam     first version
# 04/19/04 50982  J.Baum    req_date name changed to req_request_date and
#                           change req_reqnum to req_tracking_id
# 03/25/10 64274    MSwam     Replace ST_DBlib with DBI
# 06/30/10 64432    MSwam     Use single quotes for SQLServer
# 
#########################################################################
sub DB_req_date{
    my ($REQUEST) = @_;                            # ARGUMENTS from @_
    my ($db, $query, $count);  # LOCAL VARS
    my ($dads_request_name);

    require 'do_dbi_pkg.pl';
    $server = $ENV{"ARCH_SERVER"};
    $database = lc($ENV{"ARCH_DB"});

    my $db = STScI::DBI->connect( "dbi:Sybase:server=$server");
    if (!defined($db)) {
        PrintMsg("E","Cannot connect to server: $DBI::errstr");
        return;
    }
    DoDBI($db,"use $database"); # open database

    # set return value as if failed
    $dads_request_date = "";

    $query = <<"EOQ";
SELECT req_request_date FROM requests
WHERE req_tracking_id = '$REQUEST'
EOQ
    $count = 0;
    $sth = DoDBIexecute( $db, $query);
    while ( ( $tmp ) = DoDBIfetch( $db, $query, $sth) ) {
        $count++;
        $dads_request_date = $tmp;
        PrintMsg("D","found req_request_date $tmp in requests for $REQUEST\n");
    }

    DoDBIclose($db);
    $dads_request_date;   # return value
}
1;