#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package RPS::Mechanical::CA::Command::Delete;
use strict;
use warnings;
use Data::Dumper;

use lib '/app/tools/rps/lib';
use RPS::Mechanical::CA::Command::List;
use RPS::Mechanical::CA::Job::DeleteMechanicalRun;
use RPS::DB::Item::CAMechanicalRun;
use RPS::Mechanical::Command::Delete;
use base 'RPS::Mechanical::Command::Delete';

use lib '/app/tools/common/lib';
use Common::Assert;

sub cmd  { return 'delete'; }
sub area { return 'ca_mechanical'; }

sub _getRunDBItem {
    my ( $self, $id ) = @_;
    return RPS::DB::Item::CAMechanicalRun->Lookup( ca_mechanical_run_id => $id );
}

sub _getListCommand {
    my ( $self, $msg ) = @_;
    return RPS::Mechanical::CA::Command::List->new( msg => $msg );
}

sub _createDeleteJob {
    my ( $self, $runData ) = @_;
    return RPS::Mechanical::CA::Job::DeleteMechanicalRun->new( runID => $runData->ca_mechanical_run_id );
}

1;