From ac441a328d192fd745394bf74e0b028a1da28e2f Mon Sep 17 00:00:00 2001
From: Matthew Wilson <matt@plainblack.com>
Date: Mon, 12 Dec 2005 05:51:14 +0000
Subject: [PATCH]  - fix [ 1376621 ] dateSubmitted not updated on posts

---
 docs/changelog/6.x.x.txt | 1 +
 lib/WebGUI/Asset.pm      | 5 ++++-
 lib/WebGUI/Asset/Post.pm | 2 +-
 3 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/docs/changelog/6.x.x.txt b/docs/changelog/6.x.x.txt
index 504c62d94..9ac49f4e6 100644
--- a/docs/changelog/6.x.x.txt
+++ b/docs/changelog/6.x.x.txt
@@ -5,6 +5,7 @@
  - fix [ 1344146 ] deleting recurring events doesn't work
  - fix [ 1378333 ] [WG 6.7.8] Mail Form template doesn't mark required fields
  - fix [ 1377276 ] Calendar Pop up issue
+ - fix [ 1376621 ] dateSubmitted not updated on posts
  - fix [ 1344111 ] promote/demote swap with non-"published" assets
  - removed server version tag appending.  Could re-add as an setting later.
    (along with the Style.pm header tag version number insertion).
diff --git a/lib/WebGUI/Asset.pm b/lib/WebGUI/Asset.pm
index 6ee43cde3..1b1aadaaf 100644
--- a/lib/WebGUI/Asset.pm
+++ b/lib/WebGUI/Asset.pm
@@ -1146,7 +1146,10 @@ sub processPropertiesFromFormPost {
 	my %data;
 	foreach my $definition (@{$self->definition}) {
 		foreach my $property (keys %{$definition->{properties}}) {
-			next if ($definition->{properties}{$property}{noFormPost});
+			if ($definition->{properties}{$property}{noFormPost}) {
+				$data{$property} = $definition->{properties}{$property}{defaultValue};
+				next;
+			}
 			$data{$property} = WebGUI::FormProcessor::process(
 				$property,
 				$definition->{properties}{$property}{fieldType},
diff --git a/lib/WebGUI/Asset/Post.pm b/lib/WebGUI/Asset/Post.pm
index 898f9b238..78d2bf666 100644
--- a/lib/WebGUI/Asset/Post.pm
+++ b/lib/WebGUI/Asset/Post.pm
@@ -129,7 +129,7 @@ sub definition {
 			dateSubmitted => {
 				noFormPost=>1,
 				fieldType=>"hidden",
-				defaultValue=>undef
+				defaultValue=>time()
 				},
 			dateUpdated => {
 				fieldType=>"hidden",