1 <% encode_json($return) %>\
4 my %arg = $cgi->param('arg');
5 my $custnum = delete($arg{'custnum'});
10 $error = "No customer specified" unless $custnum =~ /^\d+$/;
12 my $curuser = $FS::CurrentUser::CurrentUser;
14 $error = "access denied"
15 unless $error or $curuser->access_right('View customer');
18 $cust_main = qsearchs( {
19 'table' => 'cust_main',
20 'hashref' => { 'custnum' => $custnum },
21 'extra_sql' => ' AND '. $curuser->agentnums_sql,
23 $error = "Customer not found!" unless $error or $cust_main;
26 ? { 'error' => $error }
27 : { 'display_recurring' => [ $cust_main->display_recurring ] };