rt/etc/upgrade/4.0.4/content

   1 use strict;
   2 use warnings;
   3
   4 our @Initial = (
   5     sub {
   6         use strict;
   7         my $templates = RT::Templates->new(RT->SystemUser);
   8         $templates->Limit(
   9             FIELD => 'Type',
  10             OPERATOR => 'IS',
  11             VALUE => 'NULL',
  12         );
  13         while (my $template = $templates->Next) {
  14             my ($status, $msg) = $template->SetType('Perl');
  15             RT->Logger->warning( "Couldn't change Type of Template #" . $template->Id . ": $msg" ) unless $status;
  16         }
  17     },
  18 );
  19