# HG changeset patch
# User sergey
# Date 1355440061 -14400
# Node ID 299af584c05ff405abaab4661f20e16acd94fd5b
# Parent  32aceba4ee6d74b225917c5a6e12f4a3bd2b45c0
collapse empty array elements in POSTed data

diff -r 32aceba4ee6d -r 299af584c05f Lib/IMPL/DOM/Transform/ObjectToDOM.pm
--- a/Lib/IMPL/DOM/Transform/ObjectToDOM.pm	Wed Dec 12 04:29:50 2012 +0400
+++ b/Lib/IMPL/DOM/Transform/ObjectToDOM.pm	Fri Dec 14 03:07:41 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;
 }