Merge pull request #4188 from DivinumOfficium/hv

fix false initial in Psalm 118
DivinumOfficium · Nov 25, 2024 · 92ab30f · 92ab30f
2 parents 0e3bf68 + 5cf35ea
commit 92ab30f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/web/cgi-bin/horas/horasscripts.pl b/web/cgi-bin/horas/horasscripts.pl
@@ -236,7 +236,7 @@ sub psalm : ScriptFunc {
   handleverses(\@lines);
 
   # put initial at begin
-  $lines[0] = "v. $lines[0]" if ($nonumbers || $psnum == 234);    # 234 - quiqumque has no numbers
+  $lines[0] =~ s/^(?=\p{Letter})/v. / if ($nonumbers || $psnum == 234);    # 234 - quiqumque has no numbers
 
   my $output = "!$title";
   $output .= " [" . ($column == 1 ? ++$psalmnum1 : ++$psalmnum2) . "]"