# HG changeset patch
# User sergey
# Date 1392066355 -14400
# Node ID 0d63f5273307e3128d24f1068137acf3553f95cb
# Parent  2f16f13b000c128fc9b14d23ec7cbf9993cb3392
sync

diff -r 2f16f13b000c -r 0d63f5273307 Lib/IMPL/Code/BasePropertyImplementor.pm
--- a/Lib/IMPL/Code/BasePropertyImplementor.pm	Thu Jan 23 17:26:34 2014 +0400
+++ b/Lib/IMPL/Code/BasePropertyImplementor.pm	Tue Feb 11 01:05:55 2014 +0400
@@ -40,15 +40,19 @@
 sub NormalizeSpecification {
 	my ($this,$spec) = @_;
 	
-	return ref $spec
-        ? $spec
-        : {
+	return $spec if ref($spec);
+	
+	if (looks_like_number($spec)) {
+		return {
             get => $spec & PROP_GET,
             set => $spec & PROP_SET,
             isList => $spec & PROP_LIST,
             ownerSet => (($spec & PROP_OWNERSET) == PROP_OWNERSET),
             direct => $spec & PROP_DIRECT
-        };	    
+        };
+	} else {
+		return {};
+	}	    
 }
 
 sub CreateFactoryId {
diff -r 2f16f13b000c -r 0d63f5273307 Lib/IMPL/Web/View/Metadata/FormMeta.pm
--- a/Lib/IMPL/Web/View/Metadata/FormMeta.pm	Thu Jan 23 17:26:34 2014 +0400
+++ b/Lib/IMPL/Web/View/Metadata/FormMeta.pm	Tue Feb 11 01:05:55 2014 +0400
@@ -214,8 +214,8 @@
 		die ArgException->new(model => "A node is required")
 			unless is($model,DOMNode);
 		
-		$args->{decl} ||= $model->schemaSource;
-		$args->{schema} ||= $model->schema; 
+		$args->{decl} ||= $model->schemaNode;
+		$args->{schema} ||= $model->schemaType; 
 	}
 	
 	return $self->new(