RT::Condition::SLA - RT::Condition::SLA documentation

use strict;
use warnings;

package RT::Condition::SLA;
use base qw(RT::Extension::SLA RT::Condition);

sub SLAIsApplied { return 1 }

sub IsCustomFieldChange {
    my $self = shift;
    my $cf_name = shift;

    my $txn = $self->TransactionObj;
    
    return 0 unless $txn->Type eq 'CustomField';

    my $cf = $self->GetCustomField( CustomField => $cf_name );
    unless ( $cf->id ) {
        $RT::Logger->error("Custom field '$cf_name' is not applied to ticket #". $self->TicketObj->id);
        return 0;
    }
    return 0 unless $cf->id == $txn->Field;
    return 1;
}

1;