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

Really dont use this copy

Browse source
This commit is contained in:
Kaleb Murphy 2008-09-24 15:29:51 +00:00
parent c4f939f306
commit e81accaa15
3 changed files with 36 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI/Asset/Wobject/Survey/SectionJSON.pm
View file

@ -18,7 +18,7 @@ sub new{
}
$self->{text} = $self->{text} || '';
$self->{title} = $self->{title} || '';
$self->{title} = $self->{title} || 'New Section';
$self->{parent} = $parent;
$self->{questionsPerPage} = $self->{questionsPerPage} || 5;
$self->{questionsOnSectionPage} = $self->{questionsOnSectionPage} || 1;
@ -106,8 +106,9 @@ sub getQuestion{
sub freeze{
my $self = shift;
$self->{parent} = undef;
my %temp = %{$self};
$temp{parent} = undef;
$temp{questions} = [];
foreach(@{$self->{questions}}){
push(@{$temp{questions}}, $_->freeze());