dt_navbar_view (private)

 dt_navbar_view view base_url date

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

Parameters:

view (required)

base_url (required)

date (required)

Returns:

a navbar for the mini_calendar_widget

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

Testcases:

No testcase defined.

Source code:

    set date [ns_urlencode $date]

    # Note: use append so that all of the strings are joined together
    # properly

    append result "
    <tr align=center class=\"table-header\">"

    # ben: taking out year for now, since it doesn't work
    foreach {viewname viewlink viewdesc} [list "list" [_ acs-datetime.List] [_ acs-datetime.view_calendar_day] "day" [_ acs-datetime.Day] [_ acs-datetime.view_calendar_list] "week" [_ acs-datetime.Week] [_ acs-datetime.view_calendar_week] "month" [_ acs-datetime.Month] [_ acs-datetime.view_calendar_month]] {
        set text [string toupper $viewlink 0]
        if { $viewname == $view } {
            # current view
            append result [subst {<td class="selected">
                <span style="font-size: smaller; font-weight: bold">$text</span>
                </td>
            }]
        } else {
            append result [subst {<td class="no-border">
                <a href="[ns_quotehtml ${base_url}view=$viewname&date=$date]" title="$viewdesc">
                <span style="font-size: smaller; font-weight: bold">$text</span></a>
                </td>
            }]
        }
    }

    append result "
    </tr>
    "

    return $result

XQL Not present:

Generic, PostgreSQL, Oracle