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

Timestamp:

03/03/09 19:51:40 (15 years ago)

Author:

nanardon

Message:

• add create object to UNIX base

File:

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

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

@@ -91 +91 @@
 }
 
+=head2 create_object($type, $id, %data)
+
+Create and return an object of type $type with unique id
+$id having %data.
+
+This method should be provided by the data base handler.
+
+=cut
+
+sub create_object {
+    my ($self, $otype, $id, %data) = @_;
+    return;
+}
+
+=head2 create_c_object($type, $id, %data)
+
+Create and return an object of type $type with unique id
+$id having %data using canonical fields
+
+=cut
+
+sub create_c_object {
+    my ($self, $otype, $id, %cdata) = @_;
+
+    my %data;
+    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 ?
+    $self->create_object($otype, $id, %data);
+}
+
 =head2 load