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

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


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


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

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

    return RPS::Publisher::CA::LicenseList->new(
        publisherID => $publisherID,
        payorID     => $payorID,
        currentPage => $page);
}



###
1;#
###