Changeset 34 for LATMOS-Accounts
- Timestamp:
- 04/23/09 03:11:06 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LATMOS-Accounts/lib/LATMOS/Accounts.pm
r24 r34 30 30 sub default_base { 31 31 my ($self) = @_; 32 my $default = $self->d afault_base_name or return;32 my $default = $self->default_base_name or return; 33 33 $self->base($default); 34 34 } … … 46 46 my ($self, $section) = @_; 47 47 my $type = $self->val($section, 'type') or return; 48 my %params = map { $_ => ($self->val($section, $_) || undef) } $self->Parameters($section); 49 return LATMOS::Accounts::Bases->new($type, %params); 48 my %params = map { $_ => ($self->val($section, $_)) } $self->Parameters($section); 49 my $base = LATMOS::Accounts::Bases->new($type, %params); 50 $base->load or return; 51 $base; 50 52 } 51 53
Note: See TracChangeset
for help on using the changeset viewer.