Changeset 1299 for branches/4.0/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Attributes.pm

Timestamp:

03/23/15 14:30:59 (9 years ago)

Author:

nanardon

Message:

backport fix

Location:

branches/4.0

Files:

• . (modified) (1 prop)
• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Attributes.pm (modified) (1 diff)

branches/4.0/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Attributes.pm

@@ -397 +397 @@
 }
 
+=head2 monitored
+
+Return true if the attribute is monitored
+
+=cut
+
+sub monitored {
+    my ($self) = @_;
+
+    if ($self->iname ne $self->name) {
+        my $attr = $self->base->attribute($self->otype, $self->iname) or return;
+        return $attr->monitored;
+    } else {
+        return $self->{monitored} || 0;
+    }
+}
+
 1;