1 <% encode_json($return) %>\
4 my $curuser = $FS::CurrentUser::CurrentUser;
5 die "access denied" unless $curuser->access_right('Credit line items');
9 my $conf = new FS::Conf;
11 my $sub = $cgi->param('sub');
15 die "unknown sub '$sub'" if $sub ne 'calculate_taxes';
17 my %arg = $cgi->param('arg');
18 warn join('', map "$_: $arg{$_}\n", keys %arg )
21 #some false laziness w/cust_credit::credit_lineitems
23 my $cust_main = qsearchs({
24 'table' => 'cust_main',
25 'hashref' => { 'custnum' => $arg{custnum} },
26 'extra_sql' => ' AND '. $curuser->agentnums_sql,
27 }) or die 'unknown customer';
29 $arg{billpkgnums} = [ split(',', $arg{billpkgnums}) ];
30 $arg{setuprecurs} = [ split(',', $arg{setuprecurs}) ];
31 $arg{amounts} = [ split(',', $arg{amounts}) ];
33 my %results = FS::cust_credit->calculate_tax_adjustment(%arg);
40 warn Dumper $return if $DEBUG;