comparison Lib/IMPL/DOM/Transform/ObjectToDOM.pm @ 348:f116cd9fe7d9

working on TTView: pre-alpha version
author cin
date Thu, 03 Oct 2013 19:48:57 +0400
parents 50ff1595bd62
children 4cc6cc370fb2
comparison
equal deleted inserted replaced
347:3eafa6fefa9f 348:f116cd9fe7d9
78 78
79 KEYLOOP: foreach my $key (keys %$data) { 79 KEYLOOP: foreach my $key (keys %$data) {
80 my $value = $data->{$key}; 80 my $value = $data->{$key};
81 81
82 if (ref $value eq 'ARRAY') { 82 if (ref $value eq 'ARRAY') {
83 #TODO: collapse empty values only if needed
84 foreach my $subval (grep $_, @$value) { 83 foreach my $subval (grep $_, @$value) {
85 84
86 $this->_navi->saveState(); 85 $this->_navi->saveState();
87 86
88 my $node = $this->_navi->NavigateCreate($key); 87 my $node = $this->_navi->NavigateCreate($key);