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

use strict;
use warnings;

use Data::Dumper;

use lib '/app/tools/rps/lib';
use RPS::LabelContract::GroupTerm;
use RPS::DB::Item::LabelContract;
use RPS::DB::Item::LabelContractGroupTerm;

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

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


sub _tagName
{
    return 'GroupTerm';
}


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

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

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


sub _keyMethodName
{
    return 'LabelContractGroupTermID';
}


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

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


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

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


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

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

    if ($self->{_dependency} && exists $self->{_dependency}{$object->LabelContractGroupTermID()})
    {
        $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->{GroupTerm}})
    {
        my $term = $self->{GroupTerm}{$termID};
		next if (!defined $term);

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

	return $valid;
}


# Overriding inherited method to return the keys sorted by GroupTerm->Priority.
#
sub getKeys
{
    my ($self) = @_;

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

    return $keys;
}


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

    my @keys = sort {$self->{GroupTerm}{$a}->Priority() <=> $self->{GroupTerm}{$b}->Priority()} keys %{$self->{GroupTerm}};
    return \@keys;
}

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

    my $keysSortedByPriority = $self->getAllKeysSortedByGroupTermPriority();

    my $newPriority = 1;  
    foreach my $groupTermID (@$keysSortedByPriority)
    {
        my $groupTermObj = $self->{GroupTerm}{$groupTermID};
        #if (! $groupTermObj->Delete())
        #{
            $groupTermObj->Priority($newPriority++);
        #}
        $groupTermObj->save();
    }
}


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

	return $self->{_labelContractID};
}


###
1;#
###