#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package RPS::Publisher::Command::BaseList;
use strict;
use warnings;

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

use lib '/app/tools/rps/lib';
use RPS::Command;
use RPS::AlphabeticalPagination;
use RPS::Publisher::US::Publisher;
use base 'RPS::Command';

use lib '/app/tools/common/lib';
use RSApache::Response::XSLT;

sub cmd  { return 'list'; }


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

	my $response = $self->SUPER::execute();
	return $response if $response;

    my %getArgs;

    # Get the pagination parameters
    #
    my $page = $self->getParam("page");
    $page = 'A' unless defined $page;
    if ('ALL' ne $page)
    {
        $getArgs{alpha} = $page;
    }

    # Could be direct, admin, agent (or just not there)
    #
    my $filter = $self->getParam('filter');
    if ('direct' eq $filter)
    {
        $getArgs{directOnly} = 1;
    }
    elsif ('admin' eq $filter)
    {
        $getArgs{adminOnly} = 1;
    }
    elsif ('agent' eq $filter)
    {
        $getArgs{agentOnly} = 1;
    }
    elsif ('hasAgent' eq $filter)
    {
        $getArgs{withAgent} = 1;
    }
    elsif ('hasAdmin' eq $filter)
    {
        $getArgs{withAdmin} = 1;
    }



	my $searchCollection = $self->_publisherDB()->Get(%getArgs);

    my $pagination = RPS::AlphabeticalPagination->new(currentPage => $page);

	while ($searchCollection->hasNext())
	{
		my $publisherObj = $searchCollection->next();
        push @{$self->{xml}{Publisher}}, $self->_publisherObj()->new(_dbItem => $publisherObj, loadSubs => 0);
	}

	$self->{xml}{Pagination} = $pagination if $pagination;
	
	
    # Save area as preference for this command
    #    
    Common::Preference::SetPersistentCookie( 'list_publisher_area' => $self->area());
    Common::Preference::StoreCookies();	
	

	$response = RSApache::Response::XSLT->new($self->{xml}, $self->_template());
	return $response;
}



1;