Index: openacs-4/packages/xml-rpc/tcl/xml-rpc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xml-rpc/tcl/xml-rpc-procs.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/xml-rpc/tcl/xml-rpc-procs.tcl 30 Mar 2013 19:07:24 -0000 1.7
+++ openacs-4/packages/xml-rpc/tcl/xml-rpc-procs.tcl 24 Sep 2015 07:38:34 -0000 1.8
@@ -59,7 +59,7 @@
# be thread/process safe. Hence spin till success
set fp ""
while {$fp eq ""} {
- set filename "[ns_tmpnam][clock clicks -milliseconds].xmlrpc2"
+ set filename "[ad_tmpnam][clock clicks -milliseconds].xmlrpc2"
set fp [ns_openexcl $filename]
}
@@ -100,7 +100,7 @@
faultString
- [ad_quotehtml $msg]
+ [ns_quotehtml $msg]
@@ -353,7 +353,7 @@
# if no valid option is specified, treat it as string
if {[lsearch $options_list [lindex $arglist 0]] == -1} {
- set value "[ad_quotehtml $arglist]"
+ set value "[ns_quotehtml $arglist]"
return [xmlrpc::create_context $context $arglist]
}
@@ -367,7 +367,7 @@
switch -- $option {
-string -
-text {
- set value "[ad_quotehtml $value]"
+ set value "[ns_quotehtml $value]"
append result [xmlrpc::create_context $context $value]
}
@@ -428,7 +428,7 @@
-keyvalue {
set data ""
foreach {name mvalue} $value {
- append data "[ad_quotehtml $name]"
+ append data "[ns_quotehtml $name]"
append data [xmlrpc::construct value $mvalue]
append data ""
}