Changeset 6 for LATMOS-Accounts/lib/LATMOS/Accounts/Bases.pm

Timestamp:

02/27/09 19:00:29 (15 years ago)

Author:

nanardon

Message:

• can list canonicals fields, eg fixed name to data over all data bases

File:

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

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

@@ -40 +40 @@
     if ($@) { return } # error message ?
     return "LATMOS::Accounts::Bases::$pclass"->new(%options);
+}
+
+sub _load_obj_class {
+    my ($self, $otype) = @_;
+
+    # finding perl class:
+    my $pclass = ref $self;
+    $pclass .= '::' . ucfirst(lc($otype));
+    eval "require $pclass;";
+    if ($@) { return } # error message ?
+    return $pclass;
+}
+
+=head2 list_canonicals_fields($otype)
+
+Return the list of supported fields by the database for object type $otype.
+
+=cut
+
+sub list_canonicals_fields {
+    my ($self, $otype) = @_;
+    my $pclass = $self->_load_obj_class($otype) or return;
+    $pclass->canonical_fields;
 }