diff options
| -rw-r--r-- | perllib/Open311.pm | 8 | ||||
| -rw-r--r-- | perllib/Open311/GetServiceRequestUpdates.pm | 2 |
2 files changed, 7 insertions, 3 deletions
diff --git a/perllib/Open311.pm b/perllib/Open311.pm index 60b658dc3..52e17e99d 100644 --- a/perllib/Open311.pm +++ b/perllib/Open311.pm @@ -352,7 +352,11 @@ sub _get { $self->success(1); } else { $self->success(0); - $self->error( $res->status_line ); + $self->error( sprintf( + "request failed: %s\n%s\n", + $res->status_line, + $uri->as_string + ) ); } } @@ -391,7 +395,7 @@ sub _post { return $res->decoded_content; } else { $self->success(0); - $self->error( sprintf( + $self->error( sprintf( "request failed: %s\nerror: %s\n%s\n", $res->status_line, $self->_process_error( $res->decoded_content ), diff --git a/perllib/Open311/GetServiceRequestUpdates.pm b/perllib/Open311/GetServiceRequestUpdates.pm index 656fa9d68..25b960aa7 100644 --- a/perllib/Open311/GetServiceRequestUpdates.pm +++ b/perllib/Open311/GetServiceRequestUpdates.pm @@ -68,7 +68,7 @@ sub update_comments { my $requests = $open311->get_service_request_updates( @args ); unless ( $open311->success ) { - warn "Failed to fetch ServiceRequest Updates: " . $open311->error + warn "Failed to fetch ServiceRequest Updates for " . $council_details->{areaid} . ":\n" . $open311->error if $self->verbose; return 0; } |