More reliability with company dropdown

src/clj/auto_ap/handler.clj

@@ -325,7 +325,7 @@
        (wrap-session {:store (cookie-store
                               {:key
                                (byte-array
-                                [42, 52, -31, 105, -126, -33, -118, -69, -82, -59, -15, -69, -38, 103, -102, -1])})})
+                                [42, 52, -31, 101, -126, -33, -118, -69, -82, -59, -15, -69, -38, 103, -102, -1])})})
 
        #_(wrap-reload)
        (wrap-params)

src/clj/auto_ap/session_version.clj

@@ -1,10 +1,11 @@
 (ns auto-ap.session-version
-  (:require [bidi.bidi :as bidi]))
+  (:require [bidi.bidi :as bidi]
+            [auto-ap.logging :as alog]))
 
 ;; TODO this should only be done until SSR is complete
 ;; once it is, it should just use redirects based on headers
 ;; no header=use default, mismatch header=redirect to login
-(def current-session-version 1)
+(def current-session-version 2)
 (defn wrap-session-version
   [handler]
   (fn [request]
@@ -13,28 +14,9 @@
                                   (:uri request)
                                   :request-method (:request-method request))
           is-normal-route? (or (keyword? route)
-                               (keyword? (:handler route)))
-          whitelist #{:fastlink :oauth :login :health :raw-query :results-csv-query :results-json-query 
-                      :export-expected-deposits 
-                      :export-trial-balance 
-                      :export-sales 
-                      :export-transactions 
-                      :export-company-vendors 
-                      :export-payments 
-                      :export-ntg-sales-snapshot 
-                      :export-vendors 
-                      :export-transactions2 
-                      :aggregated-sales-export 
-                      :export-raw 
-                      :export-invoices 
-                      :export-clients 
-                      :export-accounts 
-                      :export-ntg-account-snapshot 
-                      :export-ledger}] ;; TODO SSR icky
-      (if (and (not= (:version session) current-session-version)
+                               (keyword? (:handler route)))] ;; TODO SSR icky
+      (if (and (not= (:version session current-session-version) current-session-version)
 
-               (not (whitelist route) )
-               (not (whitelist (:handler route)) )
                is-normal-route?)
         (cond
           (or (= :graphql (:handler route))

src/clj/auto_ap/ssr/payments.clj

@@ -419,7 +419,8 @@
     (audit-transact (conj removing-payments updated-payment)
                     identity)
 
-    (html-response (row* (:identity request) updated-payment {:delete-after-settle? true :class "live-removed"})
+    (html-response (row* (:identity request) updated-payment {:delete-after-settle? true :class "live-removed"
+                                                              :request request})
                    :headers {"hx-retarget" (format "#entity-table tr[data-id=\"%d\"]" (:db/id check))})))
 
 ;; TODO use decoding here