diff options
| -rw-r--r-- | perllib/FixMyStreet/SendReport/Open311.pm | 3 | ||||
| -rw-r--r-- | perllib/Open311.pm | 3 | ||||
| -rw-r--r-- | t/open311.t | 3 |
3 files changed, 6 insertions, 3 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', diff --git a/t/open311.t b/t/open311.t index e84b5f04b..a507241a7 100644 --- a/t/open311.t +++ b/t/open311.t @@ -8,6 +8,7 @@ use FixMyStreet::App; use CGI::Simple; use HTTP::Response; use DateTime; +use DateTime::Format::W3CDTF; use FindBin; use lib "$FindBin::Bin/../perllib"; @@ -186,7 +187,7 @@ subtest 'basic request update post parameters' => sub { is $c->param('service_request_id_ext'), 80, 'external request id correct'; is $c->param('service_request_id'), 81, 'request id correct'; is $c->param('public_anonymity_required'), 'FALSE', 'anon status correct'; - is $c->param('updated_datetime'), $dt, 'correct date'; + is $c->param('updated_datetime'), DateTime::Format::W3CDTF->format_datetime($dt), 'correct date'; is $c->param('title'), 'Mr', 'correct title'; is $c->param('last_name'), 'User', 'correct first name'; is $c->param('first_name'), 'Test', 'correct second name'; |