diff --git a/lib/Lacuna/DB/Result/Building/Trade.pm b/lib/Lacuna/DB/Result/Building/Trade.pm index 9d7a7599..47b82907 100644 --- a/lib/Lacuna/DB/Result/Building/Trade.pm +++ b/lib/Lacuna/DB/Result/Building/Trade.pm @@ -209,7 +209,7 @@ sub remove_waste_chain { sub remove_supply_chain { my ($self, $supply_chain) = @_; - if ($self->supply_chain->count == 1) { + if ($self->supply_chains->count == 1) { my $ships = $self->supply_ships; while (my $ship = $ships->next) { $self->sent_supply_ship_home($supply_chain->target, $ship); diff --git a/lib/Lacuna/RPC/Building/Trade.pm b/lib/Lacuna/RPC/Building/Trade.pm index de38cd32..efc59d8a 100644 --- a/lib/Lacuna/RPC/Building/Trade.pm +++ b/lib/Lacuna/RPC/Building/Trade.pm @@ -256,7 +256,7 @@ sub delete_supply_chain { my $chain = Lacuna->db->resultset('Lacuna::DB::Result::SupplyChain')->find($supply_chain_id); if ($chain) { - $chain->delete; + $chain->remove_supply_chain; } return $self->view_supply_chains($session_id, $building_id); }