blob: da087ed757d453392ea5c0be62cc9090d0d68688 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
@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;
},
);
|