ns_dbformvalue (public, deprecated)

 ns_dbformvalue formdata column type valuebyref

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

Deprecated. Invoking this procedure generates a warning.

deprecated proc, functionality dropped between AOLserver 2 and AOLserver 3 returnvalues: -1 = Not there or value was "" 0 = NULL, set value to NULL. 1 = Got value, set value to it.

Parameters:

formdata (required)

column (required)

type (required)

valuebyref (required)

Testcases:

No testcase defined.

Source code:

ad_log_deprecated proc ns_dbformvalue

    upvar $valuebyref value

    if {[ns_set get $formdata $column.NULL] == "t"} {
        set value ""
        return 0
    }

    set value [ns_set get $formdata $column]

    if { [string match $value ""] } {
        switch -- $type {

            date      {
                set value [ns_buildsqldate  [ns_set get $formdata $column.month]  [ns_set get $formdata $column.day]  [ns_set get $formdata $column.year]]
            }

            time      {
                set value [ns_buildsqltime  [ns_set get $formdata $column.time]  [ns_set get $formdata $column.ampm]]
            }

            datetime  -
            timestamp {
                set value [ns_buildsqltimestamp  [ns_set get $formdata $column.month]  [ns_set get $formdata $column.day]  [ns_set get $formdata $column.year]  [ns_set get $formdata $column.time]  [ns_set get $formdata $column.ampm]]
            }

            default {
            }
        }
    }
    if { [string match $value ""] } {
        return -1
    } else {
        return 1
    }

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

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