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