use strict;
use warnings;

our @Initial = (
    sub {
        my $users = RT::Users->new(RT->SystemUser);
        my $attributes = $users->Join(
            ALIAS1 => "main",
            FIELD1 => "id",
            TABLE2 => "Attributes",
            FIELD2 => "ObjectId",
        );
        $users->Limit(
            ALIAS => $attributes,
            FIELD => "ObjectType",
            VALUE => "RT::User",
        );
        $users->Limit(
            ALIAS => $attributes,
            FIELD => "Name",
            VALUE => RT::User::_PrefName('HomepageSettings'),
        );

        while (my $user = $users->Next) {
            my $settings = $user->Preferences('HomepageSettings')
                or next;
            next if exists $settings->{sidebar};

            $settings->{sidebar} = delete $settings->{summary};
            $user->SetPreferences('HomepageSettings', $settings);
        }
    },
    sub {
        my ($default_portlets) = RT->System->Attributes->Named('HomepageSettings');
        my $settings = $default_portlets->Content;
        return if exists $settings->{sidebar};

        $settings->{sidebar} = delete $settings->{summary};
        $default_portlets->SetContent($settings);
    },
);