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

Made Survey2 asset-copy-aware too

Browse source
This commit is contained in:
Patrick Donelan 2008-10-24 06:34:33 +00:00
parent ca3a2d3421
commit 265b464091
1 changed files with 17 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lib/WebGUI/Asset/Wobject/Survey.pm
View file

@ -165,6 +165,23 @@ sub importAssetCollateralData {
$self->session->db->write("update Survey set surveyJSON = ? where assetId = ?",[$surveyJSON,$self->getId]);
}
#-------------------------------------------------------------------
=head2 duplicate ( )
Override duplicate so that surveyJSON gets duplicated too
=cut
sub duplicate {
my $self = shift;
my $options = shift;
my $newAsset = $self->SUPER::duplicate($options);
$self->loadSurveyJSON();
$self->session->db->write("update Survey set surveyJSON = ? where assetId = ?",[$self->survey->freeze,$newAsset->getId]);
return $newAsset;
}
#-------------------------------------------------------------------
=head2 getEditForm