Merge pull request #4141 from mbab/h3899

code: ugly fix #3899
DivinumOfficium · Oct 24, 2024 · 8e1e441 · 8e1e441
2 parents eb51882 + 7a697e8
commit 8e1e441
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/web/cgi-bin/missa/propers.pl b/web/cgi-bin/missa/propers.pl
@@ -212,7 +212,7 @@ sub oratio {
   my $sub_unica_conc =
        $commemoratio{Rule} =~ /Sub unica conclusione in commemoratione/i
     || $winner{Rule} =~ /Sub unica concl(usione)?\s*$/mi
-    || world_mission_sunday();
+    || (world_mission_sunday() && $version !~ /1954/);
 
   if ($sub_unica_conc) {
     if ($version !~ /196/) {
@@ -390,6 +390,7 @@ sub setcc {
     $key = 30 + (8 - $1);
   } elsif ($s{Rank} =~ /;;1/ || $code >= 10) {
     $key = 80;
+    $key = 99 if world_mission_sunday();
   }    #Simplex=80;
   if ($s{Rule} =~ /Comkey=([0-9]+)/i) { $key = $1; }    #oct day Epi Cor = 20, simpl=70