From 2e0c3dc48c3577c8aaf09d07fa518b47595be9eb Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Thu, 8 Dec 2005 03:22:45 +0000
Subject: [PATCH] fix [ 1373319 ] archive

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

diff --git a/docs/changelog/6.x.x.txt b/docs/changelog/6.x.x.txt
index 67981c210..1650b05d9 100644
--- a/docs/changelog/6.x.x.txt
+++ b/docs/changelog/6.x.x.txt
@@ -27,6 +27,7 @@
  - fix [ 1356544 ] FAQ template in collaboration has wrong anchors
  - The upgrade script now wipes out the file cache in case it would cause
    any conflicts.
+ - fix [ 1373319 ] archive
  - fix [ 1373493 ] Upgrade script fails because parameters are not quoted
  - Upgrade now uses --results-file parameter on mysqldump because some
    operating system don't handle UTF-8 characters through their pipes.
diff --git a/lib/WebGUI/Asset/Post.pm b/lib/WebGUI/Asset/Post.pm
index b6bd3316f..2b6c81dbd 100644
--- a/lib/WebGUI/Asset/Post.pm
+++ b/lib/WebGUI/Asset/Post.pm
@@ -627,7 +627,6 @@ sub processPropertiesFromFormPost {
 			ownerUserId => $session{user}{userId},
 			username => $session{form}{visitorName} || $session{user}{alias} || $session{user}{username},
 			isHidden => 1,
-			dateSubmitted=>time()
 			);
 		$data{url} = $self->fixUrl($self->getThread->get("url")."/1") if ($self->isReply);
 		if ($self->getThread->getParent->canModerate) {
diff --git a/lib/WebGUI/Form/Control.pm b/lib/WebGUI/Form/Control.pm
index d9d080a83..b105bd210 100644
--- a/lib/WebGUI/Form/Control.pm
+++ b/lib/WebGUI/Form/Control.pm
@@ -378,6 +378,7 @@ context, it will return a newline "\n" separated scalar.
 sub getValueFromPost {
 	my $self = shift;
 	my @formValues = $session{req}->param($self->{name});
+	return undef if ($formValues[0] eq "");
 	unless (@formValues) {
 		@formValues = (ref $self->{defaultValue} eq "ARRAY")
 				? @{$self->{defaultValue} }