Restore Commemoratio de die infra 8vam Nat

close DivinumOfficium#4225 DivinumOfficium#4226
FAJ-Munich · Dec 23, 2024 · 098f7a9 · 098f7a9
1 parent 2046201
commit 098f7a9
Showing 1 changed file with 5 additions and 6 deletions.
diff --git a/web/cgi-bin/horas/specials/orationes.pl b/web/cgi-bin/horas/specials/orationes.pl
@@ -229,7 +229,8 @@ sub oratio {
       }
 
       if ($c && $octvespera && $c =~ /$octavestring/i) {
-        setbuild2("Substitute Commemoratio of Octave to $octvespera");
+        setbuild2("Substitute Commemorated Octave to Vesp-$octvespera");
+        our $octavam = '';
 
         if (exists($w{"Commemoratio $octvespera"})) {
           $c = getrefs($w{"Commemoratio $octvespera"}, $lang, $octvespera, $w{Rule});
@@ -240,10 +241,6 @@ sub oratio {
         }
       }
 
-      if ($dayofweek == 6 && $hora eq 'Laudes' && exists($w{'Commemoratio Sabbat'}) && $version !~ /1960/) {
-        $c = getrefs($w{'Commemoratio Sabbat'}, $lang, 2, $w{Rule});
-      }
-
       if ($c) {
         my $redn = setfont($largefont, 'N.');
         $c =~ s/ N\. / $redn /g;
@@ -337,7 +334,8 @@ sub oratio {
           }
 
           if ($c && $octvespera && $c =~ /$octavestring/i) {
-            setbuild2("Substitute Commemoratio of Octave to $octvespera");
+            setbuild2("Substitute Commemorated Octave to Vesp-$octvespera");
+            our $octavam = '';
 
             if (exists($c{"Commemoratio $octvespera"})) {
               $c = getrefs($c{"Commemoratio $octvespera"}, $lang, $octvespera, $c{Rule});
@@ -830,6 +828,7 @@ sub getrefs {
       } else {
         $a = '';
       }
+
       $w = "$before$a$after";
       next;
     }