From 0cbc4eece1ed7a45ad64e0ebccd10c225958e4a3 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 4 Sep 2009 17:10:47 -0700
Subject: [PATCH] fix #10879.  Form/File loses files from previous storageId.

Tested Collaboration System, and User Profile Avatar field.
---
 docs/changelog/7.x.x.txt | 1 +
 lib/WebGUI/Form/File.pm  | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 6cea6d378..4aa268ad0 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -12,6 +12,7 @@
  - fixed #10891: Asset manager JSON feed has macros processed
  - fixed #10900: Matrix: Product Listing template
  - fixed #10902: Shelf asset is whiny
+ - fixed #10879: Collaboration System Thread lose attachments
 
 7.7.19
  - fixed #10838: Forwarded forum post email to new CS adds reply to original thread
diff --git a/lib/WebGUI/Form/File.pm b/lib/WebGUI/Form/File.pm
index cef51f6e7..b6333d123 100644
--- a/lib/WebGUI/Form/File.pm
+++ b/lib/WebGUI/Form/File.pm
@@ -181,7 +181,7 @@ deleting the file if it was specified.
 
 sub getValue {
 	my $self = shift;
-	my $value = $self->SUPER::getValue(@_);
+	my $value = $self->getOriginalValue;
 	my $storage = WebGUI::Storage->get($self->session,$value);
 	if (defined $storage) {
 		foreach my $file (@{$storage->getFiles}) {