calendar::navigation_date_allowed_p (public)

 calendar::navigation_date_allowed_p date

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

Whether an ISO calendar date is inside the configured navigation window. Validate with clock scan, retaining its existing rollover interpretation.

Parameters:
date (required)

Partial Call Graph (max 5 caller/called nodes):
calendar::navigation_url calendar::navigation_url (private) calendar::navigation_date_allowed_p calendar::navigation_date_allowed_p calendar::navigation_url->calendar::navigation_date_allowed_p packages/calendar/www/view.tcl packages/calendar/ www/view.tcl packages/calendar/www/view.tcl->calendar::navigation_date_allowed_p calendar::navigation_bounds calendar::navigation_bounds (public) calendar::navigation_date_allowed_p->calendar::navigation_bounds

Testcases:
No testcase defined.
Source code:
    if {[catch {clock scan $date -format %Y-%m-%d} seconds]} {return 0}
    scan [clock format $seconds -format %Y] %d year
    lassign [calendar::navigation_bounds] min max
    return [expr {$year >= $min && $year <= $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

[ hide source ] | [ make this the default ]
Show another procedure: