diff options
| author | Dave Arter <davea@mysociety.org> | 2015-12-17 17:07:58 +0000 |
|---|---|---|
| committer | Dave Arter <davea@mysociety.org> | 2016-03-29 17:49:37 +0100 |
| commit | 58a000d3095f0d3d327365af0f6d7bb4178bb5bb (patch) | |
| tree | fca4112eb6f9a79031de4473ea721026e6b13b22 /perllib/FixMyStreet/SendReport/EastHants.pm | |
| parent | ecb7e0ff7f75344d313c152a47790b32cbcf32b4 (diff) | |
[Angus] SOAP interface/send method for Angus CRM
Diffstat (limited to 'perllib/FixMyStreet/SendReport/EastHants.pm')
| -rw-r--r-- | perllib/FixMyStreet/SendReport/EastHants.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perllib/FixMyStreet/SendReport/EastHants.pm b/perllib/FixMyStreet/SendReport/EastHants.pm index 3eb8ffcfa..cc302b8b3 100644 --- a/perllib/FixMyStreet/SendReport/EastHants.pm +++ b/perllib/FixMyStreet/SendReport/EastHants.pm @@ -35,12 +35,12 @@ sub send { # FIXME: should not recreate this each time my $eh_service; - require EastHantsWSDL; + require Integrations::EastHantsWSDL; $h->{category} = 'Customer Services' if $h->{category} eq 'Other'; $h->{message} = construct_message( %$h ); my $return = 1; - $eh_service ||= EastHantsWSDL->on_fault(sub { my($soap, $res) = @_; die ref $res ? $res->faultstring : $soap->transport->status, "\n"; }); + $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})); |