Use commas in (potentially) big numbers for spy results.

plainblack · Jan 11, 2014 · def1f85 · def1f85
1 parent 850fb88
commit def1f85
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/lib/Lacuna/DB/Result/Spies.pm b/lib/Lacuna/DB/Result/Spies.pm
@@ -6,7 +6,7 @@ use utf8;
 no warnings qw(uninitialized);
 extends 'Lacuna::DB::Result';
 use List::Util qw(shuffle);
-use Lacuna::Util qw(format_date randint random_element);
+use Lacuna::Util qw(format_date randint random_element commify);
 use DateTime;
 use Scalar::Util qw(weaken);
 
@@ -1236,8 +1236,8 @@ sub sow_discontent {
         tags        => ['Spies','Alert'],
         filename    => 'created_disturbance.txt',
         params      => [$self->on_body->name,
-                        $amount,
+                        commify($amount),
-                        $self->on_body->happiness,
+                        commify($self->on_body->happiness),
                         $self->format_from],
     );
 }
@@ -1325,8 +1325,8 @@ sub hack_successful {
         tags        => ['Spies','Alert'],
         filename    => 'hack_successful.txt',
         params      => [$self->on_body->name,
-                        $amount,
+                        commify($amount),
-                        $self->on_body->happiness,
+                        commify($self->on_body->happiness),
                         $self->format_from],
     );
 }
@@ -1887,8 +1887,8 @@ sub uprising {
                         $self->on_body->x,
                         $self->on_body->y,
                         $self->on_body->name,
-                        $loss,
+                        commify($loss),
-                        $self->on_body->happiness,
+                        commify($self->on_body->happiness),
                         $self->format_from],
     );
     $self->on_body->empire->send_predefined_message(