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

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

use lib '/app/tools/rps/lib';
use RPS::DB::Item::ProductServicePricing;

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

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

sub GetAll {
    my $class = shift;
    my %args = @_;
    my $dbo = Common::RSApp::GetCommonDB();

    my $sql = "SELECT * FROM " . kTable;
    $sql .= " WHERE service_id = " . $dbo->DBQuote($args{service_id})
        if( $args{service_id} );

    $sql .= " ORDER BY service_id, display_order";

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


sub LookupByProduct {
    my $class = shift;
    my %args = @_;
    my $dbo = Common::RSApp::GetCommonDB();
    my $price_tier_id = 0;

    assert( $args{product_id} );
    assert( $args{service_id} );

    my $product_service_price = RPS::DB::Item::ProductServicePricing->Lookup( service_id => $args{service_id},
                                                                                  product_id => $args{product_id} );
    $price_tier_id = $product_service_price->service_price_tier_id
        if( $product_service_price );

    my $sql = "SELECT * FROM " . kTable;
    $sql .= " WHERE service_id = " . $dbo->DBQuote($args{service_id});

    $sql .= " AND service_price_tier_id = "   . $dbo->DBQuote($price_tier_id);

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

    return $collection->next if( $collection );
}



sub LookupByTierName {
    my $class = shift;
    my %args = @_;
    my $dbo = Common::RSApp::GetCommonDB();

    assert( $args{tier_name} );
    assert( $args{service_name} );

    my $sql = "SELECT * FROM " . kTable . " INNER JOIN distribution_service USING ( service_id ) ";
    $sql .= " WHERE service_name = " . $dbo->DBQuote($args{service_name}) . " AND " .
                  " tier_name = " . $dbo->DBQuote($args{tier_name});

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

    return $collection->next if( $collection );
}



1;