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

Made surveyJSON package-aware

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

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

@ -16,6 +16,7 @@ use JSON;
use WebGUI::International; use WebGUI::International;
use WebGUI::Form::File; use WebGUI::Form::File;
use base 'WebGUI::Asset::Wobject'; use base 'WebGUI::Asset::Wobject';
use WebGUI::Asset::Wobject::Survey::SurveyJSON;
use Data::Dumper; use Data::Dumper;
@ -120,7 +121,7 @@ sub definition {
label => "Answer Edit Tempalte", label => "Answer Edit Tempalte",
defaultValue => 'AjhlNO3wZvN5k4i4qioWcg', defaultValue => 'AjhlNO3wZvN5k4i4qioWcg',
namespace => 'Survey/Edit', namespace => 'Survey/Edit',
} },
); );
push(@{$definition}, { push(@{$definition}, {
@ -134,6 +135,36 @@ sub definition {
return $class->SUPER::definition($session, $definition); return $class->SUPER::definition($session, $definition);
} }
#-------------------------------------------------------------------
=head2 exportAssetData ( )
Override exportAssetData so that surveyJSON is included in package exports etc..
=cut
sub exportAssetData {
my $self = shift;
my $hash = $self->SUPER::exportAssetData();
$self->loadSurveyJSON();
$hash->{properties}{surveyJSON} = $self->survey->freeze;
return $hash;
}
#-------------------------------------------------------------------
=head2 importAssetData ( hashRef )
Override importAssetCollateralData so that surveyJSON gets imported from packages
=cut
sub importAssetCollateralData {
my ($self, $data) = @_;
my $surveyJSON = $data->{properties}{surveyJSON};
$self->session->db->write("update Survey set surveyJSON = ? where assetId = ?",[$surveyJSON,$self->getId]);
}
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 getEditForm =head2 getEditForm
@ -504,7 +535,7 @@ sub prepareView {
sub purge { sub purge {
my $self = shift; my $self = shift;
$self->session->db->write("delete from Survey_response where assetId = ?",[$self->getId()]); $self->session->db->write("delete from Survey_response where assetId = ?",[$self->getId()]);
$self->session->db->write("delete from Survey_questionResponse where assetId = ?",[$self->getId()]); $self->session->db->write("delete from Survey where assetId = ?",[$self->getId()]);
return $self->SUPER::purge; return $self->SUPER::purge;
} }