From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 13 Jun 2015 01:44:53 +0000 (+0200)
Subject: sc: unexceptional header tags for empty category cells
X-Git-Tag: v1.8~168
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/1d8f89a77c6bb11649e0a7179e65fe339c419451

sc: unexceptional header tags for empty category cells

Clean up code by making first column <th> for all rows.
---

diff --git a/sc.plp b/sc.plp
index 4706bbf..7174228 100644
--- a/sc.plp
+++ b/sc.plp
@@ -232,17 +232,15 @@ sub showval {
 
 		print(
 			'<tr>',
-			sprintf('<t%s class="cat">%s',
-				$cat ne $_->{cat} ? ('h', $cat = $_->{cat}) : ('d', '&nbsp;')
-			),
-			'<td>' . $_->{name},
+			'<th class="cat">', $cat ne $_->{cat} && ($cat = $_->{cat}),
+			'<td>', $_->{name},
 			showunitcols($_),
 		);
 
 		for my $subrow (@{ $_->{special} }) {
 			$subrow->{alt} or next;
 			print(
-				'<tr class="alt"><td class="cat"><td>' . $subrow->{alt},
+				'<tr class="alt"><td class="cat"><td>', $subrow->{alt},
 				showunitcols($subrow),
 			);
 		}