Changeset 23 for LATMOS-Accounts

Timestamp:

04/10/09 18:48:24 (15 years ago)

Author:

nanardon

Message:

• more method into core object

File:

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

LATMOS-Accounts/lib/LATMOS/Accounts.pm

@@ -26 +26 @@
 }
 
-# load or reload a base
+# load or a if need base
 sub load_base {
     my ($self, $section) = @_;
-    return ($self->{_bases}{$section} = $self->_load_base($section))
+    return ($self->{_bases}{$section} ||= $self->_load_base($section))
         ? 1
         : 0;
@@ -40 +40 @@
     my %params = map { $_ => ($self->val($section, $_) || undef) } $self->Parameters($section);
     return LATMOS::Accounts::Bases->new($type, %params);
+}
+
+sub list_bases {
+    my ($self) = @_;
+    grep {
+        $self->val($_, 'type') !~ /^(synchro)$/
+    } $self->Sections
+}
+
+sub load_all_base {
+    my ($self) = @_;
+    foreach ($self->list_bases) {
+        $self->load_base($_) or do {
+            warn "Cannot load base $_\n";
+            return 0;
+        };
+    }
+    1;
 }