[Rt-commit] r10533 - rt/branches/3.999-DANGEROUS/lib/RT/Model

[ruz at bestpractical.com]

Author: ruz
Date: Mon Jan 28 16:16:57 2008
New Revision: 10533

Modified:
   rt/branches/3.999-DANGEROUS/lib/RT/Model/ACE.pm
   rt/branches/3.999-DANGEROUS/lib/RT/Model/CachedGroupMember.pm

Log:
* more API lowering

Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/ACE.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/ACE.pm	(original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/ACE.pm	Mon Jan 28 16:16:57 2008
@@ -393,7 +393,7 @@
     unless (
         $self->current_user->has_right(
             Right  => 'DelegateRights',
-            Object => $self->Object
+            Object => $self->object
         )
         )
     {
@@ -485,7 +485,7 @@
     unless (
         (   $self->current_user->has_right(
                 Right  => 'ModifyACL',
-                Object => $self->Object
+                Object => $self->object
             )
             && $self->__value('DelegatedBy') == 0
         )
@@ -705,7 +705,7 @@
     } elsif (
         $self->current_user->has_right(
             Right  => 'ShowACL',
-            Object => $self->Object
+            Object => $self->object
         )
         )
     {

Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/CachedGroupMember.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/CachedGroupMember.pm	(original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/CachedGroupMember.pm	Mon Jan 28 16:16:57 2008
@@ -191,7 +191,7 @@
         return (undef);
     }
 
-    unless ( $self->group_obj->Object ) {
+    unless ( $self->group_obj->object ) {
 
         warn "HEY! NO group object object!!!" . $self->__value('GroupId');
         warn YAML::Dump($self);