Changeset 2530 for branches/release-39/lib/MT/Object.pm

Timestamp:

06/09/08 09:13:14 (18 months ago)

Author:

auno

Message:

Fixed to work test properly. BugzID:79876
* fixed some expected data
* clear cache data and not to set cache data
* fixed mtcomments lastn order

Files:

• branches/release-39/lib/MT/Object.pm (modified) (1 diff)

branches/release-39/lib/MT/Object.pm

@@ -1238 +1238 @@
     my $obj = shift;
     my $oc = MT->request('object_cache') or return;
+
+    my $pk = $obj->primary_key;
+    $pk = join ":", @$pk if ref $pk;
+    my $key = ref($obj). ':' . $pk;
+
     if (@_) {
-        $oc = $oc->{"$obj"};
+        $oc = $oc->{$key};
         delete $oc->{shift} if $oc;
     } else {
-        delete $oc->{"$obj"};
-    }
+        delete $oc->{$key};
+    }
+    1;
 }