minor changes
This commit is contained in:
parent
92c87ca9b8
commit
ac14d55b18
3 changed files with 9 additions and 9 deletions
|
|
@ -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;
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue