3 RT::Search::UnrepliedTickets
9 Find all unresolved tickets owned by the current user where the last correspondence
10 from a requestor (or ticket creation) is more recent than the last
11 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(
43 my $txn_alias = $TicketsObj->JoinTransactions;
44 $TicketsObj->RT::SearchBuilder::Limit(
48 VALUE => 'COALESCE(main.Told,\'1970-01-01\')',
51 $TicketsObj->RT::SearchBuilder::Limit(
55 VALUE => 'Correspond',
56 SUBCLAUSE => 'transactiontype',
57 ENTRYAGGREGATOR => 'OR',
59 $TicketsObj->RT::SearchBuilder::Limit(
64 SUBCLAUSE => 'transactiontype',
65 ENTRYAGGREGATOR => 'OR',
71 RT::Base->_ImportOverlays();