From 4c8c18409f82d56320a80f6c94f275fa15486897 Mon Sep 17 00:00:00 2001
From: mark <mark>
Date: Tue, 23 Aug 2011 21:45:51 +0000
Subject: RT future ticket resolve, #13853

---
 rt/lib/RT/Action/SetWillResolve.pm | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 rt/lib/RT/Action/SetWillResolve.pm

(limited to 'rt/lib/RT/Action/SetWillResolve.pm')

diff --git a/rt/lib/RT/Action/SetWillResolve.pm b/rt/lib/RT/Action/SetWillResolve.pm
new file mode 100644
index 000000000..807b3c64c
--- /dev/null
+++ b/rt/lib/RT/Action/SetWillResolve.pm
@@ -0,0 +1,27 @@
+package RT::Action::SetWillResolve;
+use base 'RT::Action';
+
+use strict;
+
+sub Describe  {
+  my $self = shift;
+  return (ref $self ." will set a ticket's future resolve date to the argument.");
+}
+
+sub Prepare  {
+    return 1;
+}
+
+sub Commit {
+    my $self = shift;
+    my $DateObj = RT::Date->new( $self->CurrentUser );
+    $DateObj->Set(
+      Format => 'unknown', 
+      Value  => $self->Argument,
+    );
+    $self->TicketObj->SetWillResolve( $DateObj->ISO );
+}
+
+RT::Base->_ImportOverlays();
+
+1;
-- 
cgit v1.2.1