Addition of deleted date to person field [B: 1742] (#484)

* Addition of deleted date to person field

* Removed as_epoch

Author: droberts-ctrlo

lib/GADS/Column/Person.pm

@@ -25,9 +25,7 @@ use MooX::Types::MooseLike::Base qw/:all/;
 
 extends 'GADS::Column';
 
-with 'GADS::Role::Presentation::Column::Person';
-
-our @person_properties = qw/id email username firstname surname freetext1 freetext2 organisation department_id team_id title value/;
+our @person_properties = qw/id email username firstname surname freetext1 freetext2 organisation department_id team_id title value deleted/;
 
 has set_filter => (
     is      => 'rw',

lib/GADS/Datum/Person.pm

@@ -29,6 +29,7 @@ use namespace::clean;
 extends 'GADS::Datum';
 
 with 'GADS::Role::Presentation::Datum::Person';
+with 'GADS::DateTime';
 
 after set_value => sub {
     my ($self, $value, %options) = @_;
@@ -169,6 +170,7 @@ has value_hash => (
                     team_id       => $value->{team_id},
                     title         => $value->{title},
                     value         => $value->{value},
+                    deleted       => $value->{deleted},
                 };
             }
             elsif ($value) {
@@ -377,11 +379,11 @@ sub _build_for_code
             team         => $_->{team},
             title        => $_->{title},
             text         => $_->{value},
+            deleted      => GADS::DateTime::parse_datetime($_->{deleted})->epoch,
         }
     } @{$self->value_hash};
 
     $self->column->multivalue || @values > 1 ? \@values : $values[0];
 }
 
 1;
-