Changeset 2505

Timestamp:

01/08/22 09:16:59 (2 years ago)

Author:

nanardon

Message:

Allow to create sub object when editing

File:

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

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

@@ -464 +464 @@
     my ($self, %cdata) = @_;
     my %data;
+    my $sub;
     my $res = 0;
     foreach my $cfield (keys %cdata) {
+
+        if (my ($sotype, $key, $scfield) = $cfield =~ /^(\w+)(?:\[(\w+)\])?\.(.*)/) {
+            $key ||= '_';
+            $sub->{$sotype}{$key}{$scfield} = $cdata{$cfield};
+            next;
+        }
+
         my $attribute = $self->attribute($cfield) or do {
             $self->base->log(LA_ERR,
@@ -514 +522 @@
     }
 
+    my $subupdate = 0;
+    if ($sub) {
+
+        # Security: if caller is create_c_object calling it to check permission ?
+        # See below
+        # my ($caller) = caller();
+        # my $subcreate = $caller eq 'create_c_object' ? 'create_c_object' : __SUB__;
+
+        # Trying to create subobject
+        foreach my $sotype (keys %$sub) {
+            my $SubKeyRef = $self->base->GetSubObjectKey($self->otype, $sotype) or do {
+                $self->base->log(LA_ERR, "Cannot create object type $sotype, subtype of " . $self->otype . " not defined");
+                return;
+            };
+            foreach my $skey (keys %{ $sub->{$sotype} || {} }) {
+                # TODO Check if object exists !
+                # Building id
+                my $info = $sub->{$sotype}{$skey} || {};
+                # For id: if key is given using it, otherwise using random
+                my $sid =
+                    $info->{$SubKeyRef} ||
+                    $self->id . '-' . join('', map { ('a' .. 'z')[rand(26)] } (0 .. 6));
+                $info->{$SubKeyRef} = $self->id;
+
+                # Here we don't check permission to create sub object:
+                $self->base->_create_c_object($sotype, $sid, %{ $info || {} }) or return;
+                $subupdate++;
+            }
+        }
+    }
+
+
     if (keys %updated) {
         $self->PostSetAttribute() or do {
@@ -530 +570 @@
         }
     }
-    return scalar(keys %updated);
+    return(scalar(keys %updated) + $subupdate);
 }