-@Initial = (
+use strict;
+use warnings;
+
+our @Initial = (
sub {
- use strict;
- $RT::Logger->debug('Make sure local links are local');
+ RT->Logger->debug('Make sure local links are local');
use RT::URI::fsck_com_rt;
my $prefix = RT::URI::fsck_com_rt->LocalURIPrefix . '/ticket/';
my $found;
do {
$found = 0;
- my $links = RT::Links->new( $RT::SystemUser );
+ my $links = RT::Links->new( RT->SystemUser );
$links->Limit( FIELD => $dir, OPERATOR => 'STARTSWITH', VALUE => $prefix );
$links->Limit( FIELD => 'Local'.$dir, VALUE => 0 );
$links->Limit(
# there is only one OwnerObj->Name normally, so no need /g
if ( $content =~
-s!(?<=Your ticket has been (?:approved|rejected) by { eval { )\$Approval->OwnerObj->Name!\$Approver->Name!
+s!(?<=Your ticket has been (?:approved|rejected) by \{ eval \{ )\$Approval->OwnerObj->Name!\$Approver->Name!
)
{
+ $template->SetType('Perl');
$template->SetContent($content);
}
}