diff --git a/lib/Lacuna/DB/Result/Building/LCOTa.pm b/lib/Lacuna/DB/Result/Building/LCOTa.pm index 9eb779c3..a336a19e 100644 --- a/lib/Lacuna/DB/Result/Building/LCOTa.pm +++ b/lib/Lacuna/DB/Result/Building/LCOTa.pm @@ -61,17 +61,17 @@ sub production_hour { sub stats_after_upgrade { my ($self) = @_; - my $current_level = $self->level; unless ($self->has_effective_level) { $self->calculate_effective_stats; } - $self->level($self->effective_level + 2); + my $current_level = $self->effective_level; + $self->effective_level($current_level + 1); my %stats; my @list = qw(food_hour food_capacity ore_hour ore_capacity water_hour water_capacity waste_hour waste_capacity energy_hour energy_capacity happiness_hour); foreach my $resource (@list) { $stats{$resource} = $self->$resource; } - $self->level($current_level); + $self->effective_level($current_level); return \%stats; }