Changeset 137 for LATMOS-Accounts/lib/LATMOS/Accounts.pm

Timestamp:

05/19/09 01:05:41 (15 years ago)

Author:

nanardon

Message:

• manage default value

File:

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

LATMOS-Accounts/lib/LATMOS/Accounts.pm

@@ -49 +49 @@
     my ($self, $section) = @_;
     my $type = $self->val($section, 'type') or return;
-    my %params = map { $_ => ($self->val($section, $_)) } $self->Parameters($section);
+    my %params = (
+        map { $_ => ($self->val($section, $_)) } $self->Parameters($section),
+        defattr => { map { $_ => ($self->val('_defattr_', $_)) } $self->Parameters('_defattr_') },
+    );
     my $base = LATMOS::Accounts::Bases->new($type, %params, label => $section);
     $base->load or return;