#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package RPS::DB::Item::CAStatRate;
use strict;
use warnings;

use lib '/app/tools/common/lib';
use Common::DB::ItemCollection;

use Common::DB::Item;
use base 'Common::DB::Item';

use constant kTable => 'ca_stat_rate';
use constant kDB    => Common::DB::Item::kCommonDB();

# this only returns one item
#
sub GetByDate {
    my ( $class, $date ) = @_;
    return undef unless ($date);

    my $dbo = Common::RSApp::GetCommonDB();
    my $sql = "SELECT * FROM " . kTable . " WHERE date_effective <= " . $dbo->DBQuote($date) . " ORDER BY date_effective DESC LIMIT 1";

    my $collection = $class->SUPER::GetAll($sql);

    if ( defined $collection && $collection->hasNext() ) {
        return $collection->next();
    } else {
        return undef;
    }
}

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

    my $order = "date_effective DESC";

    my $sql = "SELECT * FROM " . kTable . " ORDER BY $order";

    return $class->SUPER::GetAll($sql);
}

1;