From 098f7a9577ebcab37d7586c7542daac63b809273 Mon Sep 17 00:00:00 2001
From: FAJ-Munich <60485740+FAJ-Munich@users.noreply.github.com>
Date: Mon, 23 Dec 2024 13:51:12 +0100
Subject: [PATCH] Restore Commemoratio de die infra 8vam Nat

close #4225 #4226
---
 web/cgi-bin/horas/specials/orationes.pl | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/web/cgi-bin/horas/specials/orationes.pl b/web/cgi-bin/horas/specials/orationes.pl
index 9a9b956f3c..fca66f8989 100644
--- 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;
     }