From 154e6f9ce1387b02a51ed67b24e92efafebb6825 Mon Sep 17 00:00:00 2001
From: FAJ-Munich <60485740+FAJ-Munich@users.noreply.github.com>
Date: Wed, 15 May 2024 19:51:37 +0200
Subject: [PATCH] Restore functionality of Building Script

---
 web/cgi-bin/horas/horas.pl | 23 ++++++++++++++++++-----
 1 file changed, 18 insertions(+), 5 deletions(-)

diff --git a/web/cgi-bin/horas/horas.pl b/web/cgi-bin/horas/horas.pl
index 2d98f1e4532..6f74efdc571 100644
--- a/web/cgi-bin/horas/horas.pl
+++ b/web/cgi-bin/horas/horas.pl
@@ -29,13 +29,26 @@ sub horas {
   $hora = 'Vespera' if $hora =~ /vesper/i;
   print "<H2 ID='${hora}top'>" . adhoram($hora) ."</H2>\n";
   my (@script1, @script2);
-  our ($lang1, $lang2);
-  if ($Ck) { $version = $version1; precedence(); }
+	our ($lang1, $lang2, $column);
+	$column = 1;	# The 'setbuild' functions in specials.pl check for this to set the Building Script
+	if ($Ck) {
+		$version = $version1;
+		precedence();
+	}
+	@script1 = getordinarium($lang1, $command);
+	@script1 = specials(\@script1, $lang1);
+	$column = 2;	# This prevents the duplications in the Building Script
+	if ($Ck) {
+		$version = $version1;
+		precedence();
+	}
   @script1 = getordinarium($lang1, $command);
   @script1 = specials(\@script1, $lang1);
-  if ($Ck) { $version = $version2; 
-    load_languages_data($lang1, $lang2, $version, $missa);
-    precedence(); }
+	if ($Ck) {
+		$version = $version2;
+		load_languages_data($lang1, $lang2, $version, $missa);
+		precedence();
+	}
   if (!$only) {
     @script2 = getordinarium($lang2, $command);
     @script2 = specials(\@script2, $lang2);