apt: new process for package install on puppet nodes

[hcoop/portal.git] / init.sml

diff --git a/init.sml b/init.sml
index 6ed6c9a..f6f5e7c 100644 (file)
--- a/init.sml
+++ b/init.sml
@@ -208,6 +208,7 @@ fun mkNodeRow [id, name, descr, debian] =
 fun listNodes () =
     C.map (getDb ()) mkNodeRow ($`SELECT id, name, descr, debian
                                  FROM WebNode
+                                  WHERE id IN (SELECT id FROM ActiveWebNode)
                                  ORDER BY name`)
 
 fun nodeName id =