Index: openacs-4/contrib/packages/bcms/tcl/bcms-category-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/bcms/tcl/bcms-category-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/contrib/packages/bcms/tcl/bcms-category-procs.tcl	30 Oct 2003 15:08:11 -0000	1.6
+++ openacs-4/contrib/packages/bcms/tcl/bcms-category-procs.tcl	13 Nov 2003 14:24:38 -0000	1.7
@@ -29,7 +29,7 @@
     if {![info exists creation_user_id]} { set creation_user_id [ad_conn user_id] }
     if {![info exists creation_ip]} { set creation_ip [ad_conn peeraddr] }
 
-    return [db_exec_plsql create_category "SQL"]
+    return [db_exec_plsql create_category {}]
 }
 
 
@@ -48,11 +48,11 @@
 } {
 
     if {[info exists heading]} {
-        db_dml set_heading "SQL"
+        db_dml set_heading {}
     }
 
     if {[info exists description]} {
-        db_dml set_description "SQL"
+        db_dml set_description {}
     }
 
 }
@@ -84,7 +84,7 @@
 
 } {
 
-    if {[db_0or1row get_category "SQL" -column_array category]} {
+    if {[db_0or1row get_category {} -column_array category]} {
         return [array get category]
     } else {
         return {}
@@ -120,10 +120,10 @@
 
     if {$return_list_p} {
         # return a list of lists since its not easy to pass multirow from proc to proc
-        return [db_list_of_ns_sets get_categories "SQL"]
+        return [db_list_of_ns_sets get_categories {}]
     } else {
         # make a multirow, it is likely that this proc is not being called from another proc
-        db_multirow $multirow_name get_categories "SQL"
+        db_multirow $multirow_name get_categories {}
     }
 
 }
@@ -148,10 +148,10 @@
 
     if {$return_list_p} {
         # return a list of lists since its not easy to pass multirow from proc to proc
-        return [db_list_of_ns_sets get_categories "SQL"]
+        return [db_list_of_ns_sets get_categories {}]
     } else {
         # make a multirow, it is likely that this proc is not being called from another proc
-        db_multirow $multirow_name get_categories "SQL"
+        db_multirow $multirow_name get_categories {}
     }
 
 }
@@ -189,9 +189,9 @@
     }
 
     if {$return_list_p} {
-        return [db_list_of_ns_sets get_category_path "SQL"]
+        return [db_list_of_ns_sets get_category_path {}]
     } else {
-        db_multirow $multirow_name get_category_path "SQL"
+        db_multirow $multirow_name get_category_path {}
     }
 }
 
@@ -207,7 +207,7 @@
     category_id, parent_id, heading, description, has_children
 } {
 
-    if {[db_0or1row get_root "SQL" -column_array category]} {
+    if {[db_0or1row get_root {} -column_array category]} {
         return [array get category]
     } else {
         return {}