From a6c06a2d2fcb79dc4b302793db0dbe9f19ff02c0 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@lacunaexpanse.com>
Date: Mon, 27 Sep 2010 19:01:51 -0500
Subject: [PATCH] embassy news

---
 lib/Lacuna/DB/Result/Building/Embassy.pm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/lib/Lacuna/DB/Result/Building/Embassy.pm b/lib/Lacuna/DB/Result/Building/Embassy.pm
index bb91d290..d05b1af7 100644
--- a/lib/Lacuna/DB/Result/Building/Embassy.pm
+++ b/lib/Lacuna/DB/Result/Building/Embassy.pm
@@ -58,7 +58,8 @@ sub alliance {
 
 sub create_alliance {
     my ($self, $name) = @_;
-    my $empire = $self->body->empire;
+    my $body = $self->body;
+    my $empire = $body->empire;
     if ($empire->alliance_id) {
         confess [1010, 'Cannot form a new alliance, while you belong to an existing alliance.'];
     }
@@ -77,6 +78,7 @@ sub create_alliance {
     });
     $alliance->insert;
     $alliance->add_member($empire);
+    $body->add_news(50,sprintf('A pact was formed my unnamed parties today, which formed a shadowy organization known only as %s.', $alliance->name));
     return $alliance;
 }
 
@@ -181,9 +183,11 @@ sub withdraw_invite {
 sub dissolve_alliance {
     my ($self) = @_;
     my $alliance = $self->alliance;
-    if ($self->body->empire_id != $alliance->leader_id) {
+    my $body = $self->body;
+    if ($body->empire_id != $alliance->leader_id) {
         confess [1010, 'Only the alliance leader can dissolve an alliance.'];
     }
+    $body->add_news(50,sprintf('The organization known as %s dissolved today amid rumors of scandal.', $alliance->name));
     $alliance->delete;
 }
 
-- 
2.51.2