navbar.tcl

Calendar navigation bar

Location:

/packages/calendar/www/navbar.tcl

Related Files

• packages/calendar/www/navbar.tcl
• packages/calendar/www/navbar.adp

[ hide source ]

File Contents

ad_include_contract {

    Calendar navigation bar

} {
    {view:word {[parameter::get -parameter DefaultView -default day]}}
    {date:clock(%Y-%m-%d|%Y%m%d) "[dt_sysdate]"}
    {period_days:integer,notnull {[parameter::get -parameter ListView_DefaultPeriodDays -default 31]}}
    {base_url:localurl "[ad_conn url]"}
    {page_num:naturalnum ""}
}

if {$page_num ne ""} {
    set page_num "&page_num=$page_num"
} else {
    set page_num ""
}

if {$period_days in [list "" [parameter::get -parameter ListView_DefaultPeriodDays -default 31]]} {
    set url_stub_period_days ""
} else {
    set url_stub_period_days "&period_days=${period_days}"
}

foreach test_view {list day week month calendar} {
    if {$test_view eq $view} {
        set ${test_view}_selected_p t
    } else {
        set ${test_view}_selected_p f
    }
}

if { [string match "/dotlrn*" $base_url] } {
    set link "[export_vars -base $base_url -entire_form -exclude {export}]&export=print"
} else {
    set link "[export_vars -base $base_url {date {view day}}]&export=print"
}

multirow create views name text url spacer selected_p

multirow append views \
    [_ calendar.Day] \
    "day" \
    "[export_vars -base $base_url {date {view day}}]${page_num}\#calendar" \
    "   |   " \
    $day_selected_p

multirow append views \
    [_ calendar.Week] \
    "week" \
    "[export_vars -base $base_url {date {view week}}]${page_num}\#calendar" \
    "   |   " \
    $week_selected_p

multirow append views \
    [_ calendar.Month] \
    "month" \
    "[export_vars -base $base_url {date {view month}}]${page_num}\#calendar" \
    "   |      " \
    $month_selected_p 

multirow append views \
    [_ calendar.List] \
    "list" \
    "[export_vars -base $base_url {date {view list}}]${page_num}${url_stub_period_days}\#calendar" \
    "" \
    $list_selected_p


# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: