Mercurial > pub > Impl
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); |
