Restore functionality of Building Script

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