##########################################################################
#
# routine: db_asn_members_clear_last_collected.pl
#
# Purpose: Clears the asn_members.last_collected value for all members
#          of a given ASN.
#
# Envs:    ENV.OPUS_SERVER - name of DB server
#          ENV.OPUS_DB - name of database containing requests relation
#
# Output:  none
#
# Return:  number of records updated (should = 1, if successful)
#
# Calls:   PrintMsg
#
# modification history:
#
#   date    opr     who     reason
# -------- -----  --------  --------------------------------------
# 06/03/11 46330  MSwam     first version
# 
#########################################################################
sub DB_asn_members_clear_last_collected{
    my ($ASNNAME) = @_;      # ARGUMENTS from @_
    my ($db, $query, $count);  # LOCAL VARS

    require 'do_dbi_pkg.pl';

    $server = $ENV{"OPUS_SERVER"};
    $database = lc($ENV{"OPUS_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

    $query = <<"EOQ";
UPDATE asn_members
SET last_collected = NULL
WHERE association_id = \'$ASNNAME\'
EOQ

    $count = DoDBI($db, $query);
    if ($count != 0) {
        PrintMsg("I", "cleared $count asn_members.last_collected dates");
    }
    else {
        PrintMsg("E", "Update FAILED for $query\n");
    }
    DoDBIclose($db);
}
1;