From 3389df41f786ba9c6415ff9dc3df5c8d800e111e Mon Sep 17 00:00:00 2001
From: fireartist <fireartist@gmail.com>
Date: Thu, 17 May 2012 14:58:26 +0100
Subject: [PATCH] admin: new delete-building button bypasses demolish
 requirements/costs

---
 lib/Lacuna/Web/Admin.pm | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/lib/Lacuna/Web/Admin.pm b/lib/Lacuna/Web/Admin.pm
index 82eab0aa..947f19f7 100644
--- a/lib/Lacuna/Web/Admin.pm
+++ b/lib/Lacuna/Web/Admin.pm
@@ -294,7 +294,10 @@ sub www_view_buildings {
         $out .= sprintf('<td><input name="level" type="text" size="5" value="%s"></td>',$building->level);
         $out .= sprintf('<td>%s</td><td><input type="hidden" name="building_id" value="%s">',$building->is_upgrading, $building->id);
         $out .= sprintf('<input name="efficiency" type="text" size="3" value="%s">', $building->efficiency);
-        $out .= sprintf('<input type="submit" value="submit"></td></tr></form>');
+        $out .= sprintf('<input type="submit" value="submit"></td></form>');
+        $out .= sprintf('<form method="post" action="/admin/delete/building">');
+        $out .= sprintf('<input type="hidden" name="building_id" value="%s"/>', $building->id);
+        $out .= sprintf('<td><input type="submit" value="delete"/></td></form></tr>');
     }
     $out .= '</table>';
     return $self->wrap($out);
@@ -312,6 +315,18 @@ sub www_set_efficiency {
     return $self->www_view_buildings($request, $building->body_id);
 }
 
+sub www_delete_building {
+    my ($self, $request) = @_;
+    my $building = Lacuna->db->resultset('Lacuna::DB::Result::Building')->find($request->param('building_id'));
+    my $body = $building->body;
+    $building->delete;
+    $body->needs_recalc(1);
+    $body->needs_surface_refresh(1);
+    $body->update;
+    $body->tick;
+    return $self->www_view_buildings($request, $building->body_id);
+}
+
 sub www_view_ships {
     my ($self, $request, $body_id) = @_;
     $body_id ||= $request->param('body_id');
-- 
2.51.2