summaryrefslogtreecommitdiff
path: root/httemplate/misc/xmlhttp-cust_main-display_recurring.html
diff options
context:
space:
mode:
Diffstat (limited to 'httemplate/misc/xmlhttp-cust_main-display_recurring.html')
-rw-r--r--httemplate/misc/xmlhttp-cust_main-display_recurring.html29
1 files changed, 29 insertions, 0 deletions
diff --git a/httemplate/misc/xmlhttp-cust_main-display_recurring.html b/httemplate/misc/xmlhttp-cust_main-display_recurring.html
new file mode 100644
index 000000000..dd9ed3bb5
--- /dev/null
+++ b/httemplate/misc/xmlhttp-cust_main-display_recurring.html
@@ -0,0 +1,29 @@
+<% encode_json($return) %>\
+<%init>
+
+my %arg = $cgi->param('arg');
+my $custnum = delete($arg{'custnum'});
+
+my $error;
+my $return;
+
+$error = "No customer specified" unless $custnum =~ /^\d+$/;
+
+my $curuser = $FS::CurrentUser::CurrentUser;
+
+$error = "access denied"
+ unless $error or $curuser->access_right('View customer');
+
+my $cust_main;
+$cust_main = qsearchs( {
+ 'table' => 'cust_main',
+ 'hashref' => { 'custnum' => $custnum },
+ 'extra_sql' => ' AND '. $curuser->agentnums_sql,
+}) unless $error;
+$error = "Customer not found!" unless $error or $cust_main;
+
+$return = $error
+ ? { 'error' => $error }
+ : { 'display_recurring' => [ $cust_main->display_recurring ] };
+
+</%init>