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
