browser: include numbered notes in feature description
authorMischa POSLAWSKY <perl@shiar.org>
Sat, 7 Feb 2015 06:44:18 +0000 (07:44 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Sat, 7 Feb 2015 06:44:18 +0000 (07:44 +0100)
More consistent as earlier browser comments are included in generic notes.

browser.plp

index 8a5fba88bcc86b6e2585c238ec7f97d443073dac..d8ebf86e318ce8e85bddc26e43f7734d6842db35 100644 (file)
@@ -327,6 +327,11 @@ sub saytitlecol {
        print '<div class=aside>';
        print "<p>$_</p>"
                for formatnotes($row->{description}, $row->{notes} || ());
        print '<div class=aside>';
        print "<p>$_</p>"
                for formatnotes($row->{description}, $row->{notes} || ());
+       if (my %notes = %{ $row->{notes_by_num} }) {
+               say '<p>Browser-specific notes:';
+               say "<br>#$_: ", formatnotes($notes{$_}) for sort keys %notes;
+               say '</p>';
+       }
        printf 'Resources: %s.', join(', ', map {
                sprintf '<a href="%s">%s</a>', EscapeHTML($_->{url}), $_->{title}
        } @$_) for grep { @$_ } $row->{links} // ();
        printf 'Resources: %s.', join(', ', map {
                sprintf '<a href="%s">%s</a>', EscapeHTML($_->{url}), $_->{title}
        } @$_) for grep { @$_ } $row->{links} // ();