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

use strict;
use warnings;
use Carp;

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

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

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 $images = MediaServe::DB::Item::AlbumFile->SearchByFilename( filename => $upc );

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

    $self->{Images} = [];

    while ( $images->hasNext() ) {
        my $imageData = $images->next();
        push( @{ $self->{Images} }, new Support::FileManagement::AlbumFile( _dbItem => $imageData ) );
    }

    return $self;
}

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

1;