rt/lib/RT/Search/UnrepliedTickets.pm

   1 =head1 NAME
   2
   3   RT::Search::UnrepliedTickets
   4
   5 =head1 SYNOPSIS
   6
   7 =head1 DESCRIPTION
   8
   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).
  12
  13 =head1 METHODS
  14
  15 =cut
  16
  17 package RT::Search::UnrepliedTickets;
  18
  19 use strict;
  20 use warnings;
  21 use base qw(RT::Search);
  22
  23
  24 sub Describe  {
  25   my $self = shift;
  26   return ($self->loc("Tickets awaiting a reply"));
  27 }
  28
  29 sub Prepare  {
  30   my $self = shift;
  31
  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) {
  36     $TicketsObj->Limit(
  37       FIELD => 'Owner',
  38       VALUE => $TicketsObj->CurrentUser->id
  39     );
  40   }
  41   foreach my $status (qw(resolved rejected deleted)) {
  42     $TicketsObj->Limit(
  43       FIELD => 'Status',
  44       OPERATOR => '!=',
  45       ENTRYAGGREGATOR => 'AND',
  46       VALUE => $status,
  47     );
  48   }
  49   my $txn_alias = $TicketsObj->JoinTransactions;
  50   $TicketsObj->Limit(
  51     ALIAS => $txn_alias,
  52     FIELD => 'Created',
  53     OPERATOR => '>',
  54     VALUE => 'COALESCE(main.Told,\'1970-01-01\')',
  55     QUOTEVALUE => 0,
  56   );
  57   $TicketsObj->Limit(
  58     ALIAS => $txn_alias,
  59     FIELD => 'Type',
  60     OPERATOR => 'IN',
  61     VALUE => [ 'Correspond', 'Create' ],
  62   );
  63
  64   return(1);
  65 }
  66
  67 RT::Base->_ImportOverlays();
  68
  69 1;