#------------------------------------------------------------
# Copyright (C) 2011 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package RPS::Statement::Settings::ArtistSettingsHistory;


use strict;
use Carp;
use Data::Dumper;

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

use lib '/app/tools/rps/lib';
use RPS::DB::Item::ArtistRoyaltyStatementSettings;
use RPS::Statement::Settings::ArtistSettings;

use Common::FormObject;
use base 'Common::FormObject::List';


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

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

    # We want to show the default settings, which all customers use initially.
    # I don't want to have to store that in the database, though.
    # So we'll tack it onto the list here - Essentially a 'virtual' record.
    #
    my $itemName = $self->_itemName();
    push @{$self->{$itemName}}, RPS::Statement::Settings::ArtistSettings->new();


    # Now we'll interate over the list.   If there is more than one item, we want to
    # note the 'end date' as well as the 'create date'.  The 'end date' will be the same
    # as the next record's create date.
    # Sure, we could probably get the template do this...  maybe we should?
    # ... Well, frankly, it could get pretty weird in the template.  Let's just do it here.
    #
    my $lastDate;
    foreach my $settings (@{$self->{$itemName}})
    {
        $settings->{DateEnded} = Common::FormObject::Scalar::Date->new(value => $lastDate, readOnly => 1);
        $lastDate = $settings->{DateCreated}->_getValue();
    }

    # Add pagination information
    #
    $self->{Pagination}->{TotalCount} = (scalar @{$self->{$itemName}});


    if( $args{id} )
    {
        $self->{Pagination}->{CurrentPage} = $args{id};
    }
    else
    {
        $self->{Pagination}->{CurrentPage} = 0;
    }

    return $self;
}

sub _itemName { return 'ArtistStatementSetting'; }


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

    my $c = RPS::DB::Item::ArtistRoyaltyStatementSettings->GetAllOrderedByDate();

    return $c;
}


sub _getObj
{
    my ($self, $dbItem) = @_;
    return RPS::Statement::Settings::ArtistSettings->new(_dbItem => $dbItem);
}

###
1;#
###