6 my $users = RT::Users->new(RT->SystemUser);
7 my $attributes = $users->Join(
10 TABLE2 => "Attributes",
15 FIELD => "ObjectType",
21 VALUE => RT::User::_PrefName('HomepageSettings'),
24 while (my $user = $users->Next) {
25 my $settings = $user->Preferences('HomepageSettings')
27 next if exists $settings->{sidebar};
29 $settings->{sidebar} = delete $settings->{summary};
30 $user->SetPreferences('HomepageSettings', $settings);
34 my ($default_portlets) = RT->System->Attributes->Named('HomepageSettings');
35 my $settings = $default_portlets->Content;
36 return if exists $settings->{sidebar};
38 $settings->{sidebar} = delete $settings->{summary};
39 $default_portlets->SetContent($settings);