comparison Lib/IMPL/DOM/Navigator/SchemaNavigator.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 d1676be8afcc
children 6d8092d8ce1b
comparison
equal deleted inserted replaced
193:8e8401c0aea4 194:4d0e1962161c
57 or 57 or
58 ( $_->nodeName eq 'SwitchNode' and $_->selectNodes( sub { $_->name eq $name } ) ) 58 ( $_->nodeName eq 'SwitchNode' and $_->selectNodes( sub { $_->name eq $name } ) )
59 ) 59 )
60 }) 60 })
61 ) { 61 ) {
62 $steps ++; 62 $steps ++;
63 if ($node->nodeName eq 'AnyNode') { 63 if ($node->nodeName eq 'AnyNode') {
64 # if we navigate to the anynode 64 # if we navigate to the anynode
65 # assume it to be ComplexType by default 65 # assume it to be ComplexType by default
66 $node = $node->type ? $this->{$Schema}->resolveType($node->type) : $schemaAnyNode; 66 $node = $node->type ? $this->{$Schema}->resolveType($node->type) : $schemaAnyNode;
67 $this->internalNavigateNodeSet($node); 67 $this->internalNavigateNodeSet($node);
96 96
97 $this->Back(pop @{$this->{$_historySteps}}) if $this->{$_historySteps}; 97 $this->Back(pop @{$this->{$_historySteps}}) if $this->{$_historySteps};
98 } 98 }
99 99
100 sub SourceSchemaNode { 100 sub SourceSchemaNode {
101 my ($this) = @_; 101 my ($this) = @_;
102 102
103 if ($this->Current->isa('IMPL::DOM::Schema::SimpleType') or 103 if ($this->Current->isa('IMPL::DOM::Schema::SimpleType') or
104 $this->Current->isa('IMPL::DOM::Schema::ComplexType') 104 $this->Current->isa('IMPL::DOM::Schema::ComplexType')
105 ) { 105 ) {
106 # we a redirected 106 # we a redirected
107 return $this->GetNodeFromHistory(-1); 107 return $this->GetNodeFromHistory(-1);
108 } else { 108 } else {
109 return $this->Current; 109 return $this->Current;
110 } 110 }
111 } 111 }
112 112
113 1; 113 1;
114 __END__ 114 __END__
115 115