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

use strict;
use warnings;

use lib '/app/tools/common/lib';

use lib '/app/tools/rps/lib';
use RPS::Command;
use RPS::DB::Item::Label;
use RPS::Label::LabelWithUsers;
use RPS::Label::UserList;

use base 'RPS::Command';

use lib '/app/tools/common/lib';
use RSApache::Response::XSLT;

sub cmd  { return 'list'; }
sub area { return 'label'; }

use constant kTemplate => "/app/tools/rps/templates/label/index.xsl";

# These constants will be used to filter the list returned to the UI.
# If we end up letting the database do all the work, then these might move
# into the appropriate DB::Item interface.  But for now, I'll just grab
# all the labels and apply the filter here as I iterate over the collection.
#
use constant kAllLabels    => 0;
use constant kWithUsers    => 1;
use constant kWithoutUsers => 2;

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

    my $response = $self->SUPER::execute();
    return $response if $response;

    my %getArgs;

    my $searchCollection = RPS::DB::Item::Label->GetAll();
    my $filterFlag       = $self->getParam('filterBy');

    while ( $searchCollection->hasNext() ) {
        my $obj = $searchCollection->next();

        # JPK - Yes, it's rather gross to have to instantiate a full-blown XML Object, then
        # throw it away.  But the table that maps user ids to label id lives in a DIFFERENT DATABASE
        # from the client's Label table.   This means that I can't just do a joined query.
        #
        my $label = RPS::Label::LabelWithUsers->new( _dbItem => $obj );
        if (   !$filterFlag
            || ( kWithUsers == $filterFlag && $label->UserCount() > 0 )
            || ( kWithoutUsers == $filterFlag && $label->UserCount() == 0 ) ) {
            push @{ $self->{xml}{Label} }, $label;
        }
    }

    # LabelWithUsers just contains an array of user ids.
    # To provide the actual list of user names, we'll need a UserList
    #
    $self->{xml}{UserList} = RPS::Label::UserList->new( all => 1 );

    $response = RSApache::Response::XSLT->new( $self->{xml}, kTemplate );
    return $response;
}

1;