diff options
author | jayce <jayce> | 2010-01-26 04:47:03 +0000 |
---|---|---|
committer | jayce <jayce> | 2010-01-26 04:47:03 +0000 |
commit | 250ac5b142e70f394cb9796b16264622c380e0c8 (patch) | |
tree | 45f3153bb9107b783278c1f49a470c9736449db7 /FS/FS/TicketSystem/RT_External.pm | |
parent | 9ad4f8407cc106ef5815e65bce2ee873cd0896c2 (diff) |
First version of RT Billing pkg. Basic concept is if a customer has this package, then any time added to ticket comments in RT will be added up and multiplied by the base rate, with each entry showing up as a lineitem on their next invoice.
This has not been used in production yet by anybody, it was just a proposal done for a customer.
Modified Files:
TicketSystem/RT_External.pm
Added Files:
part_pkg/rt_time.pm
Diffstat (limited to 'FS/FS/TicketSystem/RT_External.pm')
-rw-r--r-- | FS/FS/TicketSystem/RT_External.pm | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/FS/FS/TicketSystem/RT_External.pm b/FS/FS/TicketSystem/RT_External.pm index 8ccc93712..5c51bdd02 100644 --- a/FS/FS/TicketSystem/RT_External.pm +++ b/FS/FS/TicketSystem/RT_External.pm @@ -9,6 +9,7 @@ use URI::Escape; use FS::UID qw(dbh); use FS::Record qw(qsearchs); use FS::cust_main; +use Carp qw(cluck); $me = '[FS::TicketSystem::RT_External]'; $DEBUG = 0; @@ -96,6 +97,31 @@ sub customer_tickets { } +sub comments_on_tickets { + my ($self, $custnum, $limit, $time ) = @_; + $limit ||= 0; + + my( $from_sql, @param) = $self->_from_customer( $custnum ); + my $sql = qq{ + SELECT transactions.*, Attachments.content, Tickets.subject + FROM transactions + JOIN Attachments ON( Attachments.transactionid = transactions.id ) + JOIN Tickets ON ( Tickets.id = transactions.objectid ) + JOIN Links ON ( Tickets.id = Links.LocalBase + AND Links.Base LIKE '%/ticket/' || Tickets.id ) + + + WHERE ( Status = 'new' OR Status = 'open' OR Status = 'stalled' ) + AND Target = 'freeside://freeside/cust_main/$custnum' + AND transactions.type = 'Comment' + AND transactions.created >= (SELECT TIMESTAMP WITH TIME ZONE 'epoch' + $time * INTERVAL '1 second') + LIMIT $limit + }; + cluck $sql if $DEBUG > 0; + #AND created > + $dbh->selectall_arrayref( $sql, { Slice => {} } ) or die $dbh->errstr . " $sql"; +} + sub _from_customer { my( $self, $custnum, $priority ) = @_; |