fix ancient line view for XR

wobsite.lisp

@@ -4554,59 +4554,61 @@ Returns the number of requests counted, including this one."
           (:span
            :class "govuk-details__summary-text"
            "What do the columns mean?"))
-         (:div
-          :class "govuk-details__text"
-          (:ul
-           (:li
-            (:p
-             :class "govuk-body"
-             (:strong "TrainID")
-             (who:esc
-              " is a unique identifier given in the open data feeds. It's not entirely clear what, if anything, it correlates to in real life.")))
-           (:li
-            (:p
-             :class "govuk-body"
-             (:strong "LCID")
-             (who:esc
-              " (Leading Car ID) ostensibly identifies the leading car of the train in some way. We use this as our primary means of tracking trains.")))
-           (:li
-            (:p
-             :class "govuk-body"
-             (:strong "Track codes")
-             " "
-             (:strong
-              :class "govuk-tag govuk-tag--grey"
-              "ABCDEF")
-             (who:esc
-              " are arbitrary pieces of text describing a piece of track on the line. ")))
-           (:li
-            (:p
-             :class "govuk-body"
-             (:strong "WTT")
-             (who:esc
-              " gives the Train Number as found in the TfL ")
-             (:a
-              :href "https://tfl.gov.uk/corporate/publications-and-reports/working-timetables"
-              "Working Timetables (WTT)")
-             (who:esc
-              ". These are keyed in by train operators at the start of their journey, and can be moved around by Line Controllers if necessary.")
+         (unless (string= code "X")
+           (who:htm
+            (:div
+             :class "govuk-details__text"
              (:ul
               (:li
                (:p
                 :class "govuk-body"
-                (:strong
-                 :class "govuk-tag govuk-tag--pink"
-                 "NNN ×R")
+                (:strong "TrainID")
                 (who:esc
-                 " denotes a train with WTT number NNN, on its Rth trip of the day.")))
+                 " is a unique identifier given in the open data feeds. It's not entirely clear what, if anything, it correlates to in real life.")))
               (:li
                (:p
                 :class "govuk-body"
+                (:strong "LCID")
+                (who:esc
+                 " (Leading Car ID) ostensibly identifies the leading car of the train in some way. We use this as our primary means of tracking trains.")))
+              (:li
+               (:p
+                :class "govuk-body"
+                (:strong "Track codes")
+                " "
                 (:strong
-                 :class "govuk-tag govuk-tag--green"
-                 "NNN")
+                 :class "govuk-tag govuk-tag--grey"
+                 "ABCDEF")
+                (who:esc
+                 " are arbitrary pieces of text describing a piece of track on the line. ")))
+              (:li
+               (:p
+                :class "govuk-body"
+                (:strong "WTT")
+                (who:esc
+                 " gives the Train Number as found in the TfL ")
+                (:a
+                 :href "https://tfl.gov.uk/corporate/publications-and-reports/working-timetables"
+                 "Working Timetables (WTT)")
                 (who:esc
-                 " denotes a train with WTT number NNN, on its first run of the day (or where no trip number info is available).")))))))))
+                 ". These are keyed in by train operators at the start of their journey, and can be moved around by Line Controllers if necessary.")
+                (:ul
+                 (:li
+                  (:p
+                   :class "govuk-body"
+                   (:strong
+                    :class "govuk-tag govuk-tag--pink"
+                    "NNN ×R")
+                   (who:esc
+                    " denotes a train with WTT number NNN, on its Rth trip of the day.")))
+                 (:li
+                  (:p
+                   :class "govuk-body"
+                   (:strong
+                    :class "govuk-tag govuk-tag--green"
+                    "NNN")
+                   (who:esc
+                    " denotes a train with WTT number NNN, on its first run of the day (or where no trip number info is available).")))))))))))
         (loop
           for (group . trains) in grouped
           do (who:htm
@@ -4628,16 +4630,18 @@ Returns the number of requests counted, including this one."
                   (:abbr
                    :title "TrackerNet unique identifier"
                    "TrainID"))
-                 (:th
-                  :class "govuk-table__header"
-                  (:abbr
-                   :title "Working Timetable train number"
-                   "WTT"))
-                 (:th
-                  :class "govuk-table__header no-phones"
-                  (:abbr
-                   :title "Leading Car ID (LCID)"
-                   "LCID"))
+                 (unless (string= code "X")
+                   (who:htm
+                    (:th
+                     :class "govuk-table__header"
+                     (:abbr
+                      :title "Working Timetable train number"
+                      "WTT"))
+                    (:th
+                     :class "govuk-table__header no-phones"
+                     (:abbr
+                      :title "Leading Car ID (LCID)"
+                      "LCID"))))
                  (:th
                   :class "govuk-table__header govuk-!-width-two-thirds"
                   "Current location")))