diff options
author | Eric Wong <e@80x24.org> | 2016-07-01 00:20:19 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2016-07-01 00:30:28 +0000 |
commit | 21b7f9f282bd6b877f1da7a9d0169ce958191a34 (patch) | |
tree | 619dae8ec78f0b7967279dae290af74782827050 /lib/PublicInbox/WwwStream.pm | |
parent | d766499de41c8409d10d377bb0faaad1413028b9 (diff) | |
download | public-inbox-21b7f9f282bd6b877f1da7a9d0169ce958191a34.tar.gz |
We want to avoid the bare './' wherever possible, but it doesn't seem possible here.
Diffstat (limited to 'lib/PublicInbox/WwwStream.pm')
-rw-r--r-- | lib/PublicInbox/WwwStream.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/PublicInbox/WwwStream.pm b/lib/PublicInbox/WwwStream.pm index 6de1b310..d9abb5ab 100644 --- a/lib/PublicInbox/WwwStream.pm +++ b/lib/PublicInbox/WwwStream.pm @@ -39,7 +39,8 @@ sub _html_top ($) { } # XXX gross, for SearchView.pm my $extra = $ctx->{-extra_form_html} || ''; - $top = qq{<form\naction="$upfx"><pre>$top} . + my $action = $upfx eq '' ? './' : $upfx; + $top = qq{<form\naction="$action"><pre>$top} . qq{ <input\nname=q\ntype=text$q_val/>} . $extra . qq{<input\ntype=submit\nvalue=search />} . |