ruz at bestpractical
Jul 23, 2008, 7:46 PM
Post #1 of 1
(51 views)
Permalink
|
|
r14451 - rt/3.8/trunk/lib/RT
|
|
Author: ruz
Date: Wed Jul 23 22:46:33 2008
New Revision: 14451
Modified:
rt/3.8/trunk/lib/RT/Ticket_Overlay.pm
Log:
* add Merged method
Modified: rt/3.8/trunk/lib/RT/Ticket_Overlay.pm
==============================================================================
--- rt/3.8/trunk/lib/RT/Ticket_Overlay.pm (original)
+++ rt/3.8/trunk/lib/RT/Ticket_Overlay.pm Wed Jul 23 22:46:33 2008
@@ -2601,6 +2601,29 @@
return ( 1, $self->loc("Merge Successful") );
}
+=head2 Merged
+
+Returns list of tickets' ids that's been merged into this ticket.
+
+=cut
+
+sub Merged {
+ my $self = shift;
+
+ my $mergees = new RT::Tickets( $self->CurrentUser );
+ $mergees->Limit(
+ FIELD => 'EffectiveId',
+ OPERATOR => '=',
+ VALUE => $self->Id,
+ );
+ $mergees->Limit(
+ FIELD => 'id',
+ OPERATOR => '!=',
+ VALUE => $self->Id,
+ );
+ return map $_->id, @{ $mergees->ItemsArrayRef };
+}
+
# }}}
# }}}
_______________________________________________
Rt-commit mailing list
Rt-commit[at]lists.bestpractical.com
http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-commit
|
