Upgrade 4.0.17 clean.
[usit-rt.git] / etc / upgrade / 3.7.86 / content
CommitLineData
01e3b242
MKG
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);