Merge pull request #4102 from FAJ-Munich/master

Restore popup functionalities for Psalmi & Lectiones

web/cgi-bin/horas/popup.pl

@@ -91,12 +91,21 @@ package main;
 $textwidth = 90;
 $only = $lang1 && $lang1 =~ /^$lang2$/i;
 precedence();
+setsecondcol();
 
 load_languages_data($lang1, $lang2, $version, $missa);
-$title = translate(get_link_name($popup), $lang1);
+
+# We need to revert the masked parantheses at this point
+$popup =~ s/\&lpar/\(/;
+$popup =~ s/\&rpar/\)/;
+my $title = $popup;
+$title =~ s/^[\$\&]?([a-z])/\u$1/;
+$title =~ s/,/ /;
+$title =~ s/,/-/;
+$title = translate(get_link_name($title), $lang1);
 $title =~ s/[\$\&]//;
 $expand = 'all';
-if ($popup =~ /\&/) { $popup =~ s /\s/\_/g; }
+if ($popup =~ /\&/) { $popup =~ s/\s/\_/g; }
 $text = resolve_refs($popup, $lang1);
 $t = length($text);
 

web/cgi-bin/horas/webdia.pl

@@ -614,6 +614,10 @@ sub wnum {
 # set a link line
 sub linkcode {
   my ($name, $ind, $lang, $disabled) = @_;
+
+  # We need to mask paranthesis to be passed via JavaScript to popup.pl
+  $name =~ s/\(/\&lpar/;
+  $name =~ s/\)/\&rpar/;
   return "<INPUT TYPE='RADIO' NAME='link' $disabled onclick='linkit(\"$name\", $ind, \"$lang\");'>";
 }