Tweak for poke

src/clj/auto_ap/handler.clj

@@ -217,6 +217,7 @@
                            seq
                            (pull-many (dc/db conn)
                                                  d-clients/full-read))]
+      
       (lc/with-context {:clients (map :client/code clients)}
         (handler (assoc request
                         :clients clients
@@ -233,7 +234,9 @@
                            (do 
                              (assert-can-see-client identity (cond-> client-id
                                                                (string? client-id) (Long/parseLong)))
-                             [client-id])
+                             [(if (string? client-id)
+                                (Long/parseLong client-id)
+                                client-id)])
                            x-clients)
                          (catch Exception e
                            (alog/warn ::cant-access :error e