Changeset 1085
- Timestamp:
- 07/28/12 10:22:30 (12 years ago)
- Location:
- trunk/LATMOS-Accounts/lib/LATMOS/Accounts
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Maintenance.pm
r1023 r1085 18 18 my ($self) = @_; 19 19 return $self->{_maintenance_base} if ($self->{_maintenance_base}); 20 my $base = $self->SUPER:: default_base;20 my $base = $self->SUPER::base; 21 21 $base->type eq 'sql' or die "This module work only with SQL base type\n"; 22 22 return $self->{_maintenance_base} = $base -
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Task/Automatedrequest.pm
r1023 r1085 19 19 my ($self) = @_; 20 20 my $LA = LATMOS::Accounts->new($self->{config}, noacl => 1); 21 my $labase = $self->{base} ? $LA->base($self->{base}) : $LA-> default_base;21 my $labase = $self->{base} ? $LA->base($self->{base}) : $LA->base; 22 22 $labase && $labase->load or die "Cannot load base"; 23 23 -
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Task/Buildlistes.pm
r1023 r1085 24 24 my ($self) = @_; 25 25 my $LA = LATMOS::Accounts->new($self->{config}); 26 my $labase = $self->{base} ? $LA->base($self->{base}) : $LA-> default_base;26 my $labase = $self->{base} ? $LA->base($self->{base}) : $LA->base; 27 27 $labase && $labase->load or die "Cannot load base"; 28 28 -
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Task/Refreshexpired.pm
r1023 r1085 30 30 my ($self) = @_; 31 31 my $LA = LATMOS::Accounts->new($self->{config}); 32 my $labase = $self->{base} ? $LA->base($self->{base}) : $LA-> default_base;32 my $labase = $self->{base} ? $LA->base($self->{base}) : $LA->base; 33 33 $labase && $labase->load or die "Cannot load base"; 34 34
Note: See TracChangeset
for help on using the changeset viewer.