diff options
author | Struan Donald <struan@exo.org.uk> | 2012-07-30 13:11:35 +0100 |
---|---|---|
committer | Struan Donald <struan@exo.org.uk> | 2012-08-09 09:58:36 +0100 |
commit | f7c175d06dde929855ababb3e82d3f607b86133d (patch) | |
tree | 2b34b5ef5edc0ee313298128ffd2d26920fe5cd6 /perllib/FixMyStreet/SendReport/Open311.pm | |
parent | ee5aa052f4b8b1baf36d4237ecccd2e774b37c10 (diff) |
Add option to allow service to be sent as deviceid over open311
turn this on for Bromley
Diffstat (limited to 'perllib/FixMyStreet/SendReport/Open311.pm')
-rw-r--r-- | perllib/FixMyStreet/SendReport/Open311.pm | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/perllib/FixMyStreet/SendReport/Open311.pm b/perllib/FixMyStreet/SendReport/Open311.pm index 6584bf8e2..42c103b82 100644 --- a/perllib/FixMyStreet/SendReport/Open311.pm +++ b/perllib/FixMyStreet/SendReport/Open311.pm @@ -32,6 +32,7 @@ sub send { my $always_send_latlong = 1; my $send_notpinpointed = 0; + my $use_service_as_deviceid = 0; my $basic_desc = 0; @@ -54,6 +55,7 @@ sub send { $always_send_latlong = 0; $send_notpinpointed = 1; + $use_service_as_deviceid = 0; # make sure we have last_name attribute present in row's extra, so # it is passed correctly to Bromley as attribute[] @@ -73,12 +75,13 @@ sub send { } ); my $open311 = Open311->new( - jurisdiction => $conf->jurisdiction, - endpoint => $conf->endpoint, - api_key => $conf->api_key, - always_send_latlong => $always_send_latlong, - send_notpinpointed => $send_notpinpointed, - basic_description => $basic_desc, + jurisdiction => $conf->jurisdiction, + endpoint => $conf->endpoint, + api_key => $conf->api_key, + always_send_latlong => $always_send_latlong, + send_notpinpointed => $send_notpinpointed, + use_service_as_deviceid => $use_service_as_deviceid, + basic_description => $basic_desc, ); # non standard west berks end points |