X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=rt%2Fetc%2Fupgrade%2F3.9.2%2Fcontent;h=1851a9e99376e700b9a547a68ced5e50f8aef98b;hp=d0dbbfd0ae3882b9f8fd98a9d5c8bdce9b33208c;hb=9aee669886202be7035e6c6049fc71bc99dd3013;hpb=85e677b86fc37c54e6de2b06340351a28f5a5916

diff --git a/rt/etc/upgrade/3.9.2/content b/rt/etc/upgrade/3.9.2/content
index d0dbbfd0a..1851a9e99 100644
--- a/rt/etc/upgrade/3.9.2/content
+++ b/rt/etc/upgrade/3.9.2/content
@@ -1,7 +1,9 @@
-@Initial = (
+use strict;
+use warnings;
+
+our @Initial = (
     sub {
-        use strict;
-        $RT::Logger->debug('Removing all delegated rights');
+        RT->Logger->debug('Removing all delegated rights');
 
         my $acl = RT::ACL->new(RT->SystemUser);
         $acl->Limit( CLAUSE   => 'search',
@@ -20,7 +22,7 @@
             my ( $ok, $msg ) = $ace->Delete();
 
             if ( !$ok ) {
-                $RT::Logger->warn(
+                RT->Logger->warn(
                            "Unable to delete ACE " . $ace->id . ": " . $msg );
             }
         }
@@ -28,14 +30,15 @@
         my $groups = RT::Groups->new(RT->SystemUser);
         $groups->Limit( FIELD    => 'Domain',
                         OPERATOR => '=',
-                        VALUE    => 'Personal'
+                        VALUE    => 'Personal',
+                        CASESENSITIVE => 0,
                       );
         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 "
+                    RT->Logger->warn(   "Unable to remove group member "
                                        . $member->id . ": "
                                        . $msg );
                 }