Changeset 257

Timestamp:

06/25/09 07:58:07 (15 years ago)

Author:

nanardon

Message:

• add attributes_summary: list current attributes values around all current objects

Location:

LATMOS-Accounts/lib/LATMOS/Accounts

Files:

• Bases.pm (modified) (2 diffs)
• Bases/Objects.pm (modified) (1 diff)

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

@@ -181 +181 @@
     my ($self, $otype, $id, %data) = @_;
     my $pclass = $self->_load_obj_class($otype);
-    $pclass->_create($self, $id, %data) or do {
+    if ($pclass->_create($self, $id, %data)) {
+        la_log(LA_INFO,
+            'Object %s (%s) created in base %s (%s)',
+            $id, $otype, $self->label, $self->type
+        );
+    } else {
         la_log(LA_ERR,
             'Object creation %s (%s) in base %s (%s) failed',
@@ -368 +373 @@
     my $pclass = $self->_load_obj_class($otype) or return;
     $pclass->search($self, %filter);
+}
+
+sub attributes_summary {
+    my ($self, $otype, $attr) = @_;
+    my $pclass = $self->_load_obj_class($otype) or return;
+    $pclass->attributes_summary($self, $attr);
 }
 

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

@@ -300 +300 @@
 }
 
+
+sub attributes_summary {
+    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) {
+                    $values{$_} = 1;
+                }
+            } else {
+                $values{$value} = 1;
+            }
+        }
+    }
+    return sort(keys %values);
+}
+
 sub find_next_numeric_id {
     my ($class, $base, $field, $min, $max) = @_;