3 RT::Search::UnrepliedTickets
9 Find all unresolved tickets owned by the current user where the last
10 correspondence from a requestor (or ticket creation) is more recent than the
11 last correspondence from a non-requestor (if there is any).
17 package RT::Search::UnrepliedTickets;
21 use base qw(RT::Search);
26 return ($self->loc("Tickets awaiting a reply"));
32 my $TicketsObj = $self->TicketsObj;
33 # bypass the pre-RT-4.2 TicketRestrictions stuff and just use SearchBuilder
34 $TicketsObj->RT::SearchBuilder::Limit(
36 VALUE => $TicketsObj->CurrentUser->id
38 $TicketsObj->RT::SearchBuilder::Limit(
48 my $txn_alias = $TicketsObj->JoinTransactions;
49 $TicketsObj->RT::SearchBuilder::Limit(
53 VALUE => 'COALESCE(main.Told,\'1970-01-01\')',
56 $TicketsObj->RT::SearchBuilder::Limit(
60 VALUE => 'Correspond',
61 SUBCLAUSE => 'transactiontype',
62 ENTRYAGGREGATOR => 'OR',
64 $TicketsObj->RT::SearchBuilder::Limit(
69 SUBCLAUSE => 'transactiontype',
70 ENTRYAGGREGATOR => 'OR',
76 RT::Base->_ImportOverlays();