diff options
| -rw-r--r-- | perllib/Open311.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/perllib/Open311.pm b/perllib/Open311.pm index e5d57dca3..c1d68a9cf 100644 --- a/perllib/Open311.pm +++ b/perllib/Open311.pm @@ -83,9 +83,13 @@ EOT return $obj->{ request }->{ service_request_id }; } else { my $token = $obj->{ request }->{ token }; - return $self->get_service_request_id_from_token( $token ); + if ( $token ) { + return $self->get_service_request_id_from_token( $token ); + } } } + + warn sprintf( "Failed to submit problem %s over Open311, response\n: %s", $problem->id, $response ); } } |