[Rt-commit] [svn] r1435 - in DBIx-SearchBuilder/trunk: . SearchBuilder/Record

[jesse at pallas.eruditorum.org]

Author: jesse
Date: Tue Sep  7 18:44:04 2004
New Revision: 1435

Modified:
   DBIx-SearchBuilder/trunk/   (props changed)
   DBIx-SearchBuilder/trunk/Changes
   DBIx-SearchBuilder/trunk/SearchBuilder.pm
   DBIx-SearchBuilder/trunk/SearchBuilder/Record/Cachable.pm
Log:
 r10159 at tinbook:  jesse | 2004-09-07T22:37:08.756368Z
 Removed bogus "->id" cache


Modified: DBIx-SearchBuilder/trunk/Changes
==============================================================================
--- DBIx-SearchBuilder/trunk/Changes	(original)
+++ DBIx-SearchBuilder/trunk/Changes	Tue Sep  7 18:44:04 2004
@@ -1,5 +1,10 @@
 Revision history for Perl extension DBIx::SearchBuilder.
 
+1.11
+
+    - When loading an object whose "id" has been altered, as in the case of RT's "Merge" functionality, the wrong object was returned by the caching layer. Special casing for the "id" method was removed.
+
+
 1.10
 
     - Identical to 1.10_05

Modified: DBIx-SearchBuilder/trunk/SearchBuilder.pm
==============================================================================
--- DBIx-SearchBuilder/trunk/SearchBuilder.pm	(original)
+++ DBIx-SearchBuilder/trunk/SearchBuilder.pm	Tue Sep  7 18:44:04 2004
@@ -5,7 +5,7 @@
 use strict;
 use vars qw($VERSION);
 
-$VERSION = "1.10";
+$VERSION = "1.11";
 
 =head1 NAME
 

Modified: DBIx-SearchBuilder/trunk/SearchBuilder/Record/Cachable.pm
==============================================================================
--- DBIx-SearchBuilder/trunk/SearchBuilder/Record/Cachable.pm	(original)
+++ DBIx-SearchBuilder/trunk/SearchBuilder/Record/Cachable.pm	Tue Sep  7 18:44:04 2004
@@ -119,7 +119,7 @@
 sub __Set () {
     my ( $self, %attr ) = @_;
 
-    $self->_expire( $self->_primary_RecordCache_key() );
+    $self->_expire();
     return $self->SUPER::__Set(%attr);
 
 }
@@ -132,7 +132,7 @@
 sub Delete () {
     my ($self) = @_;
 
-    $self->_expire( $self->_primary_RecordCache_key() );
+    $self->_expire();
 
     return $self->SUPER::Delete();
 
@@ -163,10 +163,6 @@
 
 }
 
-sub id {
-    my $self = shift;
-    return ( $self->{'_id'} ||= $self->SUPER::id );
-}
 
 sub __Value {
     my $self  = shift;