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> "