4 my $templates = RT::Templates->new(RT->SystemUser);
10 while (my $template = $templates->Next) {
11 my ($status, $msg) = $template->SetType('Perl');
12 $RT::Logger->warning( "Couldn't change Type of Template #" . $template->Id . ": $msg" ) unless $status;