diff Lib/IMPL/DOM/Schema/ComplexType.pm @ 194:4d0e1962161c

Replaced tabs with spaces IMPL::Web::View - fixed document model, new features (control classes, document constructor parameters)
author cin
date Tue, 10 Apr 2012 20:08:29 +0400
parents 76515373dac0
children 2904da230022
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Schema/ComplexType.pm	Tue Apr 10 08:13:22 2012 +0400
+++ b/Lib/IMPL/DOM/Schema/ComplexType.pm	Tue Apr 10 20:08:29 2012 +0400
@@ -32,21 +32,21 @@
 }
 
 sub Validate {
-	my ($this, $node,$ctx) = @_;
-	
-	if ($this->{$nativeType}) {
-		return new IMPL::DOM::Schema::ValidationError(
-			Node => $node,
-			Source => $ctx->{Source} || $this,
-			Schema => $this,
-			Message => $this->messageWrongType
-		) unless $node->isa($this->{$nativeType});
-	}
-	return $this->SUPER::Validate($node,$ctx);
+    my ($this, $node,$ctx) = @_;
+    
+    if ($this->{$nativeType}) {
+        return new IMPL::DOM::Schema::ValidationError(
+            Node => $node,
+            Source => $ctx->{Source} || $this,
+            Schema => $this,
+            Message => $this->messageWrongType
+        ) unless $node->isa($this->{$nativeType});
+    }
+    return $this->SUPER::Validate($node,$ctx);
 }
 
 sub qname {
-	$_[0]->nodeName.'[type='.$_[0]->type.']';
+    $_[0]->nodeName.'[type='.$_[0]->type.']';
 }