tweaks.

2021-01-11 10:55:08 -08:00
parent c8da0697a2
commit 664ec69868
7 changed files with 73 additions and 40 deletions
--- a/src/clj/auto_ap/graphql.clj
+++ b/src/clj/auto_ap/graphql.clj
@@ -1176,7 +1176,8 @@
                                        month (range -1 7)
                                        :let [next (t/plus (t/local-date (t/year (time/local-now))
                                                                         (t/month (time/local-now))
-                                                                         day-of-month )
+                                                                         (Math/min (Math/max day-of-month 1)
+                                                                                   30) )
                                                           (t/months month))]
                                        :when (not (has-fulfilled? id next recent-fulfillments))]
                                    {:identifier identifier