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

use strict;
use warnings;

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

use constant kTable => 'user_input_dist_fee';
use constant kDB    => Common::DB::Item::kClientDB();

sub GetDistFeeBySale {
    my ( $class, %args ) = @_;
    my $sql =
        "select d.dist_fee_pct from user_input_dist_fee d,sale s where d.file_id="
      . $args{file_id}
      . " and s.file_id=d.file_id and d.associated_format=s.format_type";
    my $dbo = Common::RSApp::GetClientDB();
    my $sth = $dbo->DoCmd($sql);
    return undef if ( $sth->rows == 0 );
    my $response = $sth->fetchrow();
    return $response;

}

1;