[Rt-commit] [svn] r928 - in RTx-Atom: . html/Atom/0.3 html/Atom/0.3/Get

[autrijus at pallas.eruditorum.org]

Author: autrijus
Date: Wed May 19 00:42:46 2004
New Revision: 928

Modified:
   RTx-Atom/   (props changed)
   RTx-Atom/Changes
   RTx-Atom/html/Atom/0.3/Get/Property
   RTx-Atom/html/Atom/0.3/dhandler
Log:
 ----------------------------------------------------------------------
 r4978 at not:  autrijus | 2004-05-19T04:24:07.244026Z
 
 * Force expire objects directly before Get.
 ----------------------------------------------------------------------
 r4979 at not:  autrijus | 2004-05-19T04:30:22.851874Z
 
 * remove unneccessary cache expiry code.
 ----------------------------------------------------------------------


Modified: RTx-Atom/Changes
==============================================================================
--- RTx-Atom/Changes	(original)
+++ RTx-Atom/Changes	Wed May 19 00:42:46 2004
@@ -1,3 +1,7 @@
+[Changes for 0.00_02 - May 19, 2004]
+
+Object cache expiry for Get/Property now works.
+
 [Changes for 0.00_01 - May 17, 2004]
 
 Initial CPAN Release.

Modified: RTx-Atom/html/Atom/0.3/Get/Property
==============================================================================
--- RTx-Atom/html/Atom/0.3/Get/Property	(original)
+++ RTx-Atom/html/Atom/0.3/Get/Property	Wed May 19 00:42:46 2004
@@ -22,6 +22,12 @@
 }
 
 $r->content_type('text/plain');
+
+if ($Object->can('_gen_primary_cache_key')) {
+    $Object->Load($Object->Id);
+    $Object->_expire( $Object->_gen_primary_cache_key());
+}
+
 print $Object->$Property, "\n";
 </%INIT>
 <%ARGS>

Modified: RTx-Atom/html/Atom/0.3/dhandler
==============================================================================
--- RTx-Atom/html/Atom/0.3/dhandler	(original)
+++ RTx-Atom/html/Atom/0.3/dhandler	Wed May 19 00:42:46 2004
@@ -326,9 +326,6 @@
 
     return $m->comp('Elements/Error', Status => 404)
 	if $obj and $obj->can('Id') and !$obj->Id;
-
-    # Can't allow cache to happen at all
-    eval { $obj->_expire( $obj->_gen_primary_cache_key()) };
 }
 
 $obj ||= $list if $property;