|
<%args>
$ARGSRef => undef
$RecordObj => undef
$results => undef
</%args>
<%init>
return unless ($RecordObj and $RecordObj->id);
return unless (defined $ARGSRef->{'BrandedSubjectTag'});
unless ($RecordObj->CurrentUserHasRight('AdminQueue')) {
push @$results, loc('Permission Denied');
return;
}
my $current_tag = $RecordObj->FirstAttribute('BrandedSubjectTag');
my $current_value = $current_tag ? $current_tag->Content : "";
unless ($ARGSRef->{'BrandedSubjectTag'} eq $current_value) {
$RecordObj->SetAttribute(Name => 'BrandedSubjectTag',
Content => $ARGSRef->{'BrandedSubjectTag'});
}
</%init>
|