Bug fixes

web/cgi-bin/horas/horasscripts.pl

@@ -355,6 +355,12 @@ sub special : ScriptFunc {
 
   if (exists($w{$name})) {
     $r = "!Special $name\n_\n" . chompd($w{$name}) . "\n";
+  } elsif ($name =~ /^\#/) {
+    my @scriptum = ();
+    push(@scriptum, $name);
+
+    @scriptum = specials(\@scriptum, $lang, 1);
+    $r = join("\n", @scriptum);
   } else {
     $r = "$name is missing";
   }

web/cgi-bin/horas/specials.pl

@@ -21,6 +21,7 @@
 sub specials {
   my $s = shift;
   my $lang = shift;
+  my $special = shift;
   $octavam = '';    #check duplicate commemorations
   my %w = columnsel($lang) ? %winner : %winner2;
 
@@ -33,12 +34,13 @@ sub specials {
   }
 
   my $i = $hora eq 'Laudes' ? ' 2' : $hora eq 'Vespera' ? " $vespera" : '';
-  if (exists($w{"Special $hora$i"})) { return loadspecial($w{"Special $hora$i"}); }
+  if (!$special && exists($w{"Special $hora$i"})) { return loadspecial($w{"Special $hora$i"}); }
 
   our @s = ();
   my @t = @$s;
 
-  my ($skipflag, $tind);
+  our $litaniaflag;
+  my ($specialflag, $skipflag, $tind);
 
   while ($tind < @t) {
     $item = $t[$tind++];
@@ -265,6 +267,7 @@ sub specials {
     }
 
     if ($item =~ /Antiphona finalis/) {
+      next if $litaniaflag || $specialflag;
 
       if ($version =~ /^Ordo Praedicatorum/) {
         push(@s, '#' . translate('Antiphonae finalis', $lang));
@@ -314,10 +317,13 @@ sub specials {
         || $scriptura{Rule} =~ /Laudes Litania/i
         || $flag)
     ) {
-      my %w = %{setupstring($lang, 'Psalterium/Special/Major Special.txt')};
+      my %w = %{setupstring($lang, 'Psalterium/Special/Preces.txt')};
       my $lname = $version =~ /Monastic/ ? 'LitaniaM' : 'Litania';
       if ($version =~ /1570/ && exists($w{LitaniaT})) { $lname = 'LitaniaT'; }
-      push(@s, $w{$lname});
+      push(@s, '$Domine exaudi', '&Benedicamus_Domino', '');
+      my @lit = split("\n\n", $w{$lname});
+      push(@lit, '', '');
+      push(@s, @lit[0, -1, 1, -2, 2]);
       setbuild1($item, 'Litania omnium sanctorum');
       $skipflag = 1;
       $litaniaflag = 1;
@@ -328,6 +334,7 @@ sub specials {
       my %w = columnsel($lang) ? %winner : %winner2;
       push(@s, $w{Conclusio});
       $skipflag = 1;
+      $specialflag = 1;
     }
 
     # Set special conclusion when Office of the Dead follows.
@@ -340,12 +347,14 @@ sub specials {
         push(@s, prayer('DefunctV', $lang));
         setbuild1($item, 'Recite Vespera defunctorum');
         $skipflag = 1;
+        $specialflag = 1;
       } elsif (($dirge || $winner{Rule} =~ /Matutinum et Laudes Defunctorum/)
         && $hora eq 'Laudes')
       {
         push(@s, prayer('DefunctM', $lang));
         setbuild1($item, 'Recite Officium defunctorum');
         $skipflag = 1;
+        $specialflag = 1;
       }
     }
   }

web/www/horas/Deutsch/Psalterium/Special/Preces.txt

@@ -1,7 +1,5 @@
 [Litania]
-&Dominus_vobiscum
-&Benedicamus_Domino 
-!Litania omnium Sanctorum
+#Litania omnium Sanctorum
 v. Kyrie, eléison. Kyrie, eléison.
 Christe, eléison. Christe, eléison.
 v. Kyrie, eléison. Kyrie, eléison.
@@ -132,19 +130,10 @@ Christe, exáudi nos.
 v. Kyrie, eléison. Kyrie, eléison.
 Christe, eléison. Christe, eléison.
 v. Kyrie, eléison. Kyrie, eléison.
-_
+
 $Pater noster Et
 _
-!Psalm 69
-!(in finem David in rememoratione eo quod salvum me fecit Dominus)
-Deus, in adjutórium meum inténde: * Dómine, ad adjuvándum me festína.
-Confundántur et revereántur, * qui quærunt ánimam meam.
-Avertántur retrórsum, et erubéscant, * qui volunt mihi mala.
-Avertántur statim erubescéntes, * qui dicunt mihi: Euge, euge.
-Exsúltent et læténtur in te omnes qui quærunt te, * et dicant semper: Magnificétur Dóminus: qui díligunt salutáre tuum.
-Ego vero egénus, et pauper sum: * Deus, ádjuva me.
-Adjútor meus, et liberátor meus es tu: * Dómine, ne moréris.
-&Gloria
+&psalm(69)
 _
 V. Salvos fac servos tuos.
 R. Deus meus, sperántes in te.
@@ -170,7 +159,7 @@ R. Et de Sion tuére eos.
 V. Dómine, exáudi oratiónem meam.
 R. Et clamor meus ad te véniat.
 &Dominus_vobiscum1
-_
+
 !Oratio
 v. Orémus
 v.Deus, cui próprium est miseréri semper et parcere: súscipe deprecatiónem nostram, ut nos, et omnes fámulos tuos, quos delictórum caténa constringit, miserátio tuæ pietátis cleménter absolvat.

web/www/horas/English/Psalterium/Special/Preces.txt

@@ -1,8 +1,5 @@
 [Litania]
-&Dominus_vobiscum
-&Benedicamus_Domino 
-_
-!Litany of the Saints
+#Litany of the Saints
 Lord, have mercy on us.
 Christ, have mercy on us.
 Lord, have mercy on us.
@@ -133,18 +130,10 @@ Christ, graciously hear us.
 Lord, have mercy on us.
 Christ, have mercy on us.
 Lord, have mercy on us.
-_
+
 $Pater noster Et
 _
-!Psalm 69
-v. O God, come to my assistance; O Lord, make haste to help me. 
-Let them be confounded and ashamed that seek my soul: 
-Let them be turned backward, and blush for shame that desire evils to me: 
-Let them be presently turned away blushing for shame that say to me: Tis well, tis well. 
-Let all that seek thee rejoice and be glad in thee; and let such as love thy salvation say always: The Lord be magnified.
-But I am needy and poor; O God, help me. 
-Thou art my helper and my deliverer: O Lord, make no delay. 
-&Gloria
+&psalm(69)
 _
 V. Save thy servants.
 R. Who hope in thee, O God.
@@ -170,7 +159,7 @@ R. And from Sion protect them.
 V. O Lord, hear my prayer.
 R. And let my cry come unto you.
 &Dominus_vobiscum1
-_
+
 !Prayer
 $Oremus.
 v. O God, it is according to thy nature always to show mercy and forgiveness. Receive our petition that we and all thy servants, bound by the chains of sin, may, by thy tender mercy, be pardoned.

web/www/horas/English/Sancti/11-02.txt

@@ -14,7 +14,6 @@ $Ave Maria
 
 [Oratio mortuorum1]
 @Commune/C9:Oratio_a_porta:s/&psalm.*\)//s
-&Dominus_vobiscum2
 _
 $Oremus
 v. We beseech you, O Lord, to be merciful to the souls of all your servants and handmaids for whom we humbly entreat your majesty, that by these offices of pious supplication they may be found worthy to enter into everlasting rest.
@@ -95,7 +94,6 @@ R. Amen.
 
 [Oratio mortuorum2]
 @Commune/C9:Oratio_a_porta:s/&psalm.*\)//s
-&Dominus_vobiscum2
 _
 $Oremus
 v. We suppliants, O Lord, pour forth our prayers for the souls of all thy servants and handmaids, that thou wouldst mercifully pardon whatsoever they have committed through human frailty, and graciously vouchsafe to deliver them from the pains of purgatory. 
@@ -114,8 +112,7 @@ $Credo
 
 &special('Oratio mortuorum2', 'English')
 
-#Martyrologium
-&martyrologium
+&special('#Martyrologium', 'English')
 _
 V. The just shall be in everlasting remembrance.
 R. They will not fear from hearing evil.

web/www/horas/Espanol/Psalterium/Special/Preces.txt

@@ -1,8 +1,5 @@
 [Litania]
-&Dominus_vobiscum
-&Benedicamus_Domino 
-_
-!Letanía de los Santos.
+#Letanía de los Santos.
 v. Señor, ten piedad. Señor, ten piedad.
 Cristo, ten piedad. Cristo, ten piedad.
 Señor, ten piedad. Señor, ten piedad.
@@ -132,19 +129,11 @@ Cristo, escúchanos.
 Señor, ten piedad. Señor, ten piedad.
 Cristo, ten piedad. Cristo, ten piedad.
 Señor, ten piedad. Señor, ten piedad.
-_
+
 $Pater noster Et
 _
-!Salmo 69
-v. Dios mío, dígnate librarme; * Señor, date prisa en socorrerme. 
-Sufran una derrota ignominiosa * los que me persiguen a muerte; 
-Vuelvan la espalda afrentados * los que traman mi daño; 
-Que se retiren avergonzados * los que se ríen de mí. 
-Alégrense y gocen contigo todos los que te buscan; * y digan siempre: «Dios es grande», los que desean tu salvación. 
-Yo soy pobre y desgraciado: * Dios mío, socórreme, 
-Que Tú eres mi auxilio y mi liberación, * ¡Señor, no tardes! 
-&Gloria
-__
+&psalm(69)
+_
 V. Salva, ¡oh Dios!, a tus siervos.
 R. Que confían en ti.
 V. Sé nuestro refugio, Señor, y nuestro bastión.
@@ -169,7 +158,7 @@ R. Defiéndelos desde Sión.
 V. Señor, escucha nuestra oración.
 R. Y llegue a ti nuestro clamor.
 &Dominus_vobiscum1
-_
+
 !Oración.
 $Oremus.
 v. ¡Oh Dios, que siempre te compadeces y perdonas!, escucha nuestra súplica: que nosotros y todos tus siervos, encadenados por el pecado, sintamos el perdón de tu piedad y misericordia.	

web/www/horas/Espanol/Sancti/11-02.txt

@@ -17,7 +17,6 @@ $Ave Maria
 
 [Oratio mortuorum1]
 @Commune/C9:Oratio_a_porta:s/&psalm.*\)//s
