do some more checks when getting a reponse from open311 systems

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 );
     }
 }