[usit-rt.git] / etc / upgrade / 4.0.4 / content

use strict;
use warnings;

our @Initial = (
    sub {
        use strict;
        my $templates = RT::Templates->new(RT->SystemUser);
        $templates->Limit(
            FIELD => 'Type',
            OPERATOR => 'IS',
            VALUE => 'NULL',
        );
        while (my $template = $templates->Next) {
            my ($status, $msg) = $template->SetType('Perl');
            RT->Logger->warning( "Couldn't change Type of Template #" . $template->Id . ": $msg" ) unless $status;
        }
    },
);
Commit	Line	Data
af59614d MKG	1	use strict;
	2	use warnings;
	3
	4	our @Initial = (
01e3b242 MKG	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');
af59614d	15	RT->Logger->warning( "Couldn't change Type of Template #" . $template->Id . ": $msg" ) unless $status;
01e3b242 MKG	16	}
	17	},
	18	);
	19