oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed bug where changing file parameters without uploading a new file would delete the file.

Browse source
This commit is contained in:
JT Smith 2002-12-05 01:43:17 +00:00
parent 16ce3eff52
commit 7b0f03c998
1 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lib/WebGUI/Wobject/FileManager.pm
View file

@ -242,14 +242,20 @@ sub www_editDownloadSave {
$_[0]->reorderCollateral("FileManager_file","FileManager_fileId"); $_[0]->reorderCollateral("FileManager_file","FileManager_fileId");
$file = WebGUI::Attachment->new("",$_[0]->get("wobjectId"),$files{FileManager_fileId}); $file = WebGUI::Attachment->new("",$_[0]->get("wobjectId"),$files{FileManager_fileId});
$file->save("downloadFile"); $file->save("downloadFile");
$files{downloadFile} = $file->getFilename; if ($file->getFilename ne "") {
$files{fileTitle} = $files{downloadFile} if ($session{form}{fileTitle} eq ""); $files{downloadFile} = $file->getFilename;
$files{fileTitle} = $files{downloadFile} if ($session{form}{fileTitle} eq "");
}
$file = WebGUI::Attachment->new("",$_[0]->get("wobjectId"),$files{FileManager_fileId}); $file = WebGUI::Attachment->new("",$_[0]->get("wobjectId"),$files{FileManager_fileId});
$file->save("alternateVersion1"); $file->save("alternateVersion1");
if ($file->getFilename ne "") {
$files{alternateVersion1} = $file->getFilename; $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"); $file->save("alternateVersion2");
$files{alternateVersion2} = $file->getFilename; if ($file->getFilename ne "") {
$files{alternateVersion2} = $file->getFilename;
}
$_[0]->setCollateral("FileManager_file", "FileManager_fileId", \%files); $_[0]->setCollateral("FileManager_file", "FileManager_fileId", \%files);
if ($session{form}{proceed} eq "addFile") { if ($session{form}{proceed} eq "addFile") {
$session{form}{did} = "new"; $session{form}{did} = "new";