-&Dominus_vobiscum2
 _
 $Oremus
 v. Ten misericordia, Señor, de tus siervos, por cuya salvación te ofrecemos con humildad este sacrificio de alabanza; y por este misterio de reconciliación merezcan llegar al descanso eterno.
@@ -107,7 +106,6 @@ R. Amén.
 
 [Oratio mortuorum2]
 @Commune/C9:Oratio_a_porta:s/&psalm.*\)//s
-&Dominus_vobiscum2
 _
 $Oremus
 v. Humildemente te pedimos, Señor, por las almas de todos tus siervos y siervas, perdónales las faltas cometidas a lo largo de su vida, y por tu bondad da término a sus penas.
@@ -126,8 +124,7 @@ $Credo
 
 &special('Oratio mortuorum2', 'Espanol')
 
-#Martyrologium
-&martyrologium
+&special('#Martyrologium', 'Espanol')
 _
 V. Los justos dejan una memoria eterna.
 R. No temerán el anuncio funesto. 

web/www/horas/Francais/Psalterium/Special/Preces.txt

@@ -1,7 +1,5 @@
 [Litania]
-&Dominus_vobiscum
-&Benedicamus_Domino
-!Litanie des Saints
+#Litanie des Saints
 Seigneur ayez pitié. Seigneur ayez pitié.
 Christ ayez pitié. Christ ayez pitié.
 Seigneur ayez pitié. Seigneur ayez pitié.
