Index: openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl	28 Jun 2004 15:41:10 -0000	1.4
+++ openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl	1 Jul 2004 16:33:39 -0000	1.5
@@ -88,7 +88,7 @@
     # the content type is not the object type of the cr_item so we pass in
     # the cr_item subtype here and content_type as part of
     # var_list
-    ns_log notice "
+    ns_log Debug "
 DB --------------------------------------------------------------------------------
 DB DAVE debugging /var/lib/aolserver/ctk/packages/acs-content-repository/tcl/content-item-procs.tcl
 DB --------------------------------------------------------------------------------
@@ -109,10 +109,9 @@
     Delete a content item
     @param item_id
 } {
-    set var_list [list [list item_id $item_id]]
     package_exec_plsql \
-        -var_list $var_list \
-        "content_item" "delete"
+        -var_list [list [list item_id $item_id]] \
+        content_item delete
 }
 
 ad_proc -public ::content::item::rename {