#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
#------------------------------------------------------------
package RPS::Statement::RecentlyViewedStatementList;

use strict;
use warnings;

use lib '/app/tools/rps/lib';
use RPS::Statement::Artist::BaseStatement;
use RPS::Statement::Mechanical::US::BaseStatement;
use RPS::Statement::Mechanical::CA::BaseStatement;
use RPS::Statement::UKMechanical::BaseStatement;
use RPS::Statement::Label::BaseStatement;

use Common::FormObject;
use RPS::CommandLog;
#use base 'Common::XMLObject';
use base 'RPS::CommandLog';

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

    # First call the inherited method to get the log item
    #
    my $logItem = $self->SUPER::_createLogItemFromDBItem($dbItem);

    if ('RPS::Statement::Command::ShowArtist' eq $logItem->CommandName())
    {
        my $obj = RPS::Statement::Artist::BaseStatement->new(artistRoyaltyStatementID => $logItem->CommandID());
        $logItem->{ArtistRoyaltyStatement} = $obj;
    }
    elsif ('RPS::Statement::Command::ShowMechanical' eq $logItem->CommandName()
            || 'RPS::Statement::Command::ShowMechanicalPDF' eq $logItem->CommandName())
    {
        my $obj = RPS::Statement::Mechanical::US::BaseStatement->new(mechanicalStatementID => $logItem->CommandID());
        $logItem->{MechanicalStatement} = $obj;
    }
    elsif ('RPS::Statement::Command::ShowUKMechanical' eq $logItem->CommandName())
    {
        my $obj = RPS::Statement::UKMechanical::BaseStatement->new(mcpsStatementID => $logItem->CommandID());
        $logItem->{McpsStatement} = $obj;
    }    
    elsif ('RPS::Statement::Command::ShowCAMechanical' eq $logItem->CommandName())
    {
        my $obj = RPS::Statement::Mechanical::CA::BaseStatement->new(mechanicalStatementID => $logItem->CommandID());
        $logItem->{CAMechanicalStatement} = $obj;
    }        
    elsif ('RPS::Statement::Command::ShowLabel' eq $logItem->CommandName())
    {
        my $obj = RPS::Statement::Label::BaseStatement->new(labelRoyaltyStatementID => $logItem->CommandID());
        $logItem->{LabelRoyaltyStatement} = $obj;
    }
    else
    {
        assert(0, "unexpected command name: " . $logItem->CommandName());
    }


    return $logItem;
}


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


    $args{command} = [ 'RPS::Statement::Command::ShowArtist', 'RPS::Statement::Command::ShowMechanical', 'RPS::Statement::Command::ShowMechanicalPDF', 'RPS::Statement::Command::ShowUKMechanical', 'RPS::Statement::Command::ShowCAMechanical', 'RPS::Statement::Command::ShowLabel' ];
    $args{most_recent} = 1;

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

}


1;