Tighten display of additive hours for same weekdays

1 files changed, 9 insertions, 5 deletions

diff --git a/bin/rdf2hours b/bin/rdf2hours
index 766ab52..f37ac1c 100755
--- a/bin/rdf2hours
+++ b/bin/rdf2hours
@@ -223,14 +223,18 @@ for my $category ( @category ) {
 					$data{$category}{$name}{specbundle}{$specbundle}{spec}{$weekdays}{speccomment},
 				);
 				push @specbundle, br if (@specbundle);
-				# TODO: Tighten display of additive hours for same weekdays
+				my @hours;
 				for my $hours ( sort keys %{ $data{$category}{$name}{specbundle}{$specbundle}{spec}{$weekdays}{hours} } ) {
-					push @specbundle, "\n", span(
-						span($specdescription, ":"),
-						"\t",
-						span($data{$category}{$name}{specbundle}{$specbundle}{spec}{$weekdays}{hours}{$hours}),
+					# TODO: make simplified html (preferred for Scribus) optional
+#					push @hours, br, "\n" if (@hours);
+					push @hours, br if (@hours);
+					push @hours, "\t", span(
+						$data{$category}{$name}{specbundle}{$specbundle}{spec}{$weekdays}{hours}{$hours}
 					);
 				}
+				push @specbundle, "\n", span(
+					span($specdescription, ":"), @hours,
+				);
 			}
 			# TODO: make simplified html (preferred for Scribus) optional
 #			push @content, p("\n", @specbundle) if (@specbundle);