changeset 386:4bdf155e5bfe

Слияние
author cin
date Tue, 11 Feb 2014 01:06:40 +0400
parents 0d63f5273307 (diff) 4edd36025051 (current diff)
children 4cc6cc370fb2
files
diffstat 2 files changed, 10 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/Lib/IMPL/Code/BasePropertyImplementor.pm	Mon Feb 10 17:41:34 2014 +0400
+++ b/Lib/IMPL/Code/BasePropertyImplementor.pm	Tue Feb 11 01:06:40 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 {
--- a/Lib/IMPL/Web/View/Metadata/FormMeta.pm	Mon Feb 10 17:41:34 2014 +0400
+++ b/Lib/IMPL/Web/View/Metadata/FormMeta.pm	Tue Feb 11 01:06:40 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(