[timepoint_list] Add language to timepoint_list (#10153)

Add the language of a session to timepoint_list, so that the user knows
what language to expect the instrument data to be in.

Author: driusan

modules/timepoint_list/php/timepoint_list.class.inc

@@ -230,6 +230,9 @@ class Timepoint_List extends \NDB_Menu
                         = $timePoint->$getDateMethod();
                 }
             }
+
+            $this->tpl_data['timePoints'][$x]['language']
+                = $timePoint->getLanguage();
             $x++;
         } // end list
 

modules/timepoint_list/templates/menu_timepoint_list.tpl

@@ -76,6 +76,7 @@
             <th>{dgettext("timepoint_list", "BVL QC")}</th>
             <th>{dgettext("timepoint_list", "BVL Exclusion")}</th>
             <th>{dgettext("timepoint_list", "Registered By")}</th>
+            <th>{dgettext("loris", "Language")}</th>
         </tr>
     </thead>
     <tbody>
@@ -154,6 +155,9 @@
             <td>
                 {$timePoints[timepoint].Real_name}
             </td>
+<td>
+                {$timePoints[timepoint].language->label}
+</td>
         </tr>
     {sectionelse}
         <tr><td colspan="10">{dgettext("timepoint_list", "You do not have access to any timepoints registered for this candidate.")}</td></tr>

modules/timepoint_list/test/TimepointListIntegrationTest.php

@@ -41,6 +41,7 @@ class TimepointListIntegrationTest extends LorisIntegrationTestWithCandidate
         '',
         '',
         '',
+        'Unknown',
     ];
 
     /**

php/libraries/Language.php

@@ -0,0 +1,22 @@
+<?php declare(strict_types=1);
+
+/**
+ * A Language object represents the concept of a language that has been
+ * configured on this LORIS instance.
+ *
+ * @license http://www.gnu.org/licenses/gpl-3.0.txt GPLv3
+ */
+class Language
+{
+    /**
+     * Construct a Language object
+     *
+     * @param string $label The display label for the language
+     * @param string $code  The language code for the language.
+     */
+    public function __construct(
+        public readonly string $label,
+        public readonly string $code
+    ) {
+    }
+}

php/libraries/TimePoint.class.inc

@@ -1386,5 +1386,31 @@ class TimePoint implements \LORIS\StudyEntities\AccessibleResource,
         $centerMatch = in_array($this->getCenterID(), $centers);
         return $projMatch && $centerMatch;
     }
+
+    /**
+     * Get the language for this timepoint.
+     *
+     * @return \Language
+     */
+    public function getLanguage() : \Language
+    {
+        $db = NDB_Factory::singleton()->database();
+
+        $vals = $db->pselectRow(
+            "SELECT language_label, language_code
+             FROM language l
+                 JOIN session s ON (l.language_id=s.languageID)
+             WHERE s.ID=:sid",
+            ['sid' => $this->getSessionID()],
+        );
+
+        if ($vals === null) {
+            return new \Language("Unknown", "en_CA");
+        }
+        return new \Language(
+            label: $vals['language_label'],
+            code: $vals['language_code']
+        );
+    }
 }