rt/etc/upgrade/3.7.86/content

   1 @Final = (
   2     sub {
   3         $RT::Logger->debug("Adding search for bookmarked tickets to defaults");
   4         my $sys = RT::System->new($RT::SystemUser);
   5
   6         my $attrs = RT::Attributes->new( $RT::SystemUser );
   7         $attrs->LimitToObject( $sys );
   8         my ($attr) = $attrs->Named( 'HomepageSettings' );
   9         unless ($attr) {
  10             $RT::Logger->error("You have no global home page settings");
  11             return;
  12         }
  13         my $content = $attr->Content;
  14         unshift @{ $content->{'body'} ||= [] },
  15             { type => 'system', name => 'Bookmarked Tickets' };
  16
  17         my ($status, $msg) = $attr->SetContent( $content );
  18         $RT::Logger->error($msg) unless $status;
  19
  20         $RT::Logger->debug("done.");
  21         return 1;
  22     },
  23 );