diff --git a/lib/Lacuna/DB/Result/Building.pm b/lib/Lacuna/DB/Result/Building.pm index 2da8d2d5..f6624eea 100755 --- a/lib/Lacuna/DB/Result/Building.pm +++ b/lib/Lacuna/DB/Result/Building.pm @@ -825,6 +825,13 @@ sub start_upgrade { upgrade_started => DateTime->now, upgrade_ends => $time_to_build, }); + + my $schedule = Lacuna->db->resultset('Schedule')->create({ + delivery => $time_to_build, + parent_table => 'Building', + parent_id => $self->id, + task => 'finish_upgrade', + }); } sub finish_upgrade { @@ -846,6 +853,7 @@ sub finish_upgrade { my %levels = (5=>'a quiet',10=>'an extravagant',15=>'a lavish',20=>'a magnificent',25=>'a historic',30=>'a magical'); $self->body->add_news($self->level*4,"In %s ceremony, %s unveiled its newly augmented %s.", $levels{$self->level}, $empire->name, $self->name); } + }