- my $top = "<b>$desc</b> (<a\nhref=\"$atom\">Atom feed</a>)";
- if ($obj->search) {
- $top = qq{<form\naction="$upfx"><pre>$top} .
- qq{ <input\nname=q\ntype=text />} .
+ my $tip = $ctx->{-html_tip} || '';
+ my $top = "<b>$desc</b>";
+ my $links = "<a\nhref=\"$help\">help</a> / ".
+ "<a\nhref=\"$color\">color</a> / ".
+ "<a\nhref=\"$atom\">Atom feed</a>";
+ if ($ibx->search) {
+ my $q_val = $ctx->{-q_value_html};
+ if (defined $q_val && $q_val ne '') {
+ $q_val = qq(\nvalue="$q_val");
+ } else {
+ $q_val = '';
+ }
+ # XXX gross, for SearchView.pm
+ my $extra = $ctx->{-extra_form_html} || '';
+ my $action = $upfx eq '' ? './' : $upfx;
+ $top = qq{<form\naction="$action"><pre>$top} .
+ qq{\n<input\nname=q\ntype=text$q_val />} .
+ $extra .