#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package RPS::Publisher::StatementType;

use strict;
use warnings;
use Carp;

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

use lib '/app/tools/rps/lib';
use RPS::DB::Item::StatementType;
use Common::FormObject;

use base 'Common::FormObject';

sub _init {
    my ( $self, %args ) = @_;

    $self->SUPER::_init(%args);

    if ( $args{_dbItem} ) {
        return $self->_initFromDBItem( $args{_dbItem} );
    } elsif ( $args{statementTypeID} ) {
        return $self->_initFromDB( $args{statementTypeID} );
    } else {
        return $self->_initWithDefaults();
    }
}

sub _initFromDB {
    my ( $self, $id ) = @_;

    my $dbItem = RPS::DB::Item::StatementType->Lookup( statement_type_id => $id );
    return $self->_initFromDBItem($dbItem);
}

sub _initFromDBItem {
    my ( $self, $dbItem ) = @_;

    $self->{StatementTypeID} = Common::FormObject::Scalar->new( value => $dbItem->statement_type_id, readOnly => 1 );
    $self->{Name}        = Common::FormObject::Scalar::String->new( value => $dbItem->name );
    $self->{Description} = Common::FormObject::Scalar::String->new( value => $dbItem->description );

    return $self;
}

sub _initWithDefaults {
    my ($self) = @_;

    $self->{StatementTypeID} = Common::FormObject::Scalar->new( readOnly => 1 );
    $self->{Name}            = Common::FormObject::Scalar::String->new();
    $self->{Description}     = Common::FormObject::Scalar::String->new();

    return $self;
}

###
1;    #
###