Mercurial > pub > Impl
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 |
