Index: openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl,v
diff -u -r1.15.6.1 -r1.15.6.2
--- openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl	30 Sep 2013 11:38:40 -0000	1.15.6.1
+++ openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl	11 Feb 2014 11:53:08 -0000	1.15.6.2
@@ -163,16 +163,16 @@
     -package_id:required
   } {
     return [ns_cache eval xotcl_object_type_cache package_key-$package_id {
-      db_string [my qn get_package_key] \
-          "select package_key from apm_packages where package_id = $package_id"
+      ::xo::dc get_value get_package_key \
+          "select package_key from apm_packages where package_id = :package_id"
     }]
   }
   parameter proc get_package_id_from_package_key {
     -package_key:required
   } {
     return [ns_cache eval xotcl_object_type_cache package_id-$package_key {
-      db_string [my qn get_package_id] \
-          [::xo::db::sql select -vars package_id -from apm_packages \
+      ::xo::dc get_value get_package_id \
+          [::xo::dc select -vars package_id -from apm_packages \
                -where "package_key = :package_key" -limit 1]
     }]
   }
@@ -363,7 +363,7 @@
   parameter proc initialize_parameters {} {
     # Get those parameter values, which are different from the default and
     # remember theses per package_id.
-    db_foreach [my qn get_non_default_values] {
+    xo::dc foreach get_non_default_values {
       select p.parameter_id, p.package_key, v.package_id, p.parameter_name, 
              p.default_value, v.attr_value 
       from apm_parameters p, apm_parameter_values v 
@@ -455,4 +455,11 @@
 #   $p save
   # $p delete
   
-}
\ No newline at end of file
+}
+
+#
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 2
+#    indent-tabs-mode: nil
+# End: