im_default_nav_header

one of the documented procedures in this installation of the ACS
Usage:
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>
"


philg@mit.edu