ad_sql_append (public, deprecated)

 ad_sql_append [ -select select ] [ -from from ] [ -where where ] \
    [ -groupby groupby ] [ -orderby orderby ] sqlarrayname

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

Deprecated. Invoking this procedure generates a warning.

Adds to the SQL statement. This is unused and untested code.

Switches:

-select (optional)

-from (optional)

-where (optional)

-groupby (optional)

-orderby (optional)

Parameters:

sqlarrayname (required)

See Also:

• plain SQL statements + trivial Tcl idioms

Testcases:

No testcase defined.

Source code:

ad_log_deprecated proc ad_sql_append
    upvar $sqlarrayname sql
    if { $select ne "" } {
        lappend sql(select) $select
    }
    if { $from ne "" } {
        lappend sql(from) $from
    }
    if { $where ne "" } {
        lappend sql(where) $where
    }
    if { $groupby ne "" } {
        lappend sql(groupby) $groupby
    }
    if { $orderby ne "" } {
        lappend sql(orderby) $orderby
    }

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

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