#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package Support::FileManagement::AudioList;

use strict;
use warnings;
use Carp;

use lib '/app/tools/mediaserve/lib';
use MediaServe::DB::Item::ProductTrackFile;

use lib '/app/tools/support/lib';
use Support::FileManagement::ProductTrackFile;

use lib '/app/tools/common/lib';
use Common::Assert;

use Common::FormObject;
use base 'Common::FormObject';

sub _init {
    my ( $self, %args ) = @_;

    $self->SUPER::_init(%args);

    my $upc = $args{upc};

    my $audio = MediaServe::DB::Item::ProductTrackFile->LookupByUPC( upc => $upc );

    $self->{UPC} = $args{upc};

    $self->{Audio} = [];

    while ( $audio && $audio->hasNext() ) {
        my $audioData = $audio->next();
        push( @{ $self->{Audio} }, new Support::FileManagement::ProductTrackFile( _dbItem => $audioData ) );
    }

    return $self;
}

sub Audio {
    my $self = shift;
    return @{ $self->{Audio} };
}

1;