fix [ 1279887 ] unable to copy Survey Wobject

This commit is contained in:
JT Smith 2005-09-11 14:20:27 +00:00
parent 056cc44f05
commit 68d5986c39
2 changed files with 5 additions and 3 deletions

View file

@ -28,6 +28,7 @@
- fix [ 1274488 ] Visitors language not recognized 6.7.2 - fix [ 1274488 ] Visitors language not recognized 6.7.2
- fix [ 1266159 ] 6.7.1 - getEditForm fields are in funky order - fix [ 1266159 ] 6.7.1 - getEditForm fields are in funky order
- fix [ 1283629 ] Forum bug in 6.5.6 - fix [ 1283629 ] Forum bug in 6.5.6
- fix [ 1279887 ] unable to copy Survey Wobject
6.7.3 6.7.3

View file

@ -135,7 +135,7 @@ sub duplicate {
$newAsset = $self->SUPER::duplicate(shift); $newAsset = $self->SUPER::duplicate(shift);
$newSurveyId = WebGUI::Id::generate(); $newSurveyId = WebGUI::Id::generate();
$newAsset->set({ $newAsset->update({
Survey_id=>$newSurveyId Survey_id=>$newSurveyId
}); });
$a = WebGUI::SQL->read("select * from Survey_question where Survey_id=".quote($self->get("Survey_id")) $a = WebGUI::SQL->read("select * from Survey_question where Survey_id=".quote($self->get("Survey_id"))
@ -165,6 +165,7 @@ sub duplicate {
$b->finish; $b->finish;
} }
$a->finish; $a->finish;
return $newAsset;
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------
@ -291,10 +292,10 @@ sub getEditForm {
if ($self->get("assetId") eq "new") { if ($self->get("assetId") eq "new") {
$tabform->getTab('properties')->whatNext( $tabform->getTab('properties')->whatNext(
-options=>{ -options=>{
addQuestion=>WebGUI::International::get(28,'Asset_Survey'), editQuestion=>WebGUI::International::get(28,'Asset_Survey'),
backToPage=>WebGUI::International::get(745,'Asset_Survey') backToPage=>WebGUI::International::get(745,'Asset_Survey')
}, },
-value=>"addQuestion", -value=>"editQuestion",
-hoverHelp => WebGUI::International::get('what next','Asset_Survey'), -hoverHelp => WebGUI::International::get('what next','Asset_Survey'),
); );
} }