#---------------------------------------------------------------
# ____                   _ _         ____  _
#|  _ \ ___  _   _  __ _| | |_ _   _/ ___|| |__   __ _ _ __ ___
#| |_) / _ \| | | |/ _` | | __| | | \___ \| '_ \ / _` | '__/ _ \
#|  _ < (_) | |_| | (_| | | |_| |_| |___) | | | | (_| | | |  __/
#|_| \_\___/ \__, |\__,_|_|\__|\__, |____/|_| |_|\__,_|_|  \___|
#            |___/             |___/
#
# Copyright (C) 2011 RoyaltyShare, Inc.   All Rights Reserved
#---------------------------------------------------------------

package RPS::Report::Dynamic::SecondTestGroup::AnotherTest;
use strict;

use lib '/app/tools/common/lib';
use lib '/app/tools/report/lib';
use lib '/app/tools/rps/lib';
use lib '/app/tools/appuser/lib';
use base 'Report::Dynamic::SingleQuery';

use Common::Log;
use Common::Assert;
use File::Path;
use AppUser::DB::Item::AccessLevel;
use Text::CSV::Encoded;
use Report::Dynamic::Parameters;

#
#  ((((((((((  Public Interface
#

sub Group {
    my ($class) = @_;
    return 'Second Test Group';
}

sub Type {
    my ($class) = @_;
    return 'Another Test';
}

sub UserLevelIsValid {
    my ( $class, $userLevel ) = @_;
    my %validLevels = (
        AppUser::DB::Item::AccessLevel::kRSAdmin()      => 1,
        AppUser::DB::Item::AccessLevel::kRSAccountRep() => 1,
        AppUser::DB::Item::AccessLevel::kAdmin()        => 1,
    );

    return $validLevels{$userLevel};
}

sub _OptionalData {
    return {
        'Flagellated' => {
            type  => Report::Dynamic::Parameters::kTypeBoolean,    # or you could just say 'bool'
            value => 1,                                            # Flaggelate by default
        }
    };
}

sub _Criteria {
    return {
        'StartDate' => {
            type => Report::Dynamic::Parameters::kTypeDate,
        },
        'EndDate' => {
            type => Report::Dynamic::Parameters::kTypeDate,
        },
    };
}

# TODO
sub _header {
    assert( 0, 'override this' );
}

sub _JobSubclass {
    assert( 0, 'override this' );
}

sub _columns {
    my ($class) = @_;

    # Override this to return an array ref of column names that
    # match the DB::Item your collection query returns.
    #
    assert( 0, 'override' );
}

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

    # Override this to return a DB::ItemCollection of row data.
    # Essentially, you will usually be making a call into a DB::Item
    # class, passing along the correct parameters.
    # That's going to be left as an exercise for the reader...
    #
    assert( 0, 'override' );
}

1;