diff options
Diffstat (limited to 'perllib')
| -rw-r--r-- | perllib/FixMyStreet/SendReport/Open311.pm | 3 | ||||
| -rw-r--r-- | perllib/Open311.pm | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/perllib/FixMyStreet/SendReport/Open311.pm b/perllib/FixMyStreet/SendReport/Open311.pm index 5cde6faed..6fe2b7845 100644 --- a/perllib/FixMyStreet/SendReport/Open311.pm +++ b/perllib/FixMyStreet/SendReport/Open311.pm @@ -7,6 +7,7 @@ BEGIN { extends 'FixMyStreet::SendReport'; } use FixMyStreet::App; use mySociety::Config; +use DateTime::Format::W3CDTF; use Open311; sub should_skip { @@ -40,7 +41,7 @@ sub send { push @$extra, { name => 'report_title', value => $row->title }; push @$extra, { name => 'public_anonymity_required', value => $row->anonymous ? 'TRUE' : 'FALSE' }; push @$extra, { name => 'email_alerts_requested', value => 'FALSE' }; # always false as can never request them - push @$extra, { name => 'requested_datetime', value => $row->confirmed }; + push @$extra, { name => 'requested_datetime', value => DateTime::Format::W3CDTF->format_datetime($row->confirmed_local) }; push @$extra, { name => 'email', value => $row->user->email }; $row->extra( $extra ); } diff --git a/perllib/Open311.pm b/perllib/Open311.pm index 48143ebd4..07f4ab369 100644 --- a/perllib/Open311.pm +++ b/perllib/Open311.pm @@ -5,6 +5,7 @@ use Moose; use XML::Simple; use LWP::Simple; use LWP::UserAgent; +use DateTime::Format::W3CDTF; use HTTP::Request::Common qw(POST); has jurisdiction => ( is => 'ro', isa => 'Str' );; @@ -231,7 +232,7 @@ sub _populate_service_request_update_params { my $params = { update_id_ext => $comment->id, - updated_datetime => $comment->confirmed, + updated_datetime => DateTime::Format::W3CDTF->format_datetime($comment->confirmed_local), service_request_id => $comment->problem->external_id, service_request_id_ext => $comment->problem->id, status => $comment->problem->is_open ? 'OPEN' : 'CLOSED', |