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