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

remove WebGUI::Utility::scalarEquals

Browse source
This commit is contained in:
Graham Knop 2010-08-20 12:54:34 -05:00
parent a0a26da3bc
commit ff70751bc5
3 changed files with 4 additions and 64 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -659,19 +659,19 @@ sub compress {
my $newA = {};
while (my($key, $value) = each %$a) {
next if ref $value;
$newA->{$key} = $value unless WebGUI::Utility::scalarEquals($value, $amold->{$key});
$newA->{$key} = $value unless $value eq $amold->{$key};
}
push @{$newQ->{answers}}, $newA;
}
while (my($key, $value) = each %$q) {
next if ref $value;
$newQ->{$key} = $value unless WebGUI::Utility::scalarEquals($value, $qmold->{$key});
$newQ->{$key} = $value unless $value eq $qmold->{$key};
}
push @{$newS->{questions}}, $newQ;
}
while (my($key, $value) = each %$s) {
next if ref $value;
$newS->{$key} = $value unless WebGUI::Utility::scalarEquals($value, $smold->{$key});
$newS->{$key} = $value unless $value eq $smold->{$key};
}
push @sections, $newS;
}