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

use strict;
use warnings;

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

use lib '/app/tools/rps/lib';
use RPS::ArtistContract::ArtistContractList;
use RPS::Label::LabelWithUsers;
use RPS::Label::UserList;
use RPS::CountryList;
use RPS::StateList;
use RPS::RoyaltyRun::RoyaltyRunStatusList;

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

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

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

    if($args{labelID})
    {
        # !!! The 'LabelWithUsers' class contains all the user data, which we don't need.
        # !!! All we really need is an array that contains the user ids.
        # !!! Might need to re-wrte that class to work in that fashion.
        #
        $self->{Label} = RPS::Label::LabelWithUsers->new(labelID => $args{labelID});
    }
    else
    {
        $self->{Label} = RPS::Label::LabelWithUsers->new();
    }

    
    # Extending this to allow the list of Label Users to be manipulated.
    # What we need to produce here is a list of all label users, and a list of
    # those users that are already attached to this Label.
    #
    # !!! This interface is very similar to the new Labels interface on the User/Edit page.
    #
    $self->{UserList} = RPS::Label::UserList->new( all => 1);

	$self->{RoyaltyRunStatus} = new RPS::RoyaltyRun::RoyaltyRunStatusList( label => 1 );
    return $self;
}


# The form won't bother sending any UserID cgi parameters if the select list is empty.
# This means that if you try and delete all the existing users from a label, nothing happens.
# So this override is essentially a hack to force the user id list to be blank when we're
# reading in cgi parameters.
#
sub assignCGIParams
{
	my ($self, $baseName, $cgiParams) = @_;

    $self->{Label}->UserID([]);
    return $self->SUPER::assignCGIParams($baseName, $cgiParams);
}


#sub _propertyIsEditable
#{
#    my ($self, $propertyName) = @_;
#
#    if ($propertyName eq 'Label')
#    {
#        return 1;
#    }
#
#    return 0;
#}

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

    Common::Log::Print("In save, label= ", $self->{Label});
    $self->{Label}->save();
}


#sub validate
#{
#    my ($self) = @_;
#
#    return $self->{Label}->validate();
#}



sub labelID
{
    my ($self) = @_;
    return $self->{Label}->LabelID();
}


###
1;#
###