diff options
Diffstat (limited to 'FS/FS/TicketSystem/RT_Internal.pm')
-rw-r--r-- | FS/FS/TicketSystem/RT_Internal.pm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/FS/FS/TicketSystem/RT_Internal.pm b/FS/FS/TicketSystem/RT_Internal.pm index ec0c3f7be..74006f577 100644 --- a/FS/FS/TicketSystem/RT_Internal.pm +++ b/FS/FS/TicketSystem/RT_Internal.pm @@ -2,6 +2,9 @@ package FS::TicketSystem::RT_Internal; use strict; use vars qw( @ISA ); +use FS::UID qw(dbh); +use FS::CGI qw(popurl); +use FS::TicketSystem::RT_Libs; @ISA = qw( FS::TicketSystem::RT_Libs ); @@ -13,5 +16,16 @@ sub sql_customer_tickets { )"; } +sub num_customer_tickets { + my( $self, $custnum, $priority ) = ( shift, shift, shift ); + $self->SUPER::new_customer_tickets( $custnum, $priority, dbh ); +} + +sub href_customer_tickets { + my $self = shift; + # well, 2 is wrong here but will have to do for now + popurl(2).'rt/'. $self->SUPER::href_customer_tickets(@_); +} + 1; |