# HG changeset patch
# User sergey
# Date 1356034151 -14400
# Node ID b92f19630d3319b60b923205b68ba489fa5a2608
# Parent  299af584c05ff405abaab4661f20e16acd94fd5b# Parent  91bae9f41a9cf2d52f5cff5a5c3e7c8683c7d47e
Merge with 91bae9f41a9cf2d52f5cff5a5c3e7c8683c7d47e

diff -r 91bae9f41a9c -r b92f19630d33 Lib/IMPL/DOM/Transform/ObjectToDOM.pm
--- a/Lib/IMPL/DOM/Transform/ObjectToDOM.pm	Tue Dec 18 19:18:31 2012 +0400
+++ b/Lib/IMPL/DOM/Transform/ObjectToDOM.pm	Fri Dec 21 00:09:11 2012 +0400
@@ -79,7 +79,8 @@
         my $value = $data->{$key};
         
         if (ref $value eq 'ARRAY') {
-            foreach my $subval (@$value) {
+            #TODO: collapse empty values only if needed
+            foreach my $subval (grep $_, @$value) {
                 
                 $this->_navi->saveState();
                 
@@ -109,8 +110,6 @@
             
             $this->_navi->applyState();
             
-            warn "$key = $value";
-            
             $this->Transform($value);
             
             $this->_navi->Back();            
@@ -126,8 +125,6 @@
     
     $node->nodeValue($data);
     
-    warn "Stored value for", $node->nodeName;
-    
     return $node;
 }