browser: version number formatting

[sheet.git] / browser.plp

diff --git a/browser.plp b/browser.plp
index 151daebb8f8821a858f7abed7839425c53573390..bbf2d6bb9288b0e98d0fb0af8cb1cc2c13830e95 100644 (file)
--- a/browser.plp
+++ b/browser.plp
@@ -129,7 +129,7 @@ for my $id (sort {
                                printf '<td class="%s" colspan="%d">%s',
                                        $CSTATS{ $data->{$browser}->{$prev} },
                                        scalar @span,
-                                       join('‒', $span[0], @span > 1 ? $span[-1] : ());
+                                       showversions(\@span),
                                undef $prev;
                                @span = ();
                        }
@@ -150,6 +150,16 @@ sub paddedver {
        return sprintf('%02d', $1) . $2;
 }
 
+sub showversions {
+       my ($span) = @_;
+       splice @$span, 1, -1;
+       for (@$span) {
+               s/^\./0./;
+               s/x$/.*/;
+       }
+       return join('‒', @$span);
+}
+
 :>
 <hr>