#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package Support::Command::Submit;

use strict;
use warnings;

use lib '/app/tools/support/lib';
use Support::Module::ModuleList;

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

use Support::Command;
use base 'Support::Command';

sub app { return 'support' }

sub _addToXML {
    my $self = shift;

    $self->SUPER::_addToXML();

    $self->{xml}{IsSubmit} = $self->isSubmit();
}

sub saveOnSubmit {
    my $self    = shift;
    my $form    = shift;
    my $cgiArgs = $self->getParams();

    return unless ($form);

    if ( $self->isSubmit ) {
        if ( $form->assignCGIParams( 'Form', $self->getParams() ) && $form->validate() ) {
            $form->save( form => $cgiArgs );
            $self->{xml}{Message} = "Update Successful";
        } else {
            $self->{xml}{Error} = "Validation Failed";
        }

        return 1;
    }

    return;
}

sub isSubmit {
    my $self = shift;

    return $self->getParam('submit') ? 1 : 0;
}

###
1;    # Play nicely.
###