first temptative to solve issue IPGP#21

PBoissier · Feb 16, 2020 · 95ef741 · 95ef741
1 parent 0b1d329
commit 95ef741
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/CODE/cgi-bin/sefran3.pl b/CODE/cgi-bin/sefran3.pl
@@ -471,11 +471,13 @@ =head1 Query string parameters
 								# case B: event has started in a previous hour
 								} else {
 									$deb_evt = 2;
+									my $hdeb = $MC{hour};
+									$hdeb -= 24 if ($hdeb > $hh); # solves event crossover a day
 									# case B1: more than 3 hours overlap = full width
-									if ($h0 + $dh > $hh - $MC{hour} + 1) {
+									if ($h0 + $dh > $hh - $hdeb + 1) {
 										$dur_evt = $SEFRAN3{HOURLY_WIDTH};
 									} else {
-										$dur_evt = $SEFRAN3{HOURLY_WIDTH}*($h0 + $dh - ($hh-$MC{hour}));
+										$dur_evt = $SEFRAN3{HOURLY_WIDTH}*($h0 + $dh - ($hh-$hdeb)) + 1;
 									}
 								}
 								print "<DIV class=\"mctag\" onMouseOut=\"nd()\" onMouseOver=\"overlib('$MC{info}',CAPTION,'$MC{firstarrival}',BGCOLOR,'$types{$MC{type}}{Color}',FGCOLOR,'#EEEEEE',WIDTH,250)\" onClick=\"window.open('$prog$MC{edit}')\"",