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

use strict;
use warnings;

use Data::Dumper;

use lib '/app/tools/rps/lib';
use RPS::LabelContract::GroupTermException;
use RPS::DB::Item::LabelContract;
use RPS::DB::Item::LabelContractGroupTermException;

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

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


sub _tagName
{
    return 'GroupTermException';
}


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

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

    my $collection = RPS::DB::Item::LabelContractGroupTermException->GetByLabelContractGroupTermID($args{labelContractGroupTermID});
    return $collection;
}


sub _keyMethodName
{
    return 'LabelContractGroupTermExceptionID';
}


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

    if($self->{_labelContractGroupTermID})
    {
        return RPS::LabelContract::GroupTermException->new(labelContractGroupTermID => $self->{_labelContractGroupTermID});
    }
    
    return RPS::LabelContract::GroupTermException->new();
}


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

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


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

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

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


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


    # We want to keep track of the contract ID for later.
    #
	if($args{labelContractGroupTermID})
	{
        #$self->{_dependency} = RPS::DB::Item::LabelContractTerm->GetTermDependencyByLabelContractID($args{labelContractID});
		$self->{_labelContractGroupTermID} = $args{labelContractGroupTermID};
    }

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



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

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

    return $keys;
}


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

    my @keys = sort {
        compareServiceNames($self->{GroupTermException}{$a}->ServiceName(), $self->{GroupTermException}{$b}->ServiceName()) ||
        compareCountryNames($self->{GroupTermException}{$a}->CountryName(), $self->{GroupTermException}{$b}->CountryName())        
    } keys %{$self->{GroupTermException}};
    return \@keys;
}

sub compareServiceNames {
    my $a = shift;
    my $b = shift;   

    if (uc($a) eq 'ALL' && uc($b) eq 'ALL') {
        return 0;            
    } elsif (uc($a) eq 'ALL') {
        return 1;
    } elsif (uc($b) eq 'ALL') {
        return -1;
    } else {    
        return (uc($a) cmp uc($b));
    }
}

sub compareCountryNames {
    my $a = shift;
    my $b = shift;   
    
    if (uc($a) eq 'ALL') {
        return 1;
    } elsif (uc($b) eq 'ALL') {
        return -1;
    } else {       
        return (uc($a) cmp uc($b));
    }
}

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

    my $keysSortedByServiceAndCountry = $self->getAllKeysSortedByServiceAndCountry();

    foreach my $groupTermExceptionID (@$keysSortedByServiceAndCountry)
    {
        my $groupTermExceptionObj = $self->{GroupTermException}{$groupTermExceptionID};
        $groupTermExceptionObj->save();
    }
}

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

    my $keysSortedByServiceAndCountry = $self->getAllKeysSortedByServiceAndCountry();

    foreach my $groupTermExceptionID (@$keysSortedByServiceAndCountry)
    {
        my $groupTermExceptionObj = $self->{GroupTermException}{$groupTermExceptionID};
        $groupTermExceptionObj->delete();
    }
}


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

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

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

	return $valid;
}


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

	return $self->{_labelContractGroupTermID};
}


###
1;#
###