[timepoint_list] Add language to timepoint_list

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: Dave MacFarlane

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>

php/libraries/Language.php

@@ -0,0 +1,21 @@
+<?php declare(strict_types=1);
+
+/**
+ * A Language object represents the concept of a language that has been
+ * configured on this LORIS instance.
+ */
+class Language
+{
+    /**
+     * Construct a Language object
+     *
+     * @param public readonly string $label The display label for the language
+     * @param public readonly string $code  The language code for the language.
+     *
+     * @return \Language
+     */
+    public function __construct(
+        public readonly string $label,
+	public readonly string $code
+    ) { }
+}

php/libraries/TimePoint.class.inc

@@ -1386,5 +1386,30 @@ 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']
+        );
+    }
 }