From 1db1e783fb8ef024e7987a2a44c6abc4ce371c5b Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Thu, 18 Sep 2008 19:51:31 +0000
Subject: [PATCH] fixed: Folders are cached by the client too long for visitors

---
 docs/changelog/7.x.x.txt           |  1 +
 lib/WebGUI/Asset/Wobject/Folder.pm | 16 ++++++++++++++++
 2 files changed, 17 insertions(+)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 776742cd9..15e10536f 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -1,4 +1,5 @@
 7.6.0
+ - fixed: Folders are cached by the client too long for visitors
  - added variant id template variable to product variant loop
  - fixed: editting DataForm email fields resets their name
  - no longer preloads files that start with .
diff --git a/lib/WebGUI/Asset/Wobject/Folder.pm b/lib/WebGUI/Asset/Wobject/Folder.pm
index 5798e90d1..2d4d16941 100644
--- a/lib/WebGUI/Asset/Wobject/Folder.pm
+++ b/lib/WebGUI/Asset/Wobject/Folder.pm
@@ -111,7 +111,23 @@ sub definition {
     return $class->SUPER::definition($session, $definition);
 }
 
+#-------------------------------------------------------------------
 
+=head2 getContentLastModified
+
+Overridden to check the revision dates of children as well
+
+=cut
+
+sub getContentLastModified {
+    my $self = shift;
+    my $mtime = $self->get("revisionDate");
+    foreach my $child (@{ $self->getLineage(["children"],{returnObjects=>1}) }) {
+        my $child_mtime = $child->getContentLastModified;
+        $mtime = $child_mtime if ($child_mtime > $mtime);
+    }
+    return $mtime;
+}
 
 #-------------------------------------------------------------------