From d9e5293537b3a72e8040fc6f93aa32b75d43826b Mon Sep 17 00:00:00 2001
From: JT Smith <jt@lacunaexpanse.com>
Date: Fri, 14 Jan 2011 18:16:58 -0600
Subject: [PATCH]  - Can no longer downgrade your capitol if you still have a
 stockpile.

---
 lib/Lacuna/DB/Result/Building/Capitol.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/lib/Lacuna/DB/Result/Building/Capitol.pm b/lib/Lacuna/DB/Result/Building/Capitol.pm
index 3d98bb41..4a4ada4f 100644
--- a/lib/Lacuna/DB/Result/Building/Capitol.pm
+++ b/lib/Lacuna/DB/Result/Building/Capitol.pm
@@ -52,6 +52,14 @@ before 'can_demolish' => sub {
     }
 };
 
+before 'can_downgrade' => sub {
+    my $self = shift;
+    my $stockpile = $self->body->get_building_of_class('Lacuna::DB::Result::Building::Stockpile');
+    if (defined $stockpile) {
+        confess [1013, 'You have to demolish your Stockpile before you can downgrade your Capitol.'];
+    }
+};
+
 before can_build => sub {
     my $self = shift;
     my @ids = $self->body->empire->planets->get_column('id')->all;
-- 
2.51.2