[Rt-commit] rt branch, 4.0-trunk, updated. rt-4.0.8-338-g242fee0

Kevin Falcone falcone at bestpractical.com
Mon Jan 7 14:48:20 EST 2013


The branch, 4.0-trunk has been updated
       via  242fee056d8a611ccdc7db80fd050797b768a493 (commit)
       via  db2d5aa187b8a12eed8f6ebb55c0e1831591ea93 (commit)
      from  e4abe1956e5baf9dcff8cfd35a0d85a800424b08 (commit)

Summary of changes:
 etc/upgrade/4.0.9/content | 26 ++++++++++++++++++++++++--
 1 file changed, 24 insertions(+), 2 deletions(-)

- Log -----------------------------------------------------------------
commit 242fee056d8a611ccdc7db80fd050797b768a493
Merge: e4abe19 db2d5aa
Author: Kevin Falcone <falcone at bestpractical.com>
Date:   Mon Jan 7 14:09:00 2013 -0500

    Merge branch '4.0/remove-disabled-personal-groups' into 4.0-trunk
    
    Conflicts:
    	etc/upgrade/4.0.9/content

diff --cc etc/upgrade/4.0.9/content
index 1ec322e,4042f01..f2abf62
--- a/etc/upgrade/4.0.9/content
+++ b/etc/upgrade/4.0.9/content
@@@ -1,30 -1,25 +1,52 @@@
- @Final = (
+ @Initial = (
      sub {
 +        $RT::Logger->debug(
 +            'Going to update empty Queue Lifecycle column to "default"');
 +
 +        my $queues = RT::Queues->new( RT->SystemUser );
 +        $queues->FindAllRows;
 +        $queues->Limit(
 +            FIELD    => 'Lifecycle',
 +            OPERATOR => 'IS',
 +            VALUE    => 'NULL',
 +        );
 +
 +        $queues->Limit(
 +            FIELD           => 'Lifecycle',
 +            VALUE           => '',
 +            ENTRYAGGREGATOR => 'OR',
 +        );
 +
 +        $queues->Limit(
 +            FIELD           => 'Lifecycle',
 +            VALUE           => 0,
 +            ENTRYAGGREGATOR => 'OR',
 +        );
 +
 +        while ( my $q = $queues->Next ) {
 +            $q->SetLifecycle('default');
 +        }
-     }
++    },
++    sub {
+         use strict;
+         my $groups = RT::Groups->new(RT->SystemUser);
+         $groups->Limit( FIELD    => 'Domain',
+                         OPERATOR => '=',
+                         VALUE    => 'Personal'
+                       );
+         $groups->LimitToDeleted;
+         while ( my $group = $groups->Next ) {
+             my $members = $group->MembersObj();
+             while ( my $member = $members->Next ) {
+                 my ( $ok, $msg ) = $group->DeleteMember( $member->MemberId );
+                 if ( !$ok ) {
+                     $RT::Logger->warn(   "Unable to remove group member "
+                                        . $member->id . ": "
+                                        . $msg );
+                 }
+             }
+             $group->PrincipalObj->Delete;
+             $group->RT::Record::Delete();
+         }
+     },
  );
 -

-----------------------------------------------------------------------


More information about the Rt-commit mailing list