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

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

use lib '/app/tools/common/lib';
use Common::Assert;
use RSApache::Response::XSLT;

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

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

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

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

1;