Move ITRS exposure from segments to LOI, add route-level technical classification

- Remove itrs-exposure from segment feature properties and UI
- Add "trail-conditions" LOI category with fall-hazard type carrying
  ITRS exposure (E1-E4)
- Add :itrs-technical-route field to route properties with auto-compute
  button that calculates max technical value from route segments
- Add i18n translations for compute-itrs-technical in fi/en/se

Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>

Author: vharmain

webapp/src/cljc/lipas/data/activities.cljc

@@ -953,6 +953,20 @@
                       :en "less than 0.3 meter wide, very uneven and steep section"}
         :color "orange"}})
 
+(def itrs-technical-order
+  {"1a" 0, "1b" 1, "2" 2, "3" 3, "4" 4, "5" 5})
+
+(defn itrs-technical-max
+  "Returns the highest ITRS technical value from a seq of values."
+  [values]
+  (->> values
+       (filter some?)
+       (sort-by itrs-technical-order)
+       last))
+
+(def itrs-technical-route-options
+  (into {} (map (fn [[k v]] [k (:label v)]) itrs-technical-options)))
+
 (def itrs-exposure-options
   {"1" {:label {:fi "E1 - Vähäinen altistuminen"
                 :se "E1 - Låg exponering"
@@ -1030,6 +1044,7 @@
                  :cycling-route-difficulty
                  :itrs-endurance
                  :itrs-wilderness
+                 :itrs-technical-route
                  :surface-material
                  :unpaved-percentage
                  :trail-percentage
@@ -1079,6 +1094,8 @@
                  (into [:enum] (keys itrs-endurance-options))]
                 [:itrs-wilderness {:optional true}
                  (into [:enum] (keys itrs-wilderness-options))]
+                [:itrs-technical-route {:optional true}
+                 (into [:enum] (keys itrs-technical-options))]
                 pilgrimage-key-schema])]
      :field
      {:type        "routes"
@@ -1163,6 +1180,17 @@
                         :en "Route remoteness from services (1-4)"}
           :opts        itrs-wilderness-options}}
 
+        :itrs-technical-route
+        {:field
+         {:type        "select"
+          :label       {:fi "ITRS Reitin tekninen luokitus"
+                        :se "ITRS Ruttens tekniska klassificering"
+                        :en "ITRS Route technical classification"}
+          :description {:fi "Reitin vaativin tekninen osuus (lasketaan automaattisesti reittiosista)"
+                        :se "Ruttens mest tekniskt krävande avsnitt (beräknas automatiskt från ruttsektioner)"
+                        :en "Most technically demanding section of the route (auto-computed from segments)"}
+          :opts        itrs-technical-route-options}}
+
         :duration
         {:field
          {:type        "duration"

webapp/src/cljc/lipas/data/loi.cljc

@@ -186,8 +186,8 @@
      {:label {:fi "Infotaulu" :se "Informationsstavla" :en "Information board"}
       :value "information-board"
       :props (merge
-              common-props
-              accessibility-props)}
+               common-props
+               accessibility-props)}
 
      :parking-spot
      {:label {:fi "Pysäköintipaikka" :se "Parkeringsplats" :en "Parking spot"}
@@ -409,6 +409,28 @@
       :value "bridge"
       :props (merge common-props)}}}
 
