# HG changeset patch
# User wizard
# Date 1279679232 -14400
# Node ID bd10093bb12212784cd7771e1edcdb017fd2a81a
# Parent  b56ebc31bf1858492074625dd155ed07fec51b69
Minor changes

diff -r b56ebc31bf18 -r bd10093bb122 Lib/IMPL/Web/TT/Document.pm
--- a/Lib/IMPL/Web/TT/Document.pm	Tue Jul 13 02:05:38 2010 +0400
+++ b/Lib/IMPL/Web/TT/Document.pm	Wed Jul 21 06:27:12 2010 +0400
@@ -77,7 +77,8 @@
                     	$this->_process(@_);
                     }
                 },
-                TRIM => 1,
+                POST_CHOMP => 2,
+                PRE_CHOMP => 2,
                 RECURSION => 1,
                 LOAD_TEMPLATES => [$this->provider]
             )
diff -r b56ebc31bf18 -r bd10093bb122 Lib/IMPL/Web/TT/Form.pm
--- a/Lib/IMPL/Web/TT/Form.pm	Tue Jul 13 02:05:38 2010 +0400
+++ b/Lib/IMPL/Web/TT/Form.pm	Wed Jul 21 06:27:12 2010 +0400
@@ -76,6 +76,23 @@
 	};
 }
 
+sub makeContent {
+	my ($this,$mappings) = @_;
+	
+	my $formSchema = $this->schema->selectSingleNode(sub { $_->nodeName eq 'ComplexNode' and $_->name eq $this->base } )
+		or die new Exception("Cant find a schema element for the specified form", $this->base);
+
+	my $doc = $this->document;		
+	foreach my $itemSchema ( $formSchema->content->childNodes ) {
+		my $itemName = $itemSchema->name; 
+		if (my $controlClass = $mappings->{$itemName} ) {
+			my $contorl = $doc->CreateControl($itemName,$controlClass,$this->makeControlArgs($itemName));
+			$this->appendChild($contorl);
+		}
+	}
+	return;
+}
+
 sub formErrors {
 	my ($this) = @_;