Merge pull request #4148 from mbab/hfixes

code: fixes
DivinumOfficium · Oct 29, 2024 · 3be38ba · 3be38ba
2 parents d2f75d3 + 2ff7292
commit 3be38ba
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/web/cgi-bin/horas/horascommon.pl b/web/cgi-bin/horas/horascommon.pl
@@ -1285,7 +1285,7 @@ sub precedence {
   our $datafolder;
 
   # set global date
-  our ($date1) = shift || strictparam('date');
+  our ($date1) = shift || strictparam('date') || strictparam('date1');
   if (!$date1 || $votive =~ /hodie/) { $date1 = gettoday(); }
   $date1 =~ s/\//\-/g;
   ($month, $day, $year) = split('-', $date1);

diff --git a/web/cgi-bin/horas/specmatins.pl b/web/cgi-bin/horas/specmatins.pl
@@ -1093,7 +1093,7 @@ sub lectio : ScriptFunc {
   my $item = translate('Lectio', $lang);
   $item .= " %s" unless ($item =~ /%s/);
   $w = "_\n" . setfont($largefont, sprintf($item, $num)) . "\n$w";
-  my @w = split("\n", $w);
+  my @w = split("\n+", $w);
   $w = "";
 
   my $initial = $nonumbers;