diff options
Diffstat (limited to 'rt/lib/RT/Shredder/Dependency.pm')
-rw-r--r-- | rt/lib/RT/Shredder/Dependency.pm | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/rt/lib/RT/Shredder/Dependency.pm b/rt/lib/RT/Shredder/Dependency.pm index bdfdfc1ce..ad72f3bac 100644 --- a/rt/lib/RT/Shredder/Dependency.pm +++ b/rt/lib/RT/Shredder/Dependency.pm @@ -54,10 +54,9 @@ use RT::Shredder::Constants; use RT::Shredder::Exceptions; my %FlagDescs = ( - DEPENDS_ON, 'depends on', - VARIABLE, 'resolvable dependency', - WIPE_AFTER, 'delete after', - RELATES, 'relates with', + RT::Shredder::Constants::DEPENDS_ON, 'depends on', + RT::Shredder::Constants::VARIABLE, 'resolvable dependency', + RT::Shredder::Constants::WIPE_AFTER, 'delete after', ); sub new @@ -71,7 +70,7 @@ sub new sub Set { my $self = shift; - my %args = ( Flags => DEPENDS_ON, @_ ); + my %args = ( Flags => RT::Shredder::Constants::DEPENDS_ON, @_ ); my @keys = qw(Flags BaseObject TargetObject); @$self{ @keys } = @args{ @keys }; @@ -81,9 +80,9 @@ sub Set sub AsString { my $self = shift; - my $res = $self->BaseObject->_AsString; + my $res = $self->BaseObject->UID; $res .= " ". $self->FlagsAsString; - $res .= " ". $self->TargetObject->_AsString; + $res .= " ". $self->TargetObject->UID; return $res; } |