# HG changeset patch # User wizard # Date 1287583367 -14400 # Node ID c7652cf29a807b03efa84ca633b87e4a735d9206 # Parent 8638dd1374bf8cf6794208f118b7cf1d4918ed8d Fixed PostToDom with empty fields issue. Fixed the includes search order for TT::Document. diff -r 8638dd1374bf -r c7652cf29a80 Lib/IMPL/DOM/Transform/PostToDOM.pm --- a/Lib/IMPL/DOM/Transform/PostToDOM.pm Tue Oct 05 17:20:51 2010 +0400 +++ b/Lib/IMPL/DOM/Transform/PostToDOM.pm Wed Oct 20 18:02:47 2010 +0400 @@ -75,7 +75,7 @@ my $prefix = $this->prefix; foreach my $param (grep index($_,$prefix) >= 0 , $query->param()) { - defined (my $value = $query->param($param)) or next; + length (my $value = $query->param($param)) or next; my @parts = split /\//,$param; diff -r 8638dd1374bf -r c7652cf29a80 Lib/IMPL/Web/TT/Document.pm --- a/Lib/IMPL/Web/TT/Document.pm Tue Oct 05 17:20:51 2010 +0400 +++ b/Lib/IMPL/Web/TT/Document.pm Wed Oct 20 18:02:47 2010 +0400 @@ -184,7 +184,7 @@ if (not ref $src) { my ($vol,$dir,$fileName) = File::Spec->splitpath($src); - push @$includes, File::Spec->catpath($vol,$dir,''); + unshift @$includes, File::Spec->catpath($vol,$dir,''); $src = $fileName; }