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

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


use lib '/app/tools/rps/lib';
use Common::FormObject;
use RPS::DB::Item::TrackLicense;
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,
        currentPage => $page);
}

###
1;#
###