rt/etc/upgrade/4.0.0rc7/content

   1 use strict;
   2 use warnings;
   3
   4 our @Initial = (
   5     sub {
   6         RT->Logger->debug("Going to set lifecycle for approvals");
   7
   8         my $queue = RT::Queue->new( RT->SystemUser );
   9         $queue->Load('___Approvals');
  10         unless ( $queue->id ) {
  11             RT->Logger->warning("There is no ___Approvals queue in the DB");
  12             return 1;
  13         }
  14
  15         return 1 if $queue->Lifecycle && $queue->Lifecycle eq 'approvals';
  16
  17         my ($status, $msg) = $queue->SetLifecycle('approvals');
  18         unless ( $status ) {
  19             RT->Logger->error("Couldn't set lifecycle for '___Approvals' queue: $msg");
  20             return 0;
  21         }
  22         return 1;
  23     },
  24 );