inprogress was only being cleared for replicated serverhosts if the

executing instructions step failed. clear it if the sending data step
fails too.

diff --git a/dcm/dcm.pc b/dcm/dcm.pc
index cf00da65df5b329be1b0babf0502b8142f811fa8..c34b8263401a647790c7555bf964ea80a6833b84 100644 (file)
--- a/dcm/dcm.pc
+++ b/dcm/dcm.pc
@@ -357,13 +357,7 @@ void do_hosts(char *service)
                }
 
              if (type == REPLICATED)
-               {
-                 /* We're giving up, so clear the inprogress flag on
-                    any hosts in this service we haven't gotten to yet */
-                 EXEC SQL UPDATE serverhosts SET inprogress = 0
-                   WHERE service = UPPER(:service);
-                 break;
-               }
+               break;
            }
          else
            {
@@ -376,6 +370,15 @@ void do_hosts(char *service)
       EXEC SQL CLOSE csr_hst2;
     }
 
+  if (type == REPLICATED)
+    {
+      /* Clear inprogress flag on any hosts we started but didn't
+       * finish.
+       */
+      EXEC SQL UPDATE serverhosts SET inprogress = 0
+       WHERE service = UPPER(:service);
+    }
+
   EXEC SQL WHENEVER SQLERROR DO dbmserr();
   if (status && !SOFT_FAIL(status) && type == REPLICATED)
     {