#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
#------------------------------------------------------------
package Support::SaleFileExplorer::Command::ListFilesAjax;
use strict;
use warnings;

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

use RSApache::Response::XML;
use RSApache::Command::XMLCommand;
use Common::Preference;
use Support::SaleFileExplorer::FileList;

use base 'RSApache::Command::XMLCommand';

sub cmd  { return "files"; }
sub area { return 'sale_file_explorer'; }

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

    my $periodID = $self->getParam('period_id');

    $self->{xml}{Files} = Support::SaleFileExplorer::FileList->new( periodID => $periodID );
    my $response = RSApache::Response::XML->new( $self->{xml} );

    return $response;
}

1;