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

use strict;
use warnings;
use Data::Dumper;

use lib '/app/tools/rps/lib';
use RPS::ArtistContract::ProductFormat;

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

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

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

    # I want to arrange these 'hierarchically'.
    # Each top-level format, followed by all sub levels.
    #
    my %map;

    my $collection = RPS::DB::Item::ProductFormat->GetAll();
    while ( $collection->hasNext() ) {
        my $obj = $collection->next();

        # jpk - this is a hack.
        # We don't want to display _all_ the digital formats... Just the
        # 'All Digital' format.
        # To do this, though, I need to hard-code the fact that
        # the 'All Physical' format has an id of 1.
        #
        # actually, now we only want physical products to show
        # (still hard-coding the fact that 'All Physical has id==1
        # -jff-
        #
        my $objParent = $obj->parent_id();

        # next if ($objParent > 0 && $objParent != 1);
        next if ( $obj->product_format_id != 1 && $objParent != 1 );

        push @{ $map{$objParent} }, $obj;
    }

    my @list;
    _buildList( \@list, \%map, 0 );

    $self->{ProductFormat} = \@list;

    return $self;
}

sub getList {
    my ($self) = @_;

    return $self->{Channel};
}

# Recursively build a 'hierarchical' array of product formats, where
# items are clustered underneath their parent.
#
sub _buildList {
    my ( $list, $map, $parentID ) = @_;

    my $childList = $map->{$parentID};
    return unless $childList;

    foreach my $dbItem (@$childList) {
        push @$list, RPS::ArtistContract::ProductFormat->new( _dbItem => $dbItem );
        _buildList( $list, $map, $dbItem->product_format_id );
    }
}

###
1;    #
###