plsql_utility::generate_attribute_parameter_call (public)

 plsql_utility::generate_attribute_parameter_call [ -prepend prepend ] \
    [ -indent indent ] pairs

Defined in packages/acs-subsite/tcl/plsql-utility-procs.tcl

Generates the arg list for a call to a pl/sql function or procedure

Switches:
-prepend (optional)
-indent (optional, defaults to "9")
Parameters:
pairs (required)
Author:
Michael Bryzek <mbryzek@arsdigita.com>
Created:
11/2000

Partial Call Graph (max 5 caller/called nodes):
%3 plsql_utility::generate_attribute_parameter_call_from_attributes plsql_utility::generate_attribute_parameter_call_from_attributes (public) plsql_utility::generate_attribute_parameter_call plsql_utility::generate_attribute_parameter_call plsql_utility::generate_attribute_parameter_call_from_attributes->plsql_utility::generate_attribute_parameter_call plsql_utility::format_pieces plsql_utility::format_pieces (private) plsql_utility::generate_attribute_parameter_call->plsql_utility::format_pieces

Testcases:
No testcase defined.
Source code:
        set pieces [list]
        foreach row $pairs {
            set attr [string trim [lindex $row 0]]
            set attr_value [string trim [lindex $row 1]]
            if { $attr_value eq "" } {
                set attr_value $attr
            }
            lappend pieces [list "$attr" "$prepend$attr_value"]
        }
        return [format_pieces -delim " => " -indent $indent $pieces]
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: