From 9e0d1dacd8db275dff7f5827bc65b3f1531f8882 Mon Sep 17 00:00:00 2001
From: Mark Wells <mark@freeside.biz>
Date: Mon, 4 Apr 2016 13:35:11 -0700
Subject: [PATCH] instrument adjust_ticket_priority to get information on
 #39536

---
 FS/FS/ClientAPI/MyAccount.pm      | 5 +++++
 FS/FS/TicketSystem/RT_Internal.pm | 3 +++
 2 files changed, 8 insertions(+)

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;
 }
 
-- 
2.11.0