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


Reply via email to