Merge pull request DivinumOfficium#3893 from gallizoltan/perl_compati…

…bility perl backward compatibility
gallizoltan · Jun 22, 2024 · 00e39db · 00e39db
2 parents 679f937 + 0a77419
commit 00e39db
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/web/cgi-bin/horas/horas.pl b/web/cgi-bin/horas/horas.pl
@@ -335,7 +335,8 @@ sub antiphona_finalis : ScriptFunc {
   } else {
     $name = 'Postpentecost';
   }
-  my $t = %{setupstring($lang, "Psalterium/Mariaant.txt")}{$name};
+  my %ant = %{setupstring($lang, "Psalterium/Mariaant.txt")};
+  my $t = $ant{$name};
   $t = '#' . translate($name eq 'Ant Finalis OP' ? 'Antiphonae finalis' : 'Antiphona finalis BMV', $lang) . "\n$t";
   return ($t);
 }

diff --git a/web/cgi-bin/horas/specials.pl b/web/cgi-bin/horas/specials.pl
@@ -408,7 +408,8 @@ sub specials {
         $name =~ s/ / Pasc7 / if ($hora =~ /Tertia/ && $dayname[0] =~ /Pasc7/);
 
         if ($hora eq 'Completorium' && $version =~ /^Ordo Praedicatorum/) {
-          $versum = %{setupstring($lang, 'Psalterium/Minor Special.txt')}{'Versum 4'};
+          my %ant = %{setupstring($lang, 'Psalterium/Minor Special.txt')};
+          $versum = $ant{'Versum 4'};
           postprocess_vr($versum, $lang);
         }
         $hymnsource = 'Minor';