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

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

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

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

sub area { return 'ca_publisher'; }

sub _template { return "/app/tools/rps/templates/ca_publisher/edit_direct.xsl"; }
sub _accountForm { return "RPS::Publisher::CA::AccountForm"; }
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::AccountForm::GetNumDirectLicenses($publisherID, $payorID);
    my $response = RSApache::Response::JSON->new($count);  
    return $response;     
}

1;