diff options
| -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; } |