5 # upgrade Template from id to name
8 my $scrips = RT::Scrips->new( RT->SystemUser );
10 while ( my $scrip = $scrips->Next ) {
11 my $id = $scrip->Template;
13 $RT::Logger->info('Template column for scrip #'. $scrip->id .' already contains characters');
19 my $template = RT::Template->new( RT->SystemUser );
20 $template->Load( $id );
21 unless ( $template->id ) {
22 $RT::Logger->error("Scrip #". $scrip->id ." has template set to #$id, but it's not in DB, setting it 'Blank'");
25 $name = $template->Name;
28 my ($status, $msg) = $scrip->_Set( Field => 'Template', Value => $name );
30 $RT::Logger->error("Couldn't set template: $msg");