Add values to QR-code for demos

Basic-Data-Infrastructure · Jun 20, 2024 · 534cf55 · 534cf55
1 parent 088ac37
commit 534cf55
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 2 deletions.
diff --git a/resources/public/assets/base.css b/resources/public/assets/base.css
@@ -234,7 +234,7 @@ legend {
 
 .field :is(input, textarea, select) {
     width: 30rem;
-    max-width: calc(100vw - 5rem);
+    max-width: calc(100vw - 7rem);
     font-family: inherit;
     font-size: 1rem;
     padding: .5rem;

diff --git a/src/dil_demo/tms/web.clj b/src/dil_demo/tms/web.clj
@@ -77,7 +77,23 @@
 
 (defn chauffeur-trip [trip]
   [:div.trip
-   (qr-code-dil-demo trip)
+   [:section
+    (qr-code-dil-demo trip)]
+
+   (let [carrier-eori-list (otm/trip-carrier-eori-list trip)
+         driver-id-digits  (otm/trip-driver-id-digits trip)
+         license-plate     (otm/trip-license-plate trip)]
+     [:fieldset
+      (w/field {:label    "Vervoerder EORI's",
+                :value    (string/join "," carrier-eori-list),
+                :readonly true})
+      (w/field {:label    "Rijbewijs",
+                :value    driver-id-digits
+                :readonly true})
+      (w/field {:label    "Kenteken",
+                :value    license-plate
+                :readonly true})])
+
    [:div.actions
     [:a.button {:href "../chauffeur/"} "Terug naar overzicht"]]])