instrument adjust_ticket_priority to get information on #39536

[freeside.git] / FS / FS / TicketSystem / RT_Internal.pm

diff --git a/FS/FS/TicketSystem/RT_Internal.pm b/FS/FS/TicketSystem/RT_Internal.pm
index b70ac53..6b2d354 100644 (file)
--- 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;
 }
 
@@ -572,7 +575,7 @@ sub _web_external_auth {
 
           # now get user specific information, to better create our user.
           my $new_user_info
-              = RT::Interface::Web::WebExternalAutoInfo($user);
+              = RT::Interface::Web::WebRemoteUserAutocreateInfo($user);
 
           # set the attributes that have been defined.
           # FIXME: this is a horrible kludge. I'm sure there's something cleaner