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

use strict;
use warnings;

use lib '/app/tools/rps/lib';
use Common::FormObject;
use base 'Common::FormObject';

use RPS::DB::Item::Genre;


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

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

    my %properties;
	if ($args{_dbItem})
	{
		$self->_propertiesFromDBItem(\%properties, $args{_dbItem});
	}
	elsif ($args{genreID})
	{
		$self->_propertiesFromDB(\%properties, $args{genreID});
	}
	else
	{
		$self->_propertiesFromDefaults(\%properties);
	}

    my $rval = $self->_initProperties(\%properties);

    return $rval;
}

sub _propertiesFromDB
{
	my ($self, $hrProperties, $genreID) = @_;

	my $dbItem = RPS::DB::Item::Genre->Lookup(genre_id => $genreID);
	$self->_propertiesFromDBItem($hrProperties, $dbItem);
}

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

	$hrProperties->{genre_id}      = $dbItem->genre_id;
	$hrProperties->{genre_name}    = $dbItem->genre_name;

	$hrProperties->{date_created}  = $dbItem->date_created;
	$hrProperties->{date_modified} = $dbItem->date_modified;
}

sub _propertiesFromDefaults
{
    my ($self, $hrProperties) = @_;

}


sub _initProperties
{
	my ($self, $props) = @_;

	$self->{GenreID}      = Common::FormObject::Scalar::ID->new(value => $props->{genre_id}, readOnly => 1);
	$self->{GenreName}    = Common::FormObject::Scalar::String->new(value => $props->{genre_name}, readOnly => 1);

	$self->{CreatedDate}  = Common::FormObject::Scalar::DateTime->new(value => $props->{date_created}, readOnly => 1);
	$self->{ModifiedDate} = Common::FormObject::Scalar::DateTime->new(value => $props->{date_modified}, readOnly => 1);

	return $self;
}



1;