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

fixed bug 639882

Browse source
This commit is contained in:
JT Smith 2002-11-23 05:00:08 +00:00
parent 03963d6e50
commit 04256a4f1f
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -235,14 +235,14 @@ sub www_editDownloadSave {
groupToView => $session{form}{groupToView}
});
$_[0]->reorderCollateral("FileManager_file","FileManager_fileId");
$file = WebGUI::Attachment->new("",$session{form}{wid},$session{form}{did});
$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 "");
$file = WebGUI::Attachment->new("",$session{form}{wid},$session{form}{did});
$file = WebGUI::Attachment->new("",$_[0]->get("wobjectId"),$files{FileManager_fileId});
$file->save("alternateVersion1");
$files{alternateVersion1} = $file->getFilename;
$file = WebGUI::Attachment->new("",$session{form}{wid},$session{form}{did});
$files{alternateVersion1} = $file->getFilename;
$file = WebGUI::Attachment->new("",$_[0]->get("wobjectId"),$files{FileManager_fileId});
$file->save("alternateVersion2");
$files{alternateVersion2} = $file->getFilename;
$_[0]->setCollateral("FileManager_file", "FileManager_fileId", \%files);