changeset 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 8638dd1374bf
children a9f4ba4783eb
files Lib/IMPL/DOM/Transform/PostToDOM.pm Lib/IMPL/Web/TT/Document.pm
diffstat 2 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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;
 		
--- 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;
     }