#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
#------------------------------------------------------------
package RPS::ServiceList;

use strict;
use warnings;

use lib '/app/tools/common/lib';
use Common::Assert;
use Common::DB::Item::MapFaceService;
use Common::MapFace::MapFaceService;

use lib '/app/tools/rps/lib';
use RPS::DB::Item::Service;
use RPS::Service;

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

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

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

    $self->{Service} = [];
    my $serviceCollection;

    if ( $args{fileOnly} ) {
        $serviceCollection = RPS::DB::Item::Service->GetAllFileServices();
    } elsif ( $args{query} ) {
        $serviceCollection = RPS::DB::Item::Service->Search( searchTerm => $args{query}, limit => $args{limit} );
    } else {
        $serviceCollection = RPS::DB::Item::Service->GetAll();
    }

    while ( $serviceCollection->hasNext() ) {
        my $serviceObj = $serviceCollection->next();
        push @{ $self->{Service} }, RPS::Service->new( _dbItem => $serviceObj );
    }

    if ( $args{mapface} ) {
        my $mfServiceCollection;

        if ( $args{query} ) {
            $mfServiceCollection = Common::DB::Item::MapFaceService->Search( searchTerm => $args{query}, limit => $args{limit} );
        } else {
            $mfServiceCollection = Common::DB::Item::MapFaceService->GetAll();
        }

        while ( $mfServiceCollection->hasNext() ) {
            my $serviceObj = $mfServiceCollection->next();
            push @{ $self->{Service} }, Common::MapFace::MapFaceService->new( _dbItem => $serviceObj );
        }
        @{ $self->{Service} } = sort { $a->ServiceName() cmp $b->ServiceName() } @{ $self->{Service} };
    }

    return $self;
}

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

    my $valid = 1;
    foreach my $service ( @{ $self->{Service} } ) {
        if ( !$service->validate() ) {
            $valid = 0;
        }
    }

    return $valid;
}

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

    foreach my $service ( @{ $self->{Service} } ) {
        $service->save();
    }
}

sub _listProperties {
    return { Service => 1 };
}

sub _propertyIsEditable {
    my ( $self, $propertyName ) = @_;

    if ( $propertyName eq 'Service' ) {
        return 1;
    }
    return 0;
}

# This is the special sort of list accessor.
#
sub Service {
    my ( $self, $index, $methodAddressList, $newValue ) = @_;

    if ( 0 == scalar @$methodAddressList ) {
        if ( defined $newValue ) {
            $self->{Service}[$index] = $newValue;
        }
        return 1;
    }

    # May need to dynamically add objects to the list...
    #
    if ( !defined $self->{Service}[$index] ) {

        # something bad is happening here
        assert(0);

        # $self->{Service}[$index] = RPS::Service->new(serviceID => $self->{_contractID}, mode => $self->{_mode});
    }

    return $self->{Service}[$index]->_accessProperty( $methodAddressList, $newValue );
}

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

    return $self->{Service};
}

1;