<% encode_json($return) %>\
<%init>

my $curuser = $FS::CurrentUser::CurrentUser;
die "access denied" unless $curuser->access_right('Credit line items');

my $DEBUG = 1;

my $conf = new FS::Conf;

my $sub = $cgi->param('sub');

my $return = {};

die "unknown sub '$sub'" if $sub ne 'calculate_taxes';

my %arg = $cgi->param('arg');
warn join('', map "$_: $arg{$_}\n", keys %arg )
  if $DEBUG;

#some false laziness w/cust_credit::credit_lineitems

my $cust_main = qsearchs({
  'table'     => 'cust_main',
  'hashref'   => { 'custnum' => $arg{custnum} },
  'extra_sql' => ' AND '. $curuser->agentnums_sql,
}) or die 'unknown customer';

$arg{billpkgnums} = [ split(',', $arg{billpkgnums}) ];
$arg{setuprecurs} = [ split(',', $arg{setuprecurs}) ];
$arg{amounts} =     [ split(',', $arg{amounts}) ];

my %results = FS::cust_credit->calculate_tax_adjustment(%arg);

$return = {
  %arg,
  %results
};

warn Dumper $return if $DEBUG;

</%init>