aboutsummaryrefslogtreecommitdiffstats
path: root/perllib/FixMyStreet/SendReport
diff options
context:
space:
mode:
authorMatthew Somerville <matthew-github@dracos.co.uk>2017-07-06 08:05:54 +0100
committerMatthew Somerville <matthew-github@dracos.co.uk>2017-07-06 10:33:57 +0100
commit01b426f5ec48bc8b9cd90c85bd3e8782aec03767 (patch)
tree19f1a20fa075993cc358b31486a164b04ec80560 /perllib/FixMyStreet/SendReport
parentf89681f9b900f0b20a099cb15ff8a01f1798d508 (diff)
Stop using mySociety::Web and mySociety::Sundries.
Both uses can be covered by existing modules. This means we can drop FCGI also.
Diffstat (limited to 'perllib/FixMyStreet/SendReport')
-rw-r--r--perllib/FixMyStreet/SendReport/Angus.pm1
-rw-r--r--perllib/FixMyStreet/SendReport/EastHants.pm6
2 files changed, 3 insertions, 4 deletions
diff --git a/perllib/FixMyStreet/SendReport/Angus.pm b/perllib/FixMyStreet/SendReport/Angus.pm
index cab5de173..b552fbd9d 100644
--- a/perllib/FixMyStreet/SendReport/Angus.pm
+++ b/perllib/FixMyStreet/SendReport/Angus.pm
@@ -7,7 +7,6 @@ BEGIN { extends 'FixMyStreet::SendReport'; }
use Try::Tiny;
use Encode;
use XML::Simple;
-use mySociety::Web qw(ent);
sub get_auth_token {
my ($self, $authxml) = @_;
diff --git a/perllib/FixMyStreet/SendReport/EastHants.pm b/perllib/FixMyStreet/SendReport/EastHants.pm
index 55ec79613..b24123f94 100644
--- a/perllib/FixMyStreet/SendReport/EastHants.pm
+++ b/perllib/FixMyStreet/SendReport/EastHants.pm
@@ -6,7 +6,7 @@ BEGIN { extends 'FixMyStreet::SendReport'; }
use Try::Tiny;
use Encode;
-use mySociety::Web qw(ent);
+use HTML::Entities;
sub construct_message {
my %h = @_;
@@ -43,8 +43,8 @@ sub send {
$eh_service ||= Integrations::EastHantsWSDL->on_fault(sub { my($soap, $res) = @_; die ref $res ? $res->faultstring : $soap->transport->status, "\n"; });
try {
# ServiceName, RemoteCreatedBy, Salutation, FirstName, Name, Email, Telephone, HouseNoName, Street, Town, County, Country, Postcode, Comments, FurtherInfo, ImageURL
- my $message = ent(encode_utf8($h->{message}));
- my $name = ent(encode_utf8($h->{name}));
+ my $message = encode_entities(encode_utf8($h->{message}));
+ my $name = encode_entities(encode_utf8($h->{name}));
my $result = $eh_service->INPUTFEEDBACK(
$h->{category}, 'FixMyStreet', '', '', $name, $h->{email}, $h->{phone},
'', '', '', '', '', '', $message, 'Yes', $h->{image_url}