Merge branch 'staging' into add-scheduled-payment-filter

2021-01-11 12:09:10 -08:00
parent d3232c70b2 664ec69868
commit ce9d4b63fd
7 changed files with 73 additions and 40 deletions
--- a/src/clj/auto_ap/graphql.clj
+++ b/src/clj/auto_ap/graphql.clj
@@ -1187,7 +1187,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