Changeset 405 for LATMOS-Accounts

Timestamp:

08/28/09 09:56:41 (15 years ago)

Author:

nanardon

Message:

• add some comment in dump

File:

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

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

@@ -399 +399 @@
     my $otype = $self->type;
     $base ||= $self->base;
+    if (ref $self) {
+        printf $handle "# base %s: object %s/%s\n",
+            $base->label, $self->type, $self->id;
+    }
+    printf $handle "# %s\n", scalar(localtime);
 
     foreach my $attr (sort { $a cmp $b } $base->list_canonical_fields($otype,