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

use strict;
use warnings;
use Data::Dumper;

use lib '/app/tools/rps/lib';
use RPS::Publisher::CA::IndirectAccountForm;
use RPS::Publisher::Command::CA::Show;
use RPS::Publisher::Command::CA::Search;
use RPS::DB::Item::MechanicalRun;

use base 'RPS::Publisher::Command::BaseEditIndirect';

sub area { return 'ca_publisher'; }

sub _template      { return "/app/tools/rps/templates/ca_publisher/edit_indirect.xsl"; }
sub _accountForm   { return "RPS::Publisher::CA::IndirectAccountForm"; }
sub _showCommand   { return "RPS::Publisher::Command::CA::Show"; }
sub _searchCommand { return "RPS::Publisher::Command::CA::Search"; }

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

    my $count = RPS::Publisher::CA::IndirectAccountForm::GetNumIndirectLicenses( $publisherID, $payorID );
    my $response = RSApache::Response::JSON->new($count);
    return $response;
}

1;