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

use strict;
use warnings;

use lib '/app/tools/appuser/lib';
use lib '/app/tools/common/lib';
use lib '/app/tools/rps/lib';
use AppUser::DB::Item::UserClientLabelMap;
use AppUser::User::User;
use AppUser::DB::Item::User;
use AppUser::DB::Item::AccessLevel;
use Common::RSApp;
use Common::Assert;
use Common::Util;
use Common::FormObject;
use Common::FormObject::List;
use RPS::DB::Item::Label;

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

sub _itemName { 'User'; }


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

    if (1 == $args{all})
    {
        # Return all label users from the system.
        #
        return AppUser::DB::Item::User->GetByAccessLevel(AppUser::DB::Item::AccessLevel::kLabelReport());
    }
    else
    {
        my $labelID = $args{labelID};
        return undef unless $labelID;
        return AppUser::DB::Item::UserClientLabelMap->GetAllForClientAndLabel(Common::RSApp::GetClientID(), $labelID);
    }
}


sub _getObj
{
    my ($self, $dbItem) = @_;

    return AppUser::User::User->new(userID => $dbItem->user_id());
}


1;