dom::Serialize:attributeList

This procedure is defined in the server but not documented via ad_proc or proc_doc and may be intended as a private interface.

The procedure is defined as:

proc dom::Serialize:attributeList {l} {
    

    set result {}
    foreach {name value} $l {

	append result { } $name =

	# Handle special characters
	regsub -all < $value {\&lt;} value

	if {![string match "*\"*" $value]} {
	    append result \"$value\"
	} elseif {![string match "*'*" $value]} {
	    append result '$value'
	} else {
	    regsub -all \" $value {\&quot;} value
	    append result \"$value\"
	}

    }

    return $result

}