7 'Going to update empty Queue Lifecycle column to "default"');
9 my $queues = RT::Queues->new( RT->SystemUser );
20 ENTRYAGGREGATOR => 'OR',
26 ENTRYAGGREGATOR => 'OR',
29 while ( my $q = $queues->Next ) {
30 $q->SetLifecycle('default');
35 my $groups = RT::Groups->new(RT->SystemUser);
36 $groups->Limit( FIELD => 'Domain',
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 );
47 RT->Logger->warn( "Unable to remove group member "
52 $group->PrincipalObj->Delete;
53 $group->RT::Record::Delete();