Fix 'renew'

project.clj

@@ -7,7 +7,8 @@
                  [org.clojure/core.async "0.4.500"]
                  [datascript "1.3.9"]
                  [org.clojure/tools.logging "1.2.4"]
-                 [org.clojure/test.check "0.9.0"]]
+                 [org.clojure/test.check "0.9.0"]
+                 [djblue/portal "0.35.1"]]
   :plugins [[lein-cljfmt "0.5.7"]]
   :main ^:skip-aot library-monkey.core
   :target-path "target/%s"

src/library_monkey/core.clj

@@ -7,7 +7,7 @@
    [library-monkey.console :as console]
    [clojure.spec.alpha :as s]
    [cognitect.anomalies :as anom]
-   [clojure.core.async :as a :refer [<!! <! go chan]]
+   [clojure.core.async :as a :refer [<!! chan]]
    [datascript.core :as d]))
 
 (defprotocol Library
@@ -19,7 +19,10 @@
   (let [cookie (authenticate library username password)]
     (if (::anom/category cookie)
       (assoc creds :credentials-error (::anom/category cookie))
-      (assoc creds :borrowings (get-borrowings library cookie)))))
+      (let [borrowings (get-borrowings library cookie)]
+        (doseq [b borrowings]
+          (renew-borrowing! library cookie b))
+        (assoc creds :borrowings (get-borrowings library cookie))))))
 
 (defn generate-reports [library credentials ch]
   (a/pipeline-blocking
@@ -45,6 +48,11 @@
              :borrowings {:db/type :db.type/ref
                           :db/cardinality :db.cardinality/many}})
 (comment
+  (require '[portal.api :as p])
+
+  (def p (p/open))
+  (add-tap #'p/submit)
+
 
   (require '[clojure.spec.gen.alpha :as gen])
   (def conn (d/create-conn schema))
@@ -119,4 +127,5 @@
 (comment
   (-main "config.edn")
 
+  (tap> (hickory.core/as-hiccup (hickory.core/parse @p)))
   )

src/library_monkey/network.clj

@@ -18,6 +18,7 @@
                        :form-params {:name username
                                      :pwd password}
                        :follow-redirects false})]
+      (tap> {:username username :response response})
       (log/debug (str "auth-cookie [" username "] : [" (:status response) "]" ))
       (case (:status response)
         302 ((comp find-auth-cookie :set-cookie :headers) response)
@@ -62,7 +63,9 @@
 (defn renew [cookie barcode]
   (let [response @(http/get "http://bibliotheques.amiens.fr/clientBookline/recherche/dossier_lecteur.asp"
                             {:query-params {"STRCODEDOCBASE" "CAAM"
+                                            "ACT" "RENEW"
                                             "VALUE" barcode}
                              :headers {"Cookie" cookie}
                              :follow-redirects false})]
+    (tap> {:barcode barcode :response response})
     response))