From 81bb746f9e7219b26bfb729628aa9c2629f64648 Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Thu, 8 Nov 2007 22:50:59 +0000
Subject: [PATCH] fix CS posts not allowing new attachments after deleting old
 ones

---
 docs/changelog/7.x.x.txt | 3 +++
 lib/WebGUI/Form/File.pm  | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 1cef24e09..f37dc411c 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -8,6 +8,9 @@
  - rfe: Added message to user search operation when user count exceeds 250.
    (Diona Kidd, Knowmad Technologies)
 
+7.4.14
+ - fix: CS posts won't allow new attachments after deleting an old one
+
 7.4.13
  - fix: field_loop missing from SQL Form template
  - fix: Calendar doubles backslashes on iCal import
diff --git a/lib/WebGUI/Form/File.pm b/lib/WebGUI/Form/File.pm
index 52ecd05b4..2d820f763 100644
--- a/lib/WebGUI/Form/File.pm
+++ b/lib/WebGUI/Form/File.pm
@@ -243,7 +243,7 @@ sub toHtml {
 	my $i18n = WebGUI::International->new($self->session);
 	my $uploadControl = undef;
 	my $storage = $self->getStorageLocation;
-	my @files = $storage->getFiles if (defined $storage);
+	my @files = @{ $storage->getFiles } if (defined $storage);
 	my $maxFiles = $self->get('maxAttachments') - scalar(@files);
 	if ($maxFiles > 0) {
         $self->session->style->setScript($self->session->url->extras('FileUploadControl.js'),{type=>"text/javascript"});