X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=rt%2Flib%2FRT%2FSearch%2FUnrepliedTickets.pm;fp=rt%2Flib%2FRT%2FSearch%2FUnrepliedTickets.pm;h=a99690156ff377e8d92250a8b1227ee45f1ccd9c;hp=0000000000000000000000000000000000000000;hb=dd82a27357402466390044d001824657f6617626;hpb=a6d8b1c76fa2c592e3d6e0c19659c0ba6fc464b0

diff --git a/rt/lib/RT/Search/UnrepliedTickets.pm b/rt/lib/RT/Search/UnrepliedTickets.pm
new file mode 100644
index 000000000..a99690156
--- /dev/null
+++ b/rt/lib/RT/Search/UnrepliedTickets.pm
@@ -0,0 +1,62 @@
+=head1 NAME
+
+  RT::Search::UnrepliedTickets
+
+=head1 SYNOPSIS
+
+=head1 DESCRIPTION
+
+Find all unresolved tickets owned by the current user where the last correspondence
+from a requestor (or ticket creation) is more recent than the last
+correspondence from a non-requestor (if there is any).
+
+=head1 METHODS
+
+=cut
+
+package RT::Search::UnrepliedTickets;
+
+use strict;
+use warnings;
+use base qw(RT::Search);
+
+
+sub Describe  {
+  my $self = shift;
+  return ($self->loc("Tickets awaiting a reply"));
+}
+
+sub Prepare  {
+  my $self = shift;
+
+  my $TicketsObj = $self->TicketsObj;
+  $TicketsObj->Limit(
+    FIELD => 'Owner',
+    VALUE => $TicketsObj->CurrentUser->id
+  );
+  $TicketsObj->Limit(
+    FIELD => 'Status',
+    OPERATOR => '!=',
+    VALUE => 'resolved'
+  );
+  my $txn_alias = $TicketsObj->JoinTransactions;
+  $TicketsObj->Limit(
+    ALIAS => $txn_alias,
+    FIELD => 'Created',
+    OPERATOR => '>',
+    VALUE => 'COALESCE(main.Told,\'1970-01-01\')',
+    QUOTEVALUE => 0,
+  );
+  $TicketsObj->Limit(
+    ALIAS => $txn_alias,
+    FIELD => 'Type',
+    OPERATOR => 'IN',
+    VALUE => [ 'Correspond', 'Create' ],
+  );
+
+  return(1);
+}
+
+RT::Base->_ImportOverlays();
+
+1;