Putting 4.2.0 on top of 4.0.17
[usit-rt.git] / etc / upgrade / 4.0.9 / content
1 use strict;
2 use warnings;
3
4 our @Initial = (
5     sub {
6         RT->Logger->debug(
7             'Going to update empty Queue Lifecycle column to "default"');
8
9         my $queues = RT::Queues->new( RT->SystemUser );
10         $queues->FindAllRows;
11         $queues->Limit(
12             FIELD    => 'Lifecycle',
13             OPERATOR => 'IS',
14             VALUE    => 'NULL',
15         );
16
17         $queues->Limit(
18             FIELD           => 'Lifecycle',
19             VALUE           => '',
20             ENTRYAGGREGATOR => 'OR',
21         );
22
23         $queues->Limit(
24             FIELD           => 'Lifecycle',
25             VALUE           => 0,
26             ENTRYAGGREGATOR => 'OR',
27         );
28
29         while ( my $q = $queues->Next ) {
30             $q->SetLifecycle('default');
31         }
32     },
33     sub {
34         use strict;
35         my $groups = RT::Groups->new(RT->SystemUser);
36         $groups->Limit( FIELD    => 'Domain',
37                         OPERATOR => '=',
38                         VALUE    => 'Personal',
39                         CASESENSITIVE => 0,
40                       );
41         $groups->LimitToDeleted;
42         while ( my $group = $groups->Next ) {
43             my $members = $group->MembersObj();
44             while ( my $member = $members->Next ) {
45                 my ( $ok, $msg ) = $group->DeleteMember( $member->MemberId );
46                 if ( !$ok ) {
47                     RT->Logger->warn(   "Unable to remove group member "
48                                        . $member->id . ": "
49                                        . $msg );
50                 }
51             }
52             $group->PrincipalObj->Delete;
53             $group->RT::Record::Delete();
54         }
55     },
56 );