diff --git a/lib/GADS/Column/Person.pm b/lib/GADS/Column/Person.pm index 1a7b710cf..7075f8c31 100644 --- a/lib/GADS/Column/Person.pm +++ b/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', diff --git a/lib/GADS/Datum/Person.pm b/lib/GADS/Datum/Person.pm index 13c3c6857..04e15235c 100644 --- a/lib/GADS/Datum/Person.pm +++ b/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,6 +379,7 @@ sub _build_for_code team => $_->{team}, title => $_->{title}, text => $_->{value}, + deleted => GADS::DateTime::parse_datetime($_->{deleted})->epoch, } } @{$self->value_hash}; @@ -384,4 +387,3 @@ sub _build_for_code } 1; -