#
# COPYRIGHT:
#
-# This software is Copyright (c) 1996-2013 Best Practical Solutions, LLC
+# This software is Copyright (c) 1996-2018 Best Practical Solutions, LLC
# <sales@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
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
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 };
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;
}