prev-next-links.tcl

Does not contain a contract.

Location:

/packages/bug-tracker/lib/prev-next-links.tcl

Related Files

• packages/bug-tracker/lib/prev-next-links.tcl
• packages/bug-tracker/lib/prev-next-links.adp

[ hide source ] | [ make this the default ]

File Contents

# Prev/Next links
#
# Expects:
#   prev_url:onerow,optional
#   next_url:onerow,optional

multirow create links url value rownum

set rownum 0

foreach var { prev_url next_url } pretty [list [_ acs-kernel.common_previous] [_ acs-kernel.common_next] ] {
    if { [info exists $var] } {
        multirow append links [set $var] $pretty [incr rownum]
    }
}

ad_return_template