[Rt-commit] r10700 - rt/branches/3.999-DANGEROUS/lib/RT/Shredder

[ruz at bestpractical.com]

Author: ruz
Date: Sun Feb  3 18:04:45 2008
New Revision: 10700

Modified:
   rt/branches/3.999-DANGEROUS/lib/RT/Shredder/GroupMember.pm

Log:
* fix t/shredder/02group_member.t

Modified: rt/branches/3.999-DANGEROUS/lib/RT/Shredder/GroupMember.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Shredder/GroupMember.pm	(original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Shredder/GroupMember.pm	Sun Feb  3 18:04:45 2008
@@ -87,8 +87,8 @@
 
  # XXX: If we delete member of the ticket owner role group then we should also
  # fix ticket object, but only if we don't plan to delete group itself!
-    unless ( ( $group->type || '' ) eq 'Owner'
-        && ( $group->domain || '' ) eq 'RT::Model::Ticket-Role' )
+    unless ( lc( $group->type || '' ) eq 'owner'
+        && lc( $group->domain || '' ) eq 'rt::model::ticket-role' )
     {
         return $self->SUPER::__depends_on(%args);
     }
@@ -109,9 +109,9 @@
             return
                 if $args{'shredder'}->get_state( object => $group )
                     & ( WIPED | IN_WIPING );
-            return unless ( $group->type || '' ) eq 'Owner';
+            return unless lc( $group->type || '' ) eq 'owner';
             return
-                unless ( $group->domain || '' ) eq 'RT::Model::Ticket-Role';
+                unless lc( $group->domain || '' ) eq 'rt::model::ticket-role';
 
             return if $group->members_obj->count > 1;
 
@@ -132,7 +132,7 @@
                 unless $ticket->id;
 
             ( $status, $msg ) = $ticket->_set(
-                column => 'Owner',
+                column => 'owner',
                 value  => RT->nobody->id,
             );
             RT::Shredder::Exception->throw($msg) unless $status;