comparison Lib/IMPL/DOM/Transform/PostToDOM.pm @ 157:c7652cf29a80

Fixed PostToDom with empty fields issue. Fixed the includes search order for TT::Document.
author wizard
date Wed, 20 Oct 2010 18:02:47 +0400
parents 1e7f03414b65
children 4267a2ac3d46
comparison
equal deleted inserted replaced
156:8638dd1374bf 157:c7652cf29a80
73 my $data={}; 73 my $data={};
74 74
75 my $prefix = $this->prefix; 75 my $prefix = $this->prefix;
76 76
77 foreach my $param (grep index($_,$prefix) >= 0 , $query->param()) { 77 foreach my $param (grep index($_,$prefix) >= 0 , $query->param()) {
78 defined (my $value = $query->param($param)) or next; 78 length (my $value = $query->param($param)) or next;
79 79
80 my @parts = split /\//,$param; 80 my @parts = split /\//,$param;
81 81
82 my $node = $data; 82 my $node = $data;
83 while ( my $part = shift @parts ) { 83 while ( my $part = shift @parts ) {