Changeset 1085

Timestamp:

07/28/12 10:22:30 (12 years ago)

Author:

nanardon

Message:

• kill call to default_base

Location:

trunk/LATMOS-Accounts/lib/LATMOS/Accounts

Files:

• Maintenance.pm (modified) (1 diff)
• Task/Automatedrequest.pm (modified) (1 diff)
• Task/Buildlistes.pm (modified) (1 diff)
• Task/Refreshexpired.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Maintenance.pm

@@ -18 +18 @@
     my ($self) = @_;
     return $self->{_maintenance_base} if ($self->{_maintenance_base});
-    my $base = $self->SUPER::default_base;
+    my $base = $self->SUPER::base;
     $base->type eq 'sql' or die "This module work only with SQL base type\n";
     return $self->{_maintenance_base} = $base

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Task/Automatedrequest.pm

@@ -19 +19 @@
     my ($self) = @_;
     my $LA = LATMOS::Accounts->new($self->{config}, noacl => 1);
-    my $labase = $self->{base} ? $LA->base($self->{base}) : $LA->default_base;
+    my $labase = $self->{base} ? $LA->base($self->{base}) : $LA->base;
     $labase && $labase->load or die "Cannot load base";
 

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Task/Buildlistes.pm

@@ -24 +24 @@
     my ($self) = @_;
     my $LA = LATMOS::Accounts->new($self->{config});
-    my $labase = $self->{base} ? $LA->base($self->{base}) : $LA->default_base;
+    my $labase = $self->{base} ? $LA->base($self->{base}) : $LA->base;
     $labase && $labase->load or die "Cannot load base";
 

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Task/Refreshexpired.pm

@@ -30 +30 @@
     my ($self) = @_;
     my $LA = LATMOS::Accounts->new($self->{config});
-    my $labase = $self->{base} ? $LA->base($self->{base}) : $LA->default_base;
+    my $labase = $self->{base} ? $LA->base($self->{base}) : $LA->base;
     $labase && $labase->load or die "Cannot load base";