diff --git a/lib/WebGUI/Wobject/FileManager.pm b/lib/WebGUI/Wobject/FileManager.pm index 23463db47..6a5a72a02 100644 --- a/lib/WebGUI/Wobject/FileManager.pm +++ b/lib/WebGUI/Wobject/FileManager.pm @@ -154,10 +154,10 @@ sub www_edit { if ($_[0]->get("wobjectId") eq "new") { $f->whatNext( -options=>{ - addQuestion=>WebGUI::International::get(74,$namespace), + addFile=>WebGUI::International::get(74,$namespace), backToPage=>WebGUI::International::get(745) }, - -value=>"addQuestion" + -value=>"addFile" ); } $output .= $_[0]->SUPER::www_edit($f->printRowsOnly); @@ -171,7 +171,8 @@ sub www_editSave { paginateAfter=>$session{form}{paginateAfter}, templateId=>$session{form}{templateId} }); - if ($session{form}{proceed}) { + if ($session{form}{proceed} eq "addFile") { + $session{form}{did} = "new"; return $_[0]->www_editDownload(); } else { return ""; @@ -181,44 +182,47 @@ sub www_editSave { #------------------------------------------------------------------- sub www_editDownload { return WebGUI::Privilege::insufficient() unless (WebGUI::Privilege::canEditPage()); - my ($output, %download, $f); - tie %download,'Tie::CPHash'; - if ($session{form}{did} eq "") { - $session{form}{did} = "new"; - } else { - %download = WebGUI::SQL->quickHash("select * from FileManager_file where FileManager_fileId='$session{form}{did}'"); - } + my ($output, $file, $f); + $file = $_[0]->getCollateral("FileManager_file","FileManager_fileId",$session{form}{did}); $output .= helpIcon(2,$namespace); $output .= '

'.WebGUI::International::get(10,$namespace).'

'; $f = WebGUI::HTMLForm->new; $f->hidden("wid",$_[0]->get("wobjectId")); - $f->hidden("did",$session{form}{did}); + $f->hidden("did",$file->{FileManager_fileId}); $f->hidden("func","editDownloadSave"); - $f->text("fileTitle",WebGUI::International::get(5,$namespace),$download{fileTitle}); - if ($download{downloadFile} ne "") { + $f->text("fileTitle",WebGUI::International::get(5,$namespace),$file->{fileTitle}); + if ($file->{downloadFile} ne "") { $f->readOnly(''.WebGUI::International::get(391). + $_[0]->get("wobjectId").'&did='.$file->{FileManager_fileId}).'">'.WebGUI::International::get(391). '',WebGUI::International::get(6,$namespace)); } else { $f->file("downloadFile",WebGUI::International::get(6,$namespace)); } - if ($download{alternateVersion1} ne "") { + if ($file->{alternateVersion1} ne "") { $f->readOnly(''. + $_[0]->get("wobjectId").'&did='.$file->{FileManager_fileId}).'">'. WebGUI::International::get(391).'',WebGUI::International::get(17,$namespace)); } else { $f->file("alternateVersion1",WebGUI::International::get(17,$namespace)); } - if ($download{alternateVersion2} ne "") { + if ($file->{alternateVersion2} ne "") { $f->readOnly(''. + $_[0]->get("wobjectId").'&did='.$file->{FileManager_fileId}).'">'. WebGUI::International::get(391).'',WebGUI::International::get(18,$namespace)); } else { $f->file("alternateVersion2",WebGUI::International::get(18,$namespace)); } - $f->text("briefSynopsis",WebGUI::International::get(8,$namespace),$download{briefSynopsis}); - $f->group("groupToView",WebGUI::International::get(7,$namespace),[$download{groupToView}]); - $f->yesNo("proceed",WebGUI::International::get(22,$namespace)); + $f->text("briefSynopsis",WebGUI::International::get(8,$namespace),$file->{briefSynopsis}); + $f->group("groupToView",WebGUI::International::get(7,$namespace),[$file->{groupToView}]); + if ($file->{FileManager_fileId} eq "new") { + $f->whatNext( + -options=>{ + addFile=>WebGUI::International::get(74,$namespace), + backToPage=>WebGUI::International::get(745) + }, + -value=>"addFile" + ); + } $f->submit; $output .= $f->print; return $output; @@ -247,7 +251,7 @@ sub www_editDownloadSave { $file->save("alternateVersion2"); $files{alternateVersion2} = $file->getFilename; $_[0]->setCollateral("FileManager_file", "FileManager_fileId", \%files); - if ($session{form}{proceed}) { + if ($session{form}{proceed} eq "addFile") { $session{form}{did} = "new"; return $_[0]->www_editDownload(); } else {