On 14/1/06 8:00, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote: > my $schema = shift; > my $attr = shift; > my $matchtype = shift; > > my $attrtype = $schema->attribute( $attr ); > if (exists $attrtype->{$matchtype}){ > return $attrtype->{$matchtype} ; > } > elsif (exists $attrtype->{'sup'}){ > # the assumption is that all superiors result in the same ruleset > return matchingruleforattribute( $schema, $attrtype->{'sup'}[0], > $matchtype); > } > return undef; > }
Cheers, Chris