From 45e5a98f55d5637a6ed7e31248b4596d555336d0 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@lacunaexpanse.com>
Date: Tue, 9 Nov 2010 15:41:58 -0600
Subject: [PATCH] gotta get rid of the ship once it arrives

---
 lib/Lacuna/DB/Result/Ships/GasGiantSettlementPlatformShip.pm | 1 +
 lib/Lacuna/DB/Result/Ships/TerraformingPlatformShip.pm       | 1 +
 2 files changed, 2 insertions(+)

diff --git a/lib/Lacuna/DB/Result/Ships/GasGiantSettlementPlatformShip.pm b/lib/Lacuna/DB/Result/Ships/GasGiantSettlementPlatformShip.pm
index fb3809f0..cce4c0c4 100644
--- a/lib/Lacuna/DB/Result/Ships/GasGiantSettlementPlatformShip.pm
+++ b/lib/Lacuna/DB/Result/Ships/GasGiantSettlementPlatformShip.pm
@@ -29,6 +29,7 @@ sub arrive {
     if ($self->direction eq 'out') {
         my $lab = $self->body->get_building_of_class('Lacuna::DB::Result::Building::GasGiantLab');
         $self->foreign_body->add_plan('Lacuna::DB::Result::Building::Permanent::GasGiantPlatform', 1, (defined $lab) ? $lab->level : 0);
+        $self->delete;
     }
     else {
         $self->land;
diff --git a/lib/Lacuna/DB/Result/Ships/TerraformingPlatformShip.pm b/lib/Lacuna/DB/Result/Ships/TerraformingPlatformShip.pm
index 6c050eec..85cac2f7 100644
--- a/lib/Lacuna/DB/Result/Ships/TerraformingPlatformShip.pm
+++ b/lib/Lacuna/DB/Result/Ships/TerraformingPlatformShip.pm
@@ -27,6 +27,7 @@ sub arrive {
     if ($self->direction eq 'out') {
         my $lab = $self->body->get_building_of_class('Lacuna::DB::Result::Building::TerraformingLab');
         $self->foreign_body->add_plan('Lacuna::DB::Result::Building::Permanent::TerraformingPlatform', 1, (defined $lab) ? $lab->level : 0);
+        $self->delete;
     }
     else {
         $self->land;
-- 
2.51.2