im_default_nav_header previous_page next_page { search_action " " } { search_target " " } { submit_text "Go" }What it does:
Returns appropriately punctuated links for previous and next pages.Defined in: /web/philip/tcl/intranet-defs.tcl
Source code:
set link [im_maybe_insert_link $previous_page $next_page " | "]
if { [empty_string_p $search_action] } {
return $link
}
return "<form method=get action=\"[philg_quote_double_quotes $search_action]\">
<input type=hidden name=target [export_form_value search_target]>
<input type=text name=keywords [export_form_value search_default]>
<input type=submit value=\"[philg_quote_double_quotes $submit_text]\">
[util_decode $link "" "" "<br>$link"]
</form>
"