dt_widget_numeric_range (public, deprecated)

 dt_widget_numeric_range name begin end [ default ] [ interval ] \
    [ with_leading_zeros ]

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

Deprecated. Invoking this procedure generates a warning.

DEPRECATED: this widget would be difficult to style and is actually simpler to inline such an idiom in one's tcl or adp code. The templating system also provides select widgets that take care of validating the selection.

Parameters:

name (required)

begin (required)

end (required)

default (optional)

interval (optional, defaults to "1")

with_leading_zeros (optional, defaults to "0")

Returns:

an HTML select widget for a numeric range

See Also:

• template::widget::select
• template::widget::multiselect

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

Testcases:

No testcase defined.

Source code:

ad_log_deprecated proc dt_widget_numeric_range
    if {$with_leading_zeros} {
        set format "%02d"
    } else {
        set format "%d"
    }

    if {$default ne ""} {
        set default [util::trim_leading_zeros $default]
    }

    set input "<option value=_undef>--\n"

    for { set i $begin } { $i <= $end } { incr i $interval} {
        append input "[expr {$i == $default ? "<option selected>" : "<option>"}][format $format $i]\n"
    }

    return "<select name=\"$name\">\n$input</select>"

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

packages/acs-datetime/tcl/acs-datetime-procs.xql