diff options
| author | Hakim Cassimally <hakim@mysociety.org> | 2014-07-15 14:15:46 +0000 |
|---|---|---|
| committer | Hakim Cassimally <hakim@mysociety.org> | 2014-10-16 16:56:27 +0000 |
| commit | 56eab366fc60fe83024abb6819c146bc9bd47adc (patch) | |
| tree | a12aa26e01855c297ebcaf6232319f3e41b1e669 /perllib/Open311/Endpoint/Role | |
| parent | f47e9d48a2d26e92723ae96d3d65a1ba005f426f (diff) | |
Open311 Warwick (Exor) Integration
::Integration::Warwick subclasses ::Integration::Exor
refactor request_class and new_request
Exor service
Warwickshire updates retrieval, with datetimes
stubbing out of Oracle constants, for local testing
We also edit FMS's core PopulateServiceList routine to hide system
fields from FMS:
Bromley/Warwickshire send metadata in their services/FOO.xml
advising that you can pass, e.g. attributes[easting].
FMS by default shows all of these to the user to fill in, however
we don't *want* the user to supply these, rather they are added
by the cobrand.
Bromley had an exception for this (keyed by $body->areas->id).
We write this more generally for Warwickshire too, keying instead
by $body->name (as this is far less likely to be overridden for
installs using global or custom Mapit's)
Diffstat (limited to 'perllib/Open311/Endpoint/Role')
| -rw-r--r-- | perllib/Open311/Endpoint/Role/mySociety.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/perllib/Open311/Endpoint/Role/mySociety.pm b/perllib/Open311/Endpoint/Role/mySociety.pm index 42afe73bb..3669c585b 100644 --- a/perllib/Open311/Endpoint/Role/mySociety.pm +++ b/perllib/Open311/Endpoint/Role/mySociety.pm @@ -35,6 +35,12 @@ L<Open311::Endpoint::Service::Request::mySociety> objects. use Moo::Role; no warnings 'illegalproto'; +use Open311::Endpoint::Service::Request::mySociety; +has '+request_class' => ( + is => 'ro', + default => 'Open311::Endpoint::Service::Request::mySociety', +); + around dispatch_request => sub { my ($orig, $self, @args) = @_; my @dispatch = $self->$orig(@args); @@ -115,7 +121,7 @@ sub format_updates { ), ( map { - $_ => $self->w3_dt->format_datetime( $update->$_ ), + $_ => $self->w3_dt->format_datetime( $update->$_ ), } qw/ updated_datetime |