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
begin
end
default (optional)
interval (defaults to "1")
with_leading_zeros (defaults to "0")
Returns:
an HTML select widget for a numeric range
See Also:

Partial Call Graph (max 5 caller/called nodes):
%3 dt_widget_maybe_range dt_widget_maybe_range (public, deprecated) dt_widget_numeric_range dt_widget_numeric_range dt_widget_maybe_range->dt_widget_numeric_range ad_log_deprecated ad_log_deprecated (public) dt_widget_numeric_range->ad_log_deprecated util::trim_leading_zeros util::trim_leading_zeros (public) dt_widget_numeric_range->util::trim_leading_zeros

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

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