@@ -130,19 +128,10 @@ Christ, exaucez-nous.
 v. Seigneur ayez pitié. Seigneur ayez pitié.
 Christ ayez pitié. Christ ayez pitié.
 v. Seigneur ayez pitié. Seigneur ayez pitié.
-_
+
 $Pater noster Et
 _
-!Psaume 69
-!(in finem David in rememoratione eo quod salvum me fecit Dominus)
-O Dieu, venez à mon aide : * Seigneur, hâtez-Vous de me secourir.
-Qu'ils soient confondus et couverts de honte, * ceux qui cherchent à m'ôter la vie.
-Qu'ils reculent en arrière et soient dans la confusion, * ceux qui me veulent du mal.
-Qu'ils reculent aussitôt, rougissant de honte, * ceux qui me disent : Va ! va !.
- Mais que tous ceux qui Vous cherchent tressaillent d'allégresse et de joie , * et que ceux qui aiment Votre salut disent sans cesse : Que le Seigneur soit glorifié.
-Pour moi, je suis pauvre et indigent : * ô Dieu, aidez-moi.
-Vous êtes mon aide et mon libérateur : * Seigneur, ne tardez pas.
-&Gloria
+&psalm(69)
 _
 V. Sauvez vos serviteurs.
 R. Qui espèrent en vous, mon Dieu.
@@ -168,7 +157,7 @@ R. Et de Sion, protégez-les.
 V. Seigneur, exaucez ma prière.
 R. Et que mes cris s’élèvent jusqu’à vous.
 &Dominus_vobiscum1
-_
+
 !Oratio
 v. Prions
 v. O Dieu, dont le propre est d’avoir toujours pitié et de pardonner, accueillez notre prière ; et que, par un effet de votre clémence et de votre bonté miséricordieuse, nous soyons délivrés des liens de nos péchés, nous et tous vos serviteurs.