Fix work key UTF-8 trimming bug.

demiankatz · Jan 18, 2024 · d5d59ac · d5d59ac
1 parent c1067ee
commit d5d59ac
Show file tree

Hide file tree

Showing 2 changed files with 31 additions and 1 deletion.
diff --git a/module/VuFind/src/VuFind/XSLT/Import/VuFindWorkKeys.php b/module/VuFind/src/VuFind/XSLT/Import/VuFindWorkKeys.php
@@ -179,6 +179,6 @@ protected static function normalize(
         if (!empty($excludeRegEx)) {
             $normalized = preg_replace($excludeRegEx, '', $normalized);
         }
-        return substr(strtolower($normalized), 0, 255);
+        return mb_substr(mb_strtolower($normalized, 'UTF-8'), 0, 255, 'UTF-8');
     }
 }
diff --git a/module/VuFind/tests/unit-tests/src/VuFindTest/XSLT/Import/VuFindWorkKeysTest.php b/module/VuFind/tests/unit-tests/src/VuFindTest/XSLT/Import/VuFindWorkKeysTest.php
@@ -96,6 +96,36 @@ public function testGetWorkKeysWithIncludeRegExAndDuplicateTitles()
         );
     }
 
+    /**
+     * Test the work keys helper with a very long Greek title.
+     *
+     * @return void
+     */
+    public function testGetWorkKeysWithLongGreekTitle()
+    {
+        $expected = '<?xml version="1.0" encoding="utf-8"?>'
+            . "\n<workKey>UT αυτοματοποίηση συστημάτων ηλεκτρικής ενέργειας: σχεδιασμός και προσομοίωση συστήματος "
+            . 'για τον εντοπισμό-απομόνωση σφαλμάτων γραμμής και την αποκατάσταση της ηλεκτροδότησης σε δίκτυα '
+            . "διανομής μέσης τάσης με την εφαρμογή μεθόδων διανεμημένης τεχνητής νοημοσ</workKey>\n"
+            . '<workKey>AT μπαξεβάνος, ιωάννης σ. αυτοματοποίηση συστημάτων ηλεκτρικής ενέργειας: σχεδιασμός και '
+            . 'προσομοίωση συστήματος για τον εντοπισμό-απομόνωση σφαλμάτων γραμμής και την αποκατάσταση της '
+            . 'ηλεκτροδότησης σε δίκτυα διανομής μέσης τάσης με την εφαρμογή μεθόδων διανεμημένης τεχνητής '
+            . "νοημοσ</workKey>\n";
+        $title = 'Αυτοματοποίηση συστημάτων ηλεκτρικής ενέργειας: σχεδιασμός και προσομοίωση συστήματος για τον '
+            . 'εντοπισμό-απομόνωση σφαλμάτων γραμμής και την αποκατάσταση της ηλεκτροδότησης σε δίκτυα διανομής '
+            . 'μέσης τάσης με την εφαρμογή μεθόδων διανεμημένης τεχνητής νοημοσύνης';
+        $result = VuFindWorkKeys::getWorkKeys(
+            $title,
+            [$title],
+            [$title],
+            ['Μπαξεβάνος, Ιωάννης Σ.']
+        );
+        $this->assertEquals(
+            $expected,
+            simplexml_import_dom($result)->asXml()
+        );
+    }
+
     /**
      * Test the work keys helper with an exclude regex.
      *