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 # if SystemUser does this search (as in QueueSummaryByLifecycle), they
34 # should get all tickets regardless of ownership
35 if ($TicketsObj->CurrentUser->id != RT->SystemUser->id) {
38 VALUE => $TicketsObj->CurrentUser->id
51 my $txn_alias = $TicketsObj->JoinTransactions;
56 VALUE => 'COALESCE(main.Told,\'1970-01-01\')',
63 VALUE => [ 'Correspond', 'Create' ],
69 RT::Base->_ImportOverlays();