7 my $templates = RT::Templates->new(RT->SystemUser);
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;