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

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

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

use lib '/app/tools/raptor/lib';
use Raptor::DB::Item::Sale;

use lib '/app/tools/rps/lib';
use RPS::DB::Item::SaleImportError;
use RPS::MapFace::SaleImportError;
use RPS::File::Sale;

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

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

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

    my $fileID = $args{file_id};
    my $saleID = $args{sale_id};

    $self->{SaleImportError} = [];

    my $saleImportErrors;

    if ($fileID) {
        $saleImportErrors = RPS::DB::Item::SaleImportError->GetAllQualifyingByFileID($fileID);
    } elsif ($saleID) {
        $saleImportErrors = RPS::DB::Item::SaleImportError->GetAllQualifyingBySaleID($saleID);
    }

    my %importErrors;

    while ( $saleImportErrors->hasNext() ) {
        my $error = $saleImportErrors->next();

        # We only care about the sale import errors that have not been mapped yet.
        if ( $error->mapped eq 'Y' ) {

            #next();
        }

        push @{ $self->{SaleImportError} }, RPS::MapFace::SaleImportError->new( _dbItem => $error );
    }

    return $self;
}

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

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

    return $self->{SaleImportError};
}

1;