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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
use strict;
use warnings;
sub dashboards_for_object {
my $object = shift;
my $user = shift;
my %dashboards;
my $privacy = RT::Dashboard->_build_privacy($object);
while ( my $attr = $object->Attributes->Next ) {
if ( $attr->Name =~ /^Dashboard\b/ ) {
my $dashboard = RT::Dashboard->new($user);
my ( $ok, $msg ) = $dashboard->Load( $privacy, $attr->id );
next unless $ok;
if ( $object->isa('RT::System') ) {
push @{ $dashboards{system} }, $dashboard;
}
elsif ( $object->isa('RT::User') ) {
push @{ $dashboards{personal} }, $dashboard;
}
elsif ( $object->isa('RT::Group') ) {
push @{ $dashboards{group}{ $object->Name } }, $dashboard;
}
}
}
return \%dashboards;
}
our @Final = (
sub {
my $users = RT::Users->new( RT->SystemUser );
$users->LimitToPrivileged();
while ( my $user = $users->Next ) {
my @objs = RT::Dashboard->new($user)->ObjectsForLoading( IncludeSuperuserGroups => 0 );
my %dashboard_map;
for my $object (@objs) {
my $dashboards = dashboards_for_object( $object, $user );
push @{ $dashboard_map{$_} }, @{ $dashboards->{$_} || [] } for qw/personal system/;
push @{ $dashboard_map{group}{$_} }, @{ $dashboards->{group}{$_} }
for keys %{ $dashboards->{group} || {} };
}
my @dashboards = (
( sort { $a->Id <=> $b->Id } @{ $dashboard_map{personal} || [] } ),
( sort { $a->Id <=> $b->Id } @{ $dashboard_map{system} || [] } ),
map {
sort { $a->Id <=> $b->Id }
@{ $dashboard_map{group}{$_} }
}
keys %{ $dashboard_map{group} || {} },
);
splice @dashboards, 7 if @dashboards > 7;
@dashboards = map { $_->id } @dashboards;
my ( $ret, $msg ) = $user->SetPreferences( 'DashboardsInMenu', { dashboards => \@dashboards } );
RT->Logger->error( $msg ) unless $ret;
}
},
);
|