+   "trail-conditions"
+   {:label {:fi "Reittiolosuhteet" :se "Ruttförhållanden" :en "Trail conditions"}
+    :types
+    {:fall-hazard
+     {:label {:fi "Putoamisvaara" :se "Fallrisk" :en "Fall hazard"}
+      :value "fall-hazard"
+      :props (merge common-props
+                    {:itrs-exposure
+                     {:schema (into [:enum] ["1" "2" "3" "4"])
+                      :field
+                      {:type "select"
+                       :label {:fi "ITRS Putoamisvaara"
+                               :se "ITRS Fallrisk"
+                               :en "ITRS Exposure"}
+                       :description {:fi "Putoamisvaaran luokitus (E1-E4)"
+                                     :se "Klassificering av fallrisk (E1-E4)"
+                                     :en "Fall risk classification (E1-E4)"}
+                       :opts {"1" {:fi "E1 - Vähäinen" :se "E1 - Låg" :en "E1 - Low"}
+                              "2" {:fi "E2 - Kohtalainen" :se "E2 - Måttlig" :en "E2 - Moderate"}
+                              "3" {:fi "E3 - Korkea" :se "E3 - Hög" :en "E3 - High"}
+                              "4" {:fi "E4 - Äärimmäinen" :se "E4 - Extrem" :en "E4 - Extreme"}}}}})}}}
+
    "natural-attractions-and-geo-objects"
    {:label {:fi "Luonnonnähtävyydet / geokohteet" :se "Natursevärdheter / Geologiska platser" :en "Natural Attractions / Geological sites"}
     :types
@@ -494,27 +516,27 @@
 (def csv-data
   (into [csv-headers]
         (for [[category-code category] categories
-            [_ type] (:types category)
-            [prop-k prop] (:props type)]
-        [category-code
-         (get-in category [:label :fi])
-         (get-in category [:label :se])
-         (get-in category [:label :en])
-         (get-in category [:description :fi])
-         (get-in category [:description :se])
-         (get-in category [:description :en])
-         (:value type)
-         (:value type)
-         (get-in type [:label :fi])
-         (get-in type [:label :se])
-         (get-in type [:label :en])
-         (get-in type [:description :fi])
-         (get-in type [:description :se])
-         (get-in type [:description :en])
-         (name prop-k)
-         (get-in prop [:field :label :fi])
-         (get-in prop [:field :label :se])
-         (get-in prop [:field :label :en])
-         (get-in prop [:field :description :fi])
-         (get-in prop [:field :description :se])
-         (get-in prop [:field :description :en])])))
+              [_ type] (:types category)
+              [prop-k prop] (:props type)]
+          [category-code
+           (get-in category [:label :fi])
+           (get-in category [:label :se])
+           (get-in category [:label :en])
+           (get-in category [:description :fi])
+           (get-in category [:description :se])
+           (get-in category [:description :en])
+           (:value type)
+           (:value type)
+           (get-in type [:label :fi])
+           (get-in type [:label :se])
+           (get-in type [:label :en])
+           (get-in type [:description :fi])
+           (get-in type [:description :se])
+           (get-in type [:description :en])
+           (name prop-k)
+           (get-in prop [:field :label :fi])
+           (get-in prop [:field :label :se])
+           (get-in prop [:field :label :en])
+           (get-in prop [:field :description :fi])
+           (get-in prop [:field :description :se])
+           (get-in prop [:field :description :en])])))

webapp/src/cljc/lipas/i18n/en/map.edn

@@ -30,6 +30,7 @@
  :itrs-segment "ITRS classification",
  :itrs-technical "ITRS Technical",
  :itrs-exposure "ITRS Exposure",
+ :compute-itrs-technical "Compute from segments",
  :split-linestring "Split",
  :travel-direction "Define travel direction",
  :zoom-closer "Please zoom closer",

webapp/src/cljc/lipas/i18n/fi/map.edn

@@ -30,6 +30,7 @@
  :itrs-segment "ITRS-luokitus",
  :itrs-technical "ITRS Teknisyys",
  :itrs-exposure "ITRS Altistuminen",
+ :compute-itrs-technical "Laske reittiosista",
  :split-linestring "Katkaise reittiosa",
  :travel-direction "Määritä kulkusuunta",
  :zoom-closer "Kartta täytyy zoomata lähemmäs",

webapp/src/cljc/lipas/i18n/se/map.edn

@@ -29,6 +29,7 @@
  :itrs-segment "ITRS-klassificering",
  :itrs-technical "ITRS Teknisk",
  :itrs-exposure "ITRS Exponering",
+ :compute-itrs-technical "Beräkna från ruttsektioner",
  :split-linestring "Klippa ruttdel",
  :travel-direction "Bestäm riktningen",
  :zoom-closer "Zooma in",

webapp/src/cljc/lipas/schema/sports_sites/location.cljc

@@ -71,8 +71,7 @@
      [:type-code {:optional true} :int]
      [:route-part-difficulty {:optional true} :string]
      [:travel-direction {:optional true} :string]
