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

use lib '/app/tools/rps/lib';
use RPS::Mechanical::US::Command::List;
use RPS::Payor::Payor;
use RPS::Mechanical::US::CreateRunForm;
use RPS::Mechanical::Command::Create;
use base 'RPS::Mechanical::Command::Create';

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

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

sub _template { return "/app/tools/rps/templates/mechanical/create.xsl"; }

sub _getForm
{
    my ($self) = @_;
    return RPS::Mechanical::US::CreateRunForm->new();
}

sub _getListCommand
{
    my ($self, $msg) = @_;

    return RPS::Mechanical::US::Command::List->new(msg => $msg);
}

1;