diff options
| author | Mark Wells <mark@freeside.biz> | 2016-04-04 13:35:11 -0700 |
|---|---|---|
| committer | Mark Wells <mark@freeside.biz> | 2016-04-04 13:35:24 -0700 |
| commit | 9e0d1dacd8db275dff7f5827bc65b3f1531f8882 (patch) | |
| tree | 10df053515bb856ad460fb77a3317f15f673f676 | |
| parent | f421a622461d5259804f0da238f349f4a790d91f (diff) | |
instrument adjust_ticket_priority to get information on #39536
| -rw-r--r-- | FS/FS/ClientAPI/MyAccount.pm | 5 | ||||
| -rw-r--r-- | FS/FS/TicketSystem/RT_Internal.pm | 3 |
2 files changed, 8 insertions, 0 deletions
diff --git a/FS/FS/ClientAPI/MyAccount.pm b/FS/FS/ClientAPI/MyAccount.pm index 6b91101d5..62bd9e84c 100644 --- a/FS/FS/ClientAPI/MyAccount.pm +++ b/FS/FS/ClientAPI/MyAccount.pm @@ -3606,6 +3606,11 @@ sub adjust_ticket_priority { my($context, $session, $custnum) = _custoragent_session_custnum($p); return { 'error' => $session } if $context eq 'error'; + # temporary instrumentation for RT#39536 + local $DEBUG = 1; + local $FS::TicketSystem::RT_Internal::DEBUG = 1; + warn "[adjust_ticket_priority]\n" . Dumper($p->{'values'}) . "\n\n"; + # warn "$me adjust_ticket_priority: initializing ticket system\n" if $DEBUG; # FS::TicketSystem->init; my $ss_priority = FS::TicketSystem->selfservice_priority; diff --git a/FS/FS/TicketSystem/RT_Internal.pm b/FS/FS/TicketSystem/RT_Internal.pm index 1c4513e6d..6b2d3544c 100644 --- a/FS/FS/TicketSystem/RT_Internal.pm +++ b/FS/FS/TicketSystem/RT_Internal.pm @@ -468,6 +468,9 @@ sub get_ticket_object { } my $Tickets = RT::Tickets->new($session->{CurrentUser}); $Tickets->FromSQL($query); + if ( $DEBUG ) { # temporary for RT#39536 + warn "[get_ticket_object] " . $Tickets->BuildSelectQuery . "\n\n"; + } return $Tickets->First; } |