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; }