Changeset 1453 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm

Timestamp:

11/02/15 11:33:11 (9 years ago)

Author:

nanardon

Message:

Add the ability to aggregate data in stat

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm

@@ -630 +630 @@
 }
 
+=head2 attributes_summary_by_object ($base, $attribute)
+
+Return list of peer object <=> values
+
+=cut
+
+sub attributes_summary_by_object {
+    my ($class, $base, $attribute) = @_;
+    my %values;
+    foreach my $id ($base->list_objects($class->type)) {
+        my $obj = $base->get_object($class->type, $id);
+        my $value = $obj->_get_c_field($attribute);
+        if ($value) {
+            if (ref $value) {
+                foreach (@$value) {
+                    push(@{ $values{ $id } }, $_);
+                }
+            } else {
+                push(@{ $values{ $id } }, $value);
+            }
+        }
+    }
+    return %values;
+}
+
 =head2 find_next_numeric_id ($base, $field, $min, $max)