From d4441e13a7f9a179d03001f6b83adf5ea53acf45 Mon Sep 17 00:00:00 2001
From: Darin McBride <dmcbride@cpan.org>
Date: Wed, 4 Feb 2015 21:04:19 -0700
Subject: [PATCH] Add admin notes on empires so that admins can mark down
 players who might be related (siblings both playing the game), for example,
 among many other possibilities.

---
 lib/Lacuna/Web/Admin.pm | 45 +++++++++++++++++++++++++++++++++++++++++
 var/upgrades/3.0909.sql | 12 +++++++++++
 2 files changed, 57 insertions(+)

diff --git a/lib/Lacuna/Web/Admin.pm b/lib/Lacuna/Web/Admin.pm
index 8303cc94..a89783c2 100644
--- a/lib/Lacuna/Web/Admin.pm
+++ b/lib/Lacuna/Web/Admin.pm
@@ -963,6 +963,16 @@ sub www_view_empire {
     $out .= sprintf('<tr><th>Isolationist</th><td>%s</td><td><a href="/admin/toggle/isolationist?id=%s">Toggle</a></td></tr>', $empire->is_isolationist, $empire->id);
     $out .= sprintf('<tr><th>Admin</th><td>%s</td></tr>', $empire->is_admin);
     $out .= sprintf('<tr><th>Mission Curator</th><td>%s</td><td><a href="/admin/toggle/mission/curator?id=%s">Toggle</a></td></tr>', $empire->is_mission_curator, $empire->id);
+
+    my $notes = Lacuna->db->resultset('Log::EmpireAdminNotes')->find({empire_id => $empire->id},{order_by => { -desc => 'id' }, limit => 1 });
+    $out .= sprintf('<tr><th>Admin Notes</th><td colspan="2"><form method="post" style="display: inline" action="/admin/set/admin/notes"><input type="hidden" name="id" value="%s"><textarea name="notes" rows="4" cols="80">%s</textarea><input type="submit"></form></td><td>Last set by: %s<br/>Last set on: %s<br/><a href="/admin/view/admin/note/log?id=%s">View Log</a></td></tr>',
+                    $empire->id,
+                    $notes ? $notes->notes : '',
+                    $notes ? $notes->creator : '<i>not set yet</i>',
+                    $notes ? $notes->date_stamp : '<i>not set yet</i>',
+                    $empire->id
+                   );
+
     $out .= '</table><ul>';
     $out .= sprintf('<li><a href="/admin/become/empire?empire_id=%s">Become This Empire In-Game</a></li>', $empire->id);
     $out .= sprintf('<li><a href="/admin/search/bodies?empire_id=%s">View All Colonies</a></li>', $empire->id);
@@ -972,6 +982,41 @@ sub www_view_empire {
     return $self->wrap($out);
 }
 
+sub www_set_admin_notes {
+    my ($self, $request) = @_;
+
+    my $id = $request->param('id');
+    my $empire = Lacuna->db->empire($id);
+    my $notes = $request->param('notes');
+
+    my $note = Lacuna->db->resultset('Log::EmpireAdminNotes')->new({
+                       empire_id   => $empire->id,
+                       empire_name => $empire->name,
+                       date_stamp  => DateTime->now,
+                       notes       => $notes,
+                       creator     => $request->user,
+                   })->insert;
+
+    return $self->www_view_empire($request);
+}
+
+sub www_view_admin_note_log {
+    my ($self, $request, $id) = @_;
+    $id ||= $request->param('id');
+    my $empire = Lacuna->db->empire($id);
+
+    my $history = Lacuna->db->resultset('Log::EmpireAdminNotes')->search({empire_id => $empire->id},{order_by => { -desc => 'date_stamp' }});
+    my $out = sprintf '<h1>"%s" Empire notes log</h1>', $empire->name;
+    $out .= sprintf('<a href="/admin/view/empire?id=%s">Back To Empire</a>', $empire->id);
+    $out .= '<table style="width:100%;"><tr><th>Date</t><th>Creator</th><th>Notes</th></tr>';
+    while (my $log = $history->next) {
+        $out .= sprintf('<tr><td>%s</td><td>%s</td><td><pre>%s</pre></td></tr>',
+                        $log->date_stamp, $log->creator, Plack::Util::encode_html($log->notes));
+    }
+    $out .= '</table>';
+    return $self->wrap($out);
+}
+
 sub www_set_alliance_logo {
     my ($self, $request, $id) = @_;
     $id ||= $request->param('id');
diff --git a/var/upgrades/3.0909.sql b/var/upgrades/3.0909.sql
index c40ced24..54992357 100644
--- a/var/upgrades/3.0909.sql
+++ b/var/upgrades/3.0909.sql
@@ -2,3 +2,15 @@ alter table ships add column number_of_docks int default 1;
 alter table ships modify hold_size bigint;
 alter table battle_log add column attacking_number int default 1;
 alter table battle_log add column defending_number int default 1;
+
+CREATE TABLE empire_admin_notes (
+  id integer(11) NOT NULL auto_increment,
+  date_stamp datetime NOT NULL,
+  empire_id integer(11) NOT NULL,
+  empire_name varchar(30) NOT NULL,
+  notes text NOT NULL,
+  creator varchar(30) NOT NULL,
+  INDEX idx_empire_id (empire_id),
+  INDEX idx_empire_name (empire_name),
+  PRIMARY KEY (id)
+);
-- 
2.51.2