Grr... bug fix

diff --git a/perl/sct6 b/perl/sct6
index e55560f933d34383a9b0b716d8220cf4e729a91b..843f1030f03e510c119e140704e815848e387206 100755 (executable)
--- a/perl/sct6
+++ b/perl/sct6
@@ -511,7 +511,7 @@ sub do_html_schedule {
     print "</th></tr>\n";
        foreach my $row (@schedule) {
            map { s/\n/<br \/>/g; $_} %$row;
-           $row->{'duration'} =~ s/-/\n/g;
+           $row->{'duration'} =~ s/-/<br \/>/g;
            $row->{'duration'} =~ s/\d\d(\d\d)(\d\d)(\d\d)/$2-$3-$1/g;
            print '<tr class="'.$shade.'">';
            $shade = ($shade eq "dark"?"light":"dark");