adds creator.

src/clj/auto_ap/pdf/ledger.clj

@@ -29,14 +29,7 @@
                         (.format (DecimalFormat. "0%") (:value cell))
 
                         :else
-                        (str (:value cell)))
-        cell-contents (if (:filters cell)
-                        (do 
-                          (println (:filters cell))
-                          cell-contents)
-                        
-
-                        cell-contents)]
+                        (str (:value cell)))]
     [:pdf-cell
      (cond->  {}
 
@@ -205,7 +198,7 @@
         names    (str/replace (->> args :client_ids (d/pull-many (d/db conn) [:client/name]) (map :client/name) (str/join "-")) #" " "_" )]
     (format "Profit-and-loss-%s-to-%s-for-%s" min-date max-date names)))
 
-(defn print-pnl [args data]
+(defn print-pnl [user args data]
   (let [uuid     (str (UUID/randomUUID))
         pdf-data (make-pnl args data)
         name (args->name args)
@@ -221,5 +214,6 @@
                   :report/client (:client_ids args)
                   :report/key key
                   :report/url url
+                  :report/creator (:user user)
                   :report/created (java.util.Date.)}])
     url))