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