Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v
diff -u -N -r1.135 -r1.136
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	7 Jul 2018 10:56:10 -0000	1.135
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	9 Jul 2018 08:12:21 -0000	1.136
@@ -2715,13 +2715,25 @@
     return $timestamp
   }
 
-  #ad_proc list_to_values {list {type text}} {
-  #  set result {}
-  #  foreach e $list {
-  #    lappend result "([ns_dbquotevalue $e $type])"
-  #  }
-  #  return "(values [join $result ,])"
-  #}
+  ad_proc list_to_values {
+    list
+    {type text}
+  } {
+
+    Convert a Tcl list into a quoted SQL VALUES expression
+
+    Example:
+
+    <pre>% list_to_values {1 2 3 4 5}
+    (VALUES (1), (2), (3), (4), (5))</pre>
+
+  } {
+    set result {}
+    foreach e $list {
+      lappend result "([ns_dbquotevalue $e $type])"
+    }
+    return "(VALUES [join $result ,])"
+  }
 }
 
 ::xo::library source_dependent