rt/etc/upgrade/4.1.5/content

   1 use strict;
   2 use warnings;
   3
   4 our @Initial = (
   5     # upgrade Template from id to name
   6     sub {
   7         require RT::Scrips;
   8         my $scrips = RT::Scrips->new( RT->SystemUser );
   9         $scrips->UnLimit;
  10         while ( my $scrip = $scrips->Next ) {
  11             my $id = $scrip->Template;
  12             if ( $id =~ /\D/ ) {
  13                 $RT::Logger->info('Template column for scrip #'. $scrip->id .' already contains characters');
  14                 next;
  15             }
  16
  17             my $name;
  18
  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'");
  23                 $name = 'Blank';
  24             } else {
  25                 $name = $template->Name;
  26             }
  27
  28             my ($status, $msg) = $scrip->_Set( Field => 'Template', Value => $name );
  29             unless ( $status ) {
  30                 $RT::Logger->error("Couldn't set template: $msg");
  31             }
  32         }
  33     },
  34 );