[Rt-commit] rt branch, 4.2/deprecate-objectid-column-in-principals, created. rt-4.1.8-153-gd6a7519

[Ruslan Zakirov]

The branch, 4.2/deprecate-objectid-column-in-principals has been created
        at  d6a7519dc737e00a25c497965828a2f6e8682d3a (commit)

- Log -----------------------------------------------------------------
commit d6a7519dc737e00a25c497965828a2f6e8682d3a
Author: Ruslan Zakirov <ruz at bestpractical.com>
Date:   Fri Apr 19 16:15:24 2013 +0400

    deprecate Principal.ObjectId
    
    ObjectId is always equal to id and we mix usage in many
    places and almost don't use ObjectId.

diff --git a/lib/RT/Group.pm b/lib/RT/Group.pm
index 69e730f..b7a3648 100644
--- a/lib/RT/Group.pm
+++ b/lib/RT/Group.pm
@@ -1481,17 +1481,9 @@ The response is cached. PrincipalObj should never ever change.
 
 sub PrincipalObj {
     my $self = shift;
-    unless ( defined $self->{'PrincipalObj'} &&
-             defined $self->{'PrincipalObj'}->ObjectId &&
-            ($self->{'PrincipalObj'}->ObjectId == $self->Id) &&
-            (defined $self->{'PrincipalObj'}->PrincipalType && 
-                $self->{'PrincipalObj'}->PrincipalType eq 'Group')) {
-
-            $self->{'PrincipalObj'} = RT::Principal->new($self->CurrentUser);
-            $self->{'PrincipalObj'}->LoadByCols('ObjectId' => $self->Id,
-                                                'PrincipalType' => 'Group') ;
-            }
-    return($self->{'PrincipalObj'});
+    my $res = RT::Principal->new( $self->CurrentUser );
+    $res->Load( $self->id );
+    return $res;
 }
 
 
diff --git a/lib/RT/Principal.pm b/lib/RT/Principal.pm
index 9777019..e87a3cb 100644
--- a/lib/RT/Principal.pm
+++ b/lib/RT/Principal.pm
@@ -139,7 +139,7 @@ sub Object {
             $RT::Logger->crit("Found a principal (".$self->Id.") that was neither a user nor a group");
             return(undef);
         }
-        $self->{'object'}->Load( $self->ObjectId() );
+        $self->{'object'}->Load( $self->id );
     }
     return ($self->{'object'});
 
@@ -735,7 +735,20 @@ sub _ReferenceId {
     }
 }
 
+sub ObjectId {
+    my $self = shift;
+    RT->Deprecated( Instead => 'id', Remove => '4.4' );
+    return $self->_Value('ObjectId');
+}
 
+sub LoadByCols {
+    my $self = shift;
+    my %args = @_;
+    if ( exists $args{'ObjectId'} ) {
+        RT->Deprecated( Arguments => 'ObjectId', Instead => 'id', Remove => '4.4' );
+    }
+    return $self->SUPER::LoadByCols( %args );
+}
 
 
 
diff --git a/lib/RT/SearchBuilder.pm b/lib/RT/SearchBuilder.pm
index eff67d1..135e59b 100644
--- a/lib/RT/SearchBuilder.pm
+++ b/lib/RT/SearchBuilder.pm
@@ -258,6 +258,7 @@ my %deprecated = (
     groups => {
         type => 'Name',
     },
+    principals => { objectid => 'id' },
 );
 
 sub Limit {
diff --git a/t/api/group.t b/t/api/group.t
index 2c1ca73..9ba3257 100644
--- a/t/api/group.t
+++ b/t/api/group.t
@@ -88,7 +88,7 @@ is($group_3->HasMemberRecursively($principal_2), undef, "group 3 has member 2 re
 
 ok(my $u = RT::Group->new(RT->SystemUser));
 ok($u->Load(4), "Loaded the first user");
-is($u->PrincipalObj->ObjectId , 4, "user 4 is the fourth principal");
+is($u->PrincipalObj->id , 4, "user 4 is the fourth principal");
 is($u->PrincipalObj->PrincipalType , 'Group' , "Principal 4 is a group");
 
 
diff --git a/t/api/user.t b/t/api/user.t
index e6b891f..0bb1fb5 100644
--- a/t/api/user.t
+++ b/t/api/user.t
@@ -106,7 +106,7 @@ ok($user->Privileged, "User 'root' is privileged again");
 
 ok(my $u = RT::User->new(RT->SystemUser));
 ok($u->Load(1), "Loaded the first user");
-is($u->PrincipalObj->ObjectId , 1, "user 1 is the first principal");
+is($u->PrincipalObj->id , 1, "user 1 is the first principal");
 is($u->PrincipalObj->PrincipalType, 'User' , "Principal 1 is a user, not a group");
 
 

-----------------------------------------------------------------------