httemplate/misc/xmlhttp-cust_bill_pkg-calculate_taxes.html

   1 <% encode_json($return) %>\
   2 <%init>
   3
   4 my $curuser = $FS::CurrentUser::CurrentUser;
   5 die "access denied" unless $curuser->access_right('Credit line items');
   6
   7 my $DEBUG = 1;
   8
   9 my $conf = new FS::Conf;
  10
  11 my $sub = $cgi->param('sub');
  12
  13 my $return = {};
  14
  15 die "unknown sub '$sub'" if $sub ne 'calculate_taxes';
  16
  17 my %arg = $cgi->param('arg');
  18 warn join('', map "$_: $arg{$_}\n", keys %arg )
  19   if $DEBUG;
  20
  21 #some false laziness w/cust_credit::credit_lineitems
  22
  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';
  28
  29 $arg{billpkgnums} = [ split(',', $arg{billpkgnums}) ];
  30 $arg{setuprecurs} = [ split(',', $arg{setuprecurs}) ];
  31 $arg{amounts} =     [ split(',', $arg{amounts}) ];
  32
  33 my %results = FS::cust_credit->calculate_tax_adjustment(%arg);
  34
  35 $return = {
  36   %arg,
  37   %results
  38 };
  39
  40 warn Dumper $return if $DEBUG;
  41
  42 </%init>