-     [:itrs-technical {:optional true} :string]
-     [:itrs-exposure {:optional true} :string]]))
+     [:itrs-technical {:optional true} :string]]))
 
 (def line-string-feature
   (m/schema

webapp/src/cljs/lipas/ui/map/events.cljs

@@ -906,17 +906,6 @@
                                                (update-feature-properties fs fid dissoc :itrs-technical)))))]
                      {:fx [[:dispatch [::update-geometries lipas-id geoms]]]})))
 
-(rf/reg-event-fx ::set-itrs-exposure
-                 (fn [{:keys [db]} [_ lipas-id fid v]]
-                   (let [geoms (-> db
-                                   (get-in [:map :mode :geoms])
-                                   (update :features
-                                           (fn [fs]
-                                             (if (seq v)
-                                               (update-feature-properties fs fid assoc :itrs-exposure v)
-                                               (update-feature-properties fs fid dissoc :itrs-exposure)))))]
-                     {:fx [[:dispatch [::update-geometries lipas-id geoms]]]})))
-
 ;; Reverse geocoding
 
 (rf/reg-event-fx ::resolve-address

webapp/src/cljs/lipas/ui/map/styles.cljs

@@ -370,15 +370,11 @@
          label-style]))
 
 (defn itrs-segment-style-fn
-  [feature tr hover? _selected?]
-  (let [locale (tr)
-        technical (if-let [x (.get feature "itrs-technical")]
+  [feature _tr hover? _selected?]
+  (let [technical (if-let [x (.get feature "itrs-technical")]
                     (str "T" x)
                     "-")
-        exposure (if-let [x (.get feature "itrs-exposure")]
-                   (str "E" x)
-                   "-")
-        label (str "ITRS: " technical " / " exposure)
+        label (str "ITRS: " technical)
         label-style (.clone route-part-label-style)
         _ (.. label-style
               (getText)

webapp/src/cljs/lipas/ui/map/views.cljs

@@ -646,8 +646,7 @@
         tr @(rf/subscribe [:lipas.ui.subs/translator])
         locale (tr)
         properties @(rf/subscribe [::subs/edit-geom-properties fid])
-        technical-value (:itrs-technical properties)
-        exposure-value (:itrs-exposure properties)]
+        technical-value (:itrs-technical properties)]
     [:> Paper
      {:sx
       #js {:padding 2
@@ -658,37 +657,12 @@
        :fullWidth true
        :value (or technical-value "")
        :onChange (fn [e]
-                   (rf/dispatch [::events/set-itrs-technical lipas-id fid (.. e -target -value)]))
-       :sx #js {:marginBottom 2}}
+                   (rf/dispatch [::events/set-itrs-technical lipas-id fid (.. e -target -value)]))}
       [:> MenuItem
        {:key "empty"
         :value ""}
        "-"]
       (for [[k {:keys [label description]}] activities-data/itrs-technical-options]
-        [:> MenuItem
-         {:key k
-          :value k
-          :sx #js {:flexDirection "column"
-                   :alignItems "flex-start"
-                   :maxWidth "350px"}}
-         [:> Typography
-          (get label locale)]
-         [:> Typography
-          {:sx #js {:fontSize "body2.fontSize"
-                    :whiteSpace "normal"}}
-          (get description locale)]])]
-     [:> TextField
-      {:label (tr :map/itrs-exposure)
-       :select true
-       :fullWidth true
-       :value (or exposure-value "")
-       :onChange (fn [e]
-                   (rf/dispatch [::events/set-itrs-exposure lipas-id fid (.. e -target -value)]))}
-      [:> MenuItem
-       {:key "empty"
-        :value ""}
-       "-"]
-      (for [[k {:keys [label description]}] activities-data/itrs-exposure-options]
         [:> MenuItem
          {:key k
           :value k

webapp/src/cljs/lipas/ui/sports_sites/activities/views.cljs

@@ -12,6 +12,7 @@
             [lipas.ui.components.buttons :as lui-btn]
             [lipas.ui.components.forms :refer [->display-tf]]
             [lipas.ui.components.text-fields :as lui-tf]
+            [lipas.data.activities :as activities-data]
             [lipas.ui.config :as config]
             ["@mui/material/Button$default" :as Button]
             ["@mui/material/Chip$default" :as Chip]
@@ -891,10 +892,11 @@
   #{:arrival :rules :rules-structured :permits-rules-guidelines :highlights})
 
 (def ^:private itrs-field-ks
-  #{:itrs-endurance :itrs-wilderness})
+  #{:itrs-endurance :itrs-wilderness :itrs-technical-route})
 
 (defn route-form
-  [{:keys [tr locale lipas-id type-code route-props state read-only? edit-itrs? field-sorter]}]
+  [{:keys [tr locale lipas-id type-code route-props state read-only? edit-itrs? field-sorter
+           compute-itrs-technical]}]
   [nice-form {:read-only? read-only?}
    (doall
     (for [[prop-k {:keys [field show]}] (sort-by field-sorter utils/reverse-cmp route-props)
@@ -909,6 +911,10 @@
               field-read-only? (if itrs-field?
                                  (or read-only? (not edit-itrs?))
                                  read-only?)
+              set-field        (fn [& args]
+                                 (let [path (butlast args)
+                                       v (last args)]
+                                   (swap! state assoc-in path v)))
               field-component  [make-field
                                 {:read-only?   field-read-only?
                                  :key          prop-k
@@ -917,14 +923,27 @@
                                  :edit-data    @state
                                  :display-data @state
                                  :locale       locale
-                                 :set-field    (fn [& args]
-                                                 (let [path (butlast args)
-                                                       v (last args)]
-                                                   (swap! state assoc-in path v)))
+                                 :set-field    set-field
                                  :lipas-id     lipas-id}]]
-          (if itrs-locked?
+          (cond
+            itrs-locked?
             [mui/tooltip {:title (tr :lipas.sports-site/itrs-edit-requires-role)}
              [:span field-component]]
+
+            (and (= :itrs-technical-route prop-k) edit-itrs? (not read-only?) compute-itrs-technical)
+            [mui/grid {:container true :alignItems "center" :spacing 1 :wrap "nowrap"}
+             [mui/grid {:item true :xs true}
+              field-component]
+             [mui/grid {:item true}
+              [mui/tooltip {:title (tr :map/compute-itrs-technical)}
+               [mui/icon-button
+                {:size     "small"
+                 :on-click (fn []
+                             (when-let [v (compute-itrs-technical)]
+                               (set-field :itrs-technical-route v)))}
+                [mui/icon "calculate"]]]]]
+
+            :else
             field-component)))))])
 
 (defn single-route
@@ -940,7 +959,8 @@
                               (set-field [new-state])))]
 
     (let [tr           (<== [:lipas.ui.subs/translator])
-          field-sorter (<== [::subs/field-sorter activity-k])]
+          field-sorter (<== [::subs/field-sorter activity-k])
+          geoms        (<== [::subs/geoms read-only?])]
 
       [route-form
        {:locale       locale
@@ -951,7 +971,15 @@
         :read-only?   read-only?
         :edit-itrs?   edit-itrs?
         :route-props  route-props
-        :state        route-form-state}])
+        :state        route-form-state
+        :compute-itrs-technical
+        (fn []
+          (let [fids     (set (:fids @route-form-state))
+                features (:features geoms)
+                values   (->> features
+                              (filter #(contains? fids (:id %)))
+                              (map #(get-in % [:properties :itrs-technical])))]
+            (activities-data/itrs-technical-max values)))}])
 
     (finally
       (remove-watch route-form-state :lol))))
@@ -968,6 +996,7 @@
           selected-route-id (<== [::subs/selected-route-id])
 
           field-sorter (<== [::subs/field-sorter activity-k])
+          geoms        (<== [::subs/geoms read-only?])
 
           editing? (not read-only?)]
 
@@ -1032,7 +1061,15 @@
             :read-only?   read-only?
             :edit-itrs?   edit-itrs?
             :route-props  route-props
-            :state        route-form-state}]
+            :state        route-form-state
+            :compute-itrs-technical
+            (fn []
+              (let [route-fids (set (:fids @route-form-state))
+                    features   (:features geoms)
+                    values     (->> features
+                                    (filter #(contains? route-fids (:id %)))
+                                    (map #(get-in % [:properties :itrs-technical])))]
+                (activities-data/itrs-technical-max values)))}]
 
           ;; Buttons
           [:> Grid {:container true :spacing 1}