httemplate/misc/xmlhttp-cust_main-display_recurring.html

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