blob: b271e47094872ba81f1f07f8a49d12db25200b11 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
# $Header: /home/cvs/cvsroot/freeside/rt/lib/RT/Action/Attic/OpenDependent.pm,v 1.1 2002-08-12 06:17:07 ivan Exp $
# This Action will open the BASE if a dependent is resolved.
package RT::Action::OpenDependent;
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 stall a [local] BASE if it's open and a dependency link is created.");
}
# }}}
# {{{ 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 => 'DependsOn');
$Links->Limit(FIELD => 'Target', VALUE => $self->TicketObj->id);
while (my $Link=$Links->Next()) {
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);
$base->Open if $base->Status eq 'stalled';
}
}
# Applicability checked in Commit.
# {{{ sub IsApplicable
sub IsApplicable {
my $self = shift;
1;
return 1;
}
# }}}
1;
|