#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package RPS::DB::Item::ProductTrack;
use strict;
use warnings;
use lib '/app/tools/common/lib';
use Common::Assert;
use Common::DB::Item;
use Common::DB::ItemCollection;
use base 'Common::DB::Item';

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


sub GetTracksByProductID
{
	my ($class, $productID) = @_;

	my $sql = "SELECT * FROM ".kTable." WHERE product_id=$productID ORDER BY disc_number, disc_track";
    Common::Log::Debug( "QUERY: $sql" );
	return $class->GetAll($sql);
}


sub GetByTrackID
{
	my ($class, $trackID) = @_;

	my $sql = "SELECT * FROM ".kTable." WHERE track_id=$trackID";
    return $class->GetAll($sql);
}

sub TrackIsBonusTrack
{
    my ($class, $trackID) = @_;

    my $sql = "SELECT COUNT(*) from ".kTable." WHERE track_id=$trackID AND is_bonus_track=1";

	my $dbo = Common::RSApp::GetClientDB();

	my $sth = $dbo->DoCmd($sql);

	my $aref = $sth->fetchrow() if($sth);

	return (defined $aref) ? $aref : 0;
}


sub GetNextDiscNumAndDiscTrack
{
    my ($class, $productID) = @_;

	my $dbo = Common::RSApp::GetClientDB();

    # We'll get the highest disc number first, then figure out what the next track on
    # that disc would be.
    #
    my $sth = $dbo->DoCmd("SELECT MAX(disc_number) FROM " . kTable . " WHERE product_id=$productID");
    my ($nextDiscNum) = $sth->fetchrow_array();
    if (! $nextDiscNum)
    {
        return(1, 1);
    }

    $sth = $dbo->DoCmd("SELECT MAX(disc_track) FROM " . kTable . " WHERE product_id=$productID AND disc_number=$nextDiscNum");
    my ($nextDiscTrack) = $sth->fetchrow_array();
    $nextDiscTrack++;

    return ($nextDiscNum, $nextDiscTrack);
}

1;