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

minor changes

Browse source
This commit is contained in:
Kaleb Murphy 2008-09-26 14:18:36 +00:00
parent 92c87ca9b8
commit ac14d55b18
3 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -54,6 +54,7 @@ sub getObject{
}
sub getEditVars{
my ($self,$address) = @_;
$self->{log}->error("section geteditvars");
if(@$address > 1){
return $self->{questions}->[$address->[1]]->getEditVars($address);
}
@ -139,7 +140,6 @@ sub freeze{
foreach(@{$self->{questions}}){
push(@{$temp{questions}}, $_->freeze());
}
$temp{log} = undef;
delete $temp{log};
return \%temp;
}

7
lib/WebGUI/Asset/Wobject/Survey/SurveyJSON.pm
View file

@ -49,6 +49,7 @@ sub getObject{
sub getEditVars{
my ($self,$address) = @_;
$self->{log}->error("SurveyJSON geteditvars for: ".@$address);
return $self->{sections}->[$address->[0]]->getEditVars($address);
}
@ -90,12 +91,6 @@ sub freeze{
foreach (@{$self->{sections}}){
push(@{$temp{sections}},$_->freeze());
}
foreach my $key (keys %temp){
if($key ne 'log'){
$self->{log}->error("$key $temp{$key}");
}
}
$temp{log} = undef;
delete $temp{log};
return \%temp;
}