Changeset 11 for LATMOS-Accounts

Timestamp:

02/28/09 09:08:48 (15 years ago)

Author:

nanardon

Message:

• add get_field functions

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm (modified) (2 diffs)

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

@@ -77 +77 @@
 }
 
+=head2 get_field($field)
+
+Return the value for $field, must be provide by data base.
+
+=cut
+
+sub get_field { return }
+
+=head2 get_c_fields($cfield)
+
+Return the value for canonical field $cfield
+
+=cut
+
+sub get_c_field {
+    my ($self, $cfield) = @_;
+    my $field = $self->base->get_field_name($self->type, $cfield) or return;
+    $self->get_field($field);
+}
+
 =head2 set_fields(%data)
 
@@ -97 +117 @@
     my ($self, %cdata) = @_;
     my %data;
-    foreach my $field (keys %cdata) {
-        my $cfield = $self->base->get_field_name($self->type, $field) or next;
-        $data{$cfield} = $cdata{$field};
+    foreach my $cfield (keys %cdata) {
+        my $field = $self->base->get_field_name($self->type, $cfield) or next;
+        $data{$field} = $cdata{$cfield};
     }
     keys %data or return 1; # TODO: return an error ?