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

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


use lib '/app/tools/rps/lib';
use RPS::Publisher::US::LicenseList;


use base 'RPS::Publisher::BaseListLicensesForm';

sub _getLicenseList
{
    my ($self, $publisherID, $payorID, $page) = @_;

    return RPS::Publisher::US::LicenseList->new
    (
        publisherID => $publisherID,
        payorID     => $payorID,
        directOrIndirect => 'direct',
        currentPage => $page,
    );
}


###
1;#
###