Commit 1b1b05b5 authored by Leigh B Stoller's avatar Leigh B Stoller

Minor change.

parent d3865f6c
......@@ -387,9 +387,12 @@ sub group($) { return field($_[0], "group"); }
sub type($) { return field($_[0], "type"); }
sub id($) { return field($_[0], "id"); }
sub IsAuthority() { return $_[0]->type() =~ /^authority$/i ? 1 : 0; }
sub IsSA($) { return $_[0]->id() =~ /^SA$/i ? 1 : 0; }
sub IsCM($) { return $_[0]->id() =~ /^CM$/i ? 1 : 0; }
sub IsRoot($) { return $_[0]->id() =~ /^root$/i ? 1 : 0; }
sub IsSA($) { return ($_[0]->IsAuthority() &&
$_[0]->id() =~ /^SA$/i ? 1 : 0); }
sub IsCM($) { return ($_[0]->IsAuthority() &&
$_[0]->id() =~ /^CM$/i ? 1 : 0); }
sub IsRoot($) { return ($_[0]->IsAuthority() &&
$_[0]->id() =~ /^root$/i ? 1 : 0); }
#
# Stringify for text context.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment