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

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

use lib '/app/tools/rps/lib';
use RPS::File::Sale;
use RPS::MapFace::SaleImportErrorList;
use RPS::Command;
use RPS::CommandLog;
use base 'RPS::Command';

use Data::Dumper;

use constant kTemplate => '/app/tools/rps/templates/mapface/more_sales_ajax.xsl';

sub cmd  { return "more_sales_ajax"; }
sub area { return "mapface"; }

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

    # Give any inherited methods the first crack at this.
    # (This checks for login and basic access permissions).
    #
    my $response = $self->SUPER::execute();
    return $response if $response;

    my $index     = $self->getParam("index");
    my $mappingID = $self->getParam("mapID");

    my $saleIDs = RPS::DB::Item::SaleImportError->GetDistinctSalesByMappingID( $mappingID, 5, $index );
    my $firstSaleID;
    while ( $saleIDs->hasNext() ) {
        my $saleID = $saleIDs->next();
        $saleID = $saleID->sale_id;

        if ( !$firstSaleID ) {
            $firstSaleID = $saleID;
        }

        my $sale = RPS::File::Sale->new( sale_id => $saleID );
        push @{ $self->{xml}{SaleGroup}{Sale} }, $sale->GetObjectXML();
    }

    $self->{xml}{SaleImportErrorList} = RPS::MapFace::SaleImportErrorList->new( sale_id => $firstSaleID );

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

    return $response;
}

1;