From c93cb823dafba47191f14fd7b31cf7b9d0cf37e0 Mon Sep 17 00:00:00 2001
From: Struan Donald <struan@exo.org.uk>
Date: Tue, 27 Mar 2012 12:54:18 +0100
Subject: add some better success and fail things to open311 module

---
 perllib/Open311/GetServiceRequestUpdates.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'perllib/Open311/GetServiceRequestUpdates.pm')

diff --git a/perllib/Open311/GetServiceRequestUpdates.pm b/perllib/Open311/GetServiceRequestUpdates.pm
index dc8fb7672..db9fe9436 100644
--- a/perllib/Open311/GetServiceRequestUpdates.pm
+++ b/perllib/Open311/GetServiceRequestUpdates.pm
@@ -12,6 +12,8 @@ sub update_comments {
 
     my $requests = $open311->get_service_request_updates( );
 
+    return 0 unless $open311->success;
+
     for my $request (@$requests) {
         my $request_id = $request->{service_request_id};
 
-- 
cgit v1.2.3