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

use strict;
use warnings;

use Data::Dumper;

use lib '/app/tools/rps/lib';
use RPS::LabelContract::Term;
use RPS::DB::Item::LabelContract;
use RPS::DB::Item::LabelContractTerm;

use lib '/app/tools/common/lib';

use Common::FormHash;
use base 'Common::FormHash';

sub _tagName {
    return 'Term';
}

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

    if ( !$args{labelContractID} ) {
        return undef;
    }

    my $collection = RPS::DB::Item::LabelContractTerm->GetByLabelContractID( $args{labelContractID} );
    return $collection;
}

sub _keyMethodName {
    return 'LabelContractTermID';
}

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

    if ( $self->{_labelContractID} ) {
        return RPS::LabelContract::Term->new( labelContractID => $self->{_labelContractID} );
    }

    return RPS::LabelContract::Term->new();
}

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

    return RPS::LabelContract::Term->new( _dbItem => $dbItem );
}

sub _addObject {
    my ( $self, $object ) = @_;

    $self->SUPER::_addObject($object);

    if ( $self->{_dependency} && exists $self->{_dependency}{ $object->LabelContractTermID() } ) {
        $object->setDependency();
    }
}

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

    # We want to keep track of the contract ID for later.
    #
    if ( $args{labelContractID} ) {

        #$self->{_dependency} = RPS::DB::Item::LabelContractTerm->GetTermDependencyByLabelContractID($args{labelContractID});
        $self->{_labelContractID} = $args{labelContractID};
    }

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

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

    my $valid = 1;
    foreach my $termID ( keys %{ $self->{Term} } ) {
        my $term = $self->{Term}{$termID};
        next if ( !defined $term );

        if ( !$term->validate() ) {
            $valid = 0;
        }
    }

    return $valid;
}

# Overriding inherited method to return the keys sorted by Term->LabelName.
#

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

    my $keys = $self->getAllKeysSortedByTermLabelName();

    return $keys;
}

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

    my @keys = sort { uc( $self->{Term}{$a}->LabelName() ) cmp uc( $self->{Term}{$b}->LabelName() ) } keys %{ $self->{Term} };
    return \@keys;
}

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

    # !!!
    # I moved the 'smarts' about what happens when deleting a Term into the
    # Term class's Save method.   Basically, checking $term->{_hasData} was a
    # violation of encapsulation.
    #

    #
    my $keysSorted = $self->getAllKeysSortedByTermLabelName();

    foreach my $termID (@$keysSorted) {
        my $termObj = $self->{Term}{$termID};
        $termObj->save();
    }
}

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

    return $self->{_labelContractID};
}

###
1;    #
###