From 3ef62a0570055da710328937e7f65dbb2c027c62 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 12 Aug 2002 06:17:09 +0000
Subject: import rt 2.0.14

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

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

diff --git a/rt/lib/RT/Action/ResolveMembers.pm b/rt/lib/RT/Action/ResolveMembers.pm
new file mode 100644
index 000000000..00547ebe8
--- /dev/null
+++ b/rt/lib/RT/Action/ResolveMembers.pm
@@ -0,0 +1,57 @@
+# This Action will resolve all members of a resolved group ticket
+
+package RT::Action::ResolveMembers;
+require RT::Action::Generic;
+require RT::Links;
+@ISA=qw(RT::Action::Generic);
+
+#Do what we need to do and send it out.
+
+#What does this type of Action does
+
+# {{{ sub Describe 
+sub Describe  {
+  my $self = shift;
+  return (ref $self . " will resolve all members of a resolved group ticket.");
+}
+# }}}
+
+
+# {{{ sub Prepare 
+sub Prepare  {
+    # nothing to prepare
+    return 1;
+}
+# }}}
+
+sub Commit {
+    my $self = shift;
+
+    my $Links=RT::Links->new($RT::SystemUser);
+    $Links->Limit(FIELD => 'Type', VALUE => 'MemberOf');
+    $Links->Limit(FIELD => 'Target', VALUE => $self->TicketObj->id);
+
+    while (my $Link=$Links->Next()) {
+	# Todo: Try to deal with remote URIs as well
+	next unless $Link->BaseIsLocal;
+	my $base=RT::Ticket->new($self->TicketObj->CurrentUser);
+	# Todo: Only work if Base is a plain ticket num:
+	$base->Load($Link->Base);
+	# I'm afraid this might be a major bottleneck if ResolveGroupTicket is on.
+        $base->Resolve;
+    }
+}
+
+
+# Applicability checked in Commit.
+
+# {{{ sub IsApplicable 
+sub IsApplicable  {
+  my $self = shift;
+  1;  
+  return 1;
+}
+# }}}
+
+1;
+
-- 
cgit v1.2.1


From ded0451e9582df33cae6099a2fb72b4ea25076cf Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 15 Jul 2003 13:30:43 +0000
Subject: reverting to vendor branch rt 3.0.4, hopefully

---
 rt/lib/RT/Action/ResolveMembers.pm | 35 +++++++++++++++++++++++++++++++++--
 1 file changed, 33 insertions(+), 2 deletions(-)

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

diff --git a/rt/lib/RT/Action/ResolveMembers.pm b/rt/lib/RT/Action/ResolveMembers.pm
index 00547ebe8..02ff3a58c 100644
--- a/rt/lib/RT/Action/ResolveMembers.pm
+++ b/rt/lib/RT/Action/ResolveMembers.pm
@@ -1,8 +1,34 @@
+# BEGIN LICENSE BLOCK
+# 
+# Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com>
+# 
+# (Except where explictly superceded by other copyright notices)
+# 
+# This work is made available to you under the terms of Version 2 of
+# the GNU General Public License. A copy of that license should have
+# been provided with this software, but in any event can be snarfed
+# from www.gnu.org.
+# 
+# This work is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# General Public License for more details.
+# 
+# Unless otherwise specified, all modifications, corrections or
+# extensions to this work which alter its source code become the
+# property of Best Practical Solutions, LLC when submitted for
+# inclusion in the work.
+# 
+# 
+# END LICENSE BLOCK
 # This Action will resolve all members of a resolved group ticket
 
 package RT::Action::ResolveMembers;
 require RT::Action::Generic;
 require RT::Links;
+
+use strict;
+use vars qw/@ISA/;
 @ISA=qw(RT::Action::Generic);
 
 #Do what we need to do and send it out.
@@ -12,7 +38,7 @@ require RT::Links;
 # {{{ sub Describe 
 sub Describe  {
   my $self = shift;
-  return (ref $self . " will resolve all members of a resolved group ticket.");
+  return $self->loc("[_1] will resolve all members of a resolved group ticket.", ref $self);
 }
 # }}}
 
@@ -33,7 +59,7 @@ sub Commit {
 
     while (my $Link=$Links->Next()) {
 	# Todo: Try to deal with remote URIs as well
-	next unless $Link->BaseIsLocal;
+	next unless $Link->BaseURI->IsLocal;
 	my $base=RT::Ticket->new($self->TicketObj->CurrentUser);
 	# Todo: Only work if Base is a plain ticket num:
 	$base->Load($Link->Base);
@@ -53,5 +79,10 @@ sub IsApplicable  {
 }
 # }}}
 
+eval "require RT::Action::ResolveMembers_Vendor";
+die $@ if ($@ && $@ !~ qr{^Can't locate RT/Action/ResolveMembers_Vendor.pm});
+eval "require RT::Action::ResolveMembers_Local";
+die $@ if ($@ && $@ !~ qr{^Can't locate RT/Action/ResolveMembers_Local.pm});
+
 1;
 
-- 
cgit v1.2.1