rt/etc/upgrade/4.1.0/content

   1 use strict;
   2 use warnings;
   3
   4 our @Initial = (
   5     sub {
   6         my $users = RT::Users->new(RT->SystemUser);
   7         my $attributes = $users->Join(
   8             ALIAS1 => "main",
   9             FIELD1 => "id",
  10             TABLE2 => "Attributes",
  11             FIELD2 => "ObjectId",
  12         );
  13         $users->Limit(
  14             ALIAS => $attributes,
  15             FIELD => "ObjectType",
  16             VALUE => "RT::User",
  17         );
  18         $users->Limit(
  19             ALIAS => $attributes,
  20             FIELD => "Name",
  21             VALUE => RT::User::_PrefName('HomepageSettings'),
  22         );
  23
  24         while (my $user = $users->Next) {
  25             my $settings = $user->Preferences('HomepageSettings')
  26                 or next;
  27             next if exists $settings->{sidebar};
  28
  29             $settings->{sidebar} = delete $settings->{summary};
  30             $user->SetPreferences('HomepageSettings', $settings);
  31         }
  32     },
  33     sub {
  34         my ($default_portlets) = RT->System->Attributes->Named('HomepageSettings');
  35         my $settings = $default_portlets->Content;
  36         return if exists $settings->{sidebar};
  37
  38         $settings->{sidebar} = delete $settings->{summary};
  39         $default_portlets->SetContent($settings);
  40     },
  41 );
  42
  43