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

use lib '/app/tools/rps/lib';
use RPS::Mechanical::US::Command::List;
use RPS::Mechanical::US::Job::CommitMechanicalRun;
use RPS::Mechanical::Command::Commit;
use RPS::DB::Item::MechanicalRun;

use base 'RPS::Mechanical::Command::Commit';

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

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

sub _getRunData
{
    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 _createCommitJob
{
    my ($self, $runData) = @_;

    return RPS::Mechanical::US::Job::CommitMechanicalRun->new(runID => $runData->mechanical_run_id);
}
1;