1 % if ( $sub eq 'discount_terms' ) {
4 % my $custnum = $cgi->param('arg');
6 % $cust_main = qsearchs({
7 % 'table' => 'cust_main',
8 % 'hashref' => { 'custnum' => $custnum },
9 % 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql,
13 % $return = [ map [ $_, "$_ months" ], $cust_main->discount_terms ];
16 <% objToJson($return) %>
20 my $conf = new FS::Conf;
22 my $sub = $cgi->param('sub');