diff options
Diffstat (limited to 'rt/lib/RT/Shredder/Dependency.pm')
| -rw-r--r-- | rt/lib/RT/Shredder/Dependency.pm | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/rt/lib/RT/Shredder/Dependency.pm b/rt/lib/RT/Shredder/Dependency.pm index b94f43aea..ad72f3bac 100644 --- a/rt/lib/RT/Shredder/Dependency.pm +++ b/rt/lib/RT/Shredder/Dependency.pm @@ -2,7 +2,7 @@ # # COPYRIGHT: # -# This software is Copyright (c) 1996-2014 Best Practical Solutions, LLC +# This software is Copyright (c) 1996-2015 Best Practical Solutions, LLC # <sales@bestpractical.com> # # (Except where explicitly superseded by other copyright notices) @@ -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; } |