From 7b0f03c9982b8e9eae6fe8047d779591396d2a9f Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Thu, 5 Dec 2002 01:43:17 +0000
Subject: [PATCH] Fixed bug where changing file parameters without uploading a
 new file would delete the file.

---
 lib/WebGUI/Wobject/FileManager.pm | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/lib/WebGUI/Wobject/FileManager.pm b/lib/WebGUI/Wobject/FileManager.pm
index 6a5a72a02..6fd54fcb0 100644
--- a/lib/WebGUI/Wobject/FileManager.pm
+++ b/lib/WebGUI/Wobject/FileManager.pm
@@ -242,14 +242,20 @@ sub www_editDownloadSave {
 	$_[0]->reorderCollateral("FileManager_file","FileManager_fileId");
         $file = WebGUI::Attachment->new("",$_[0]->get("wobjectId"),$files{FileManager_fileId});
 	$file->save("downloadFile");
-	$files{downloadFile} = $file->getFilename;
-	$files{fileTitle} = $files{downloadFile} if ($session{form}{fileTitle} eq "");
+	if ($file->getFilename ne "") {
+		$files{downloadFile} = $file->getFilename;
+		$files{fileTitle} = $files{downloadFile} if ($session{form}{fileTitle} eq "");
+	}
         $file = WebGUI::Attachment->new("",$_[0]->get("wobjectId"),$files{FileManager_fileId});
 	$file->save("alternateVersion1");
+	if ($file->getFilename ne "") {
 		$files{alternateVersion1} = $file->getFilename;
-		$file = WebGUI::Attachment->new("",$_[0]->get("wobjectId"),$files{FileManager_fileId});
+	}
+	$file = WebGUI::Attachment->new("",$_[0]->get("wobjectId"),$files{FileManager_fileId});
 	$file->save("alternateVersion2");
-	$files{alternateVersion2} = $file->getFilename;
+	if ($file->getFilename ne "") {
+		$files{alternateVersion2} = $file->getFilename;
+	}
 	$_[0]->setCollateral("FileManager_file", "FileManager_fileId", \%files);
         if ($session{form}{proceed} eq "addFile") {
         	$session{form}{did} = "new";