Parent Directory | Revision Log | Patch
revision 1.10 by wakaba, Sun Jan 6 14:15:36 2008 UTC | revision 1.11 by wakaba, Mon Jan 14 11:21:22 2008 UTC | |
---|---|---|
# | Line 114 sub get_cascaded_value ($$$) { | Line 114 sub get_cascaded_value ($$$) { |
114 | my $value; | my $value; |
115 | for my $sds (reverse @{$self->{element_to_sds}->{refaddr $element} or []}) { | for my $sds (reverse @{$self->{element_to_sds}->{refaddr $element} or []}) { |
116 | my $vp = ${$sds->[0]}->{$key}; | my $vp = ${$sds->[0]}->{$key}; |
117 | if (defined $vp->[1] and $vp->[1] eq 'important') { | if ($vp->[1] eq 'important') { |
118 | return $vp->[0]; | return $vp->[0]; |
119 | } else { | } else { |
120 | $value = $vp->[0] unless defined $value; | $value = $vp->[0] unless defined $value; |
|
admin@suikawiki.org | ViewVC Help |
Powered by ViewVC 1.1.24 |