aboutsummaryrefslogtreecommitdiffstats
path: root/perllib/Open311.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perllib/Open311.pm')
-rw-r--r--perllib/Open311.pm9
1 files changed, 6 insertions, 3 deletions
diff --git a/perllib/Open311.pm b/perllib/Open311.pm
index 6d218131f..1027c756f 100644
--- a/perllib/Open311.pm
+++ b/perllib/Open311.pm
@@ -79,8 +79,10 @@ sub send_service_request {
}
warn sprintf( "Failed to submit problem %s over Open311, response\n: %s\n%s", $problem->id, $response, $self->debug_details );
- return 0;
+ } else {
+ warn sprintf( "Failed to submit problem %s over Open311, details:\n%s", $problem->id, $self->error);
}
+ return 0;
}
sub _populate_service_request_params {
@@ -263,8 +265,10 @@ sub post_service_request_update {
}
warn sprintf( "Failed to submit comment %s over Open311, response - %s\n%s\n", $comment->id, $response, $self->debug_details );
- return 0;
+ } else {
+ warn sprintf( "Failed to submit comment %s over Open311, details\n%s\n", $comment->id, $self->error);
}
+ return 0;
}
sub _populate_service_request_update_params {
@@ -383,7 +387,6 @@ sub _post {
$self->_process_error( $res->decoded_content ),
$self->debug_details
) );
- warn $self->error;
return 0;
}
}