calendar::navigation_bounds (public)

 calendar::navigation_bounds

Defined in packages/calendar/tcl/calendar-procs.tcl

Return the inclusive navigation years for the current calendar instance. NavigationMinYear is absolute; NavigationYearsAhead is relative to the current server year so the upper bound advances without configuration edits.

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

    set min [parameter::get -parameter NavigationMinYear -default 2000]
    set ahead [parameter::get -parameter NavigationYearsAhead -default 5]
    if {![string is integer -strict $min] || $min < 1 || $min > 9999
        || ![string is integer -strict $ahead] || $ahead < 0 || $ahead > 9999} {
        error "Invalid calendar navigation bounds"
    }
    scan [clock format [clock seconds] -format %Y] %d year
    set max [expr {min(9999, $year + $ahead)}]
    if {$min > $max} {error "Calendar navigation minimum exceeds maximum"}
    return [list $min $max]

Generic XQL file:

packages/calendar/tcl/calendar-procs.xql

PostgreSQL XQL file:

packages/calendar/tcl/calendar-procs-postgresql.xql

Oracle XQL file:

packages/calendar/tcl/calendar-procs-oracle.xql