diff options
author | Ivan Kohler <ivan@freeside.biz> | 2015-10-05 19:09:33 -0700 |
---|---|---|
committer | Jonathan Prykop <jonathan@freeside.biz> | 2016-02-03 17:28:24 -0600 |
commit | 2ed3ae34f224a4a78813afb45b35fe83ae6b1d82 (patch) | |
tree | e62c724fa63655010ebdfa2b898290de701299c0 /FS/FS/cust_main.pm | |
parent | 660d0fe0876186513fdd4d6a2946816dc4a42db5 (diff) |
ticket_system-appointment-custom_field, RT#34237
Diffstat (limited to 'FS/FS/cust_main.pm')
-rw-r--r-- | FS/FS/cust_main.pm | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 3df17bc62..cf9bdb9b6 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -4417,6 +4417,30 @@ sub tickets { (@tickets); } +=item appointments [ STATUS ] + +Returns an array of hashes representing the customer's RT tickets which +are appointments. + +=cut + +sub appointments { + my $self = shift; + my $status = ( @_ && $_[0] ) ? shift : ''; + + return () unless $conf->config('ticket_system'); + + my $queueid = $conf->config('ticket_system-appointment-queueid'); + + @{ FS::TicketSystem->customer_tickets( $self->custnum, + 99, + undef, + $status, + $queueid, + ) + }; +} + # Return services representing svc_accts in customer support packages sub support_services { my $self = shift; |