X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=rt%2Fetc%2Fupgrade%2F4.0.9%2Fcontent;h=6f526ce563f6d595dcc8ed68f75eb9fd32dbd45f;hp=f2abf623b08fd78e9d49587dd75345ff3a411e7d;hb=1c538bfabc2cd31f27067505f0c3d1a46cba6ef0;hpb=4f5619288413a185e9933088d9dd8c5afbc55dfa

diff --git a/rt/etc/upgrade/4.0.9/content b/rt/etc/upgrade/4.0.9/content
index f2abf623b..6f526ce56 100644
--- a/rt/etc/upgrade/4.0.9/content
+++ b/rt/etc/upgrade/4.0.9/content
@@ -1,6 +1,9 @@
-@Initial = (
+use strict;
+use warnings;
+
+our @Initial = (
     sub {
-        $RT::Logger->debug(
+        RT->Logger->debug(
             'Going to update empty Queue Lifecycle column to "default"');
 
         my $queues = RT::Queues->new( RT->SystemUser );
@@ -32,7 +35,8 @@
         my $groups = RT::Groups->new(RT->SystemUser);
         $groups->Limit( FIELD    => 'Domain',
                         OPERATOR => '=',
-                        VALUE    => 'Personal'
+                        VALUE    => 'Personal',
+                        CASESENSITIVE => 0,
                       );
         $groups->LimitToDeleted;
         while ( my $group = $groups->Next ) {
@@ -40,7 +44,7 @@
             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 );
                 }