diff options
author | Eric Wong <e@80x24.org> | 2022-09-10 08:17:14 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2022-09-10 19:50:43 +0000 |
commit | 7909a26697d91a74a3b4df638b2a658432f1b799 (patch) | |
tree | a69628d08c4f00871e5866c0a08ca59ebd1fed9e /lib/PublicInbox/View.pm | |
parent | 83f305a2f87b0bf82ba8b58493a8f8c0b063bb54 (diff) | |
download | public-inbox-7909a26697d91a74a3b4df638b2a658432f1b799.tar.gz |
qq() is a nice alternative to "" when there's embedded " characters in HTML entities.
Diffstat (limited to 'lib/PublicInbox/View.pm')
-rw-r--r-- | lib/PublicInbox/View.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/PublicInbox/View.pm b/lib/PublicInbox/View.pm index 40b4bf36..2f99179e 100644 --- a/lib/PublicInbox/View.pm +++ b/lib/PublicInbox/View.pm @@ -819,23 +819,23 @@ EOF if (my $n = $ctx->{next_msg}) { $n = mid_href($n); - $next = "<a\nhref=\"$upfx$n/\"\nrel=next>next</a>"; + $next = qq(<a\nhref="$upfx$n/"\nrel=next>next</a>); } my $par = $ctx->{parent_msg}; my $u = $par ? $upfx.mid_href($par).'/' : undef; if (my $p = $ctx->{prev_msg}) { $prev = mid_href($p); if ($p && $par && $p eq $par) { - $prev = "<a\nhref=\"$upfx$prev/\"\n" . + $prev = qq(<a\nhref="$upfx$prev/"\n) . 'rel=prev>prev parent</a>'; $parent = ''; } else { - $prev = "<a\nhref=\"$upfx$prev/\"\n" . + $prev = qq(<a\nhref="$upfx$prev/"\n) . 'rel=prev>prev</a>'; - $parent = " <a\nhref=\"$u\">parent</a>" if $u; + $parent = qq( <a\nhref="$u">parent</a>) if $u; } } elsif ($u) { # unlikely - $parent = " <a\nhref=\"$u\"\nrel=prev>parent</a>"; + $parent = qq( <a\nhref="$u"\nrel=prev>parent</a>); } $foot .= "$next $prev$parent "; } else { # unindexed inboxes w/o over |