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

use strict;
use warnings;
use Data::Dumper;

use lib '/app/tools/data_classes/lib';
use Client::Service;

use lib '/app/tools/common/lib';
use Common::Assert;
use Common::FormObject;
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 'RPS::ServiceList';

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

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

    $self->{Service} = [];
	my $serviceCollection;
	
    if ($args{query}) {
		$serviceCollection = Common::DB::Item::MapFaceService->Search(searchTerm => $args{query}, limit => $args{limit});
    
        my %seen;
    
		while ($serviceCollection->hasNext())
		{
			my $serviceObj = $serviceCollection->next();
			push @{$self->{Service}}, Common::MapFace::MapFaceService->new(_dbItem => $serviceObj);
			
			# We need to suppres dupes between the mapface service list and the regular list.
			# Let's do it by service id, so that we will know if we end up with two entries
			# with the same name but different IDs (which shouldn't happen).
			$seen{$serviceObj->service_id} = 1;
		}	
		
		my %services = Client::Service::GetAllServiceNamesLike(name => $args{query}, limit => $args{limit});
		
		foreach my $serviceName (keys %services) {
		    my $serviceID = $services{$serviceName};
		    
		    # Ignore ones that we already added above.
		    if (!$seen{$serviceID}) {		    
    		    my $service = RPS::Service->new();
    		    
                $service->{ServiceID} = Common::FormObject::Scalar->new(value => $serviceID, readOnly => 1);
                $service->{ServiceName} = Common::FormObject::Scalar->new(value => $serviceName, readOnly => 1);
    		
    		    push @{$self->{Service}}, $service;        
    		}
        }
			
		@{$self->{Service}} = sort {$a->ServiceName() cmp $b->ServiceName()} @{$self->{Service}};

    }

    return $self;
}


1;