diff options
author | khali <khali@7894878c-1315-0410-8ee3-d5d059ff63e0> | 2013-04-16 07:25:05 +0000 |
---|---|---|
committer | khali <khali@7894878c-1315-0410-8ee3-d5d059ff63e0> | 2013-04-16 07:25:05 +0000 |
commit | cdf5cf554bd14724d81915b5d5d84efeab745983 (patch) | |
tree | 4c8a6e9e9dcd791a4e72f0b7d696416b5e1327c1 | |
parent | 62a4707a89f971683237dc0d45f1ed96514bb556 (diff) | |
download | i2c-tools-cdf5cf554bd14724d81915b5d5d84efeab745983.tar.gz |
decode-dimms: For HTML output, merge adjacent cells even if the whole line cannot be merged
Original patch from Paul Goyette.
git-svn-id: http://lm-sensors.org/svn/i2c-tools/trunk@6159 7894878c-1315-0410-8ee3-d5d059ff63e0
-rwxr-xr-x | eeprom/decode-dimms | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/eeprom/decode-dimms b/eeprom/decode-dimms index 4dab039..252f010 100755 --- a/eeprom/decode-dimms +++ b/eeprom/decode-dimms @@ -438,10 +438,21 @@ sub real_printl($$) # print a line w/ label and values $label = html_encode($label); @values = map { html_encode($_) } @values; print "<tr><td valign=top>$label</td>"; - if ($opt_merge && $same_values) { + if (!$opt_merge) { + print "<td>$_</td>" foreach @values; + } elsif ($same_values) { print "<td colspan=".(scalar @values).">$values[0]</td>"; } else { - print "<td>$_</td>" foreach @values; + # For HTML output, merge adjacent cells even if + # the whole line cannot be merged. + my $colcnt = 0; + while (@values) { + $colcnt++; + my $value = shift @values; + next if (@values && $value eq $values[0]); + print "<td" . ($colcnt > 1 ? " colspan=$colcnt" : "") .">$value</td>"; + $colcnt = 0; + } } print "</tr>\n"; } else { |