Index: openacs-4/packages/cms/www/modules/clipboard/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/clipboard/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/cms/www/modules/clipboard/index.tcl	20 Apr 2001 20:51:10 -0000	1.1
+++ openacs-4/packages/cms/www/modules/clipboard/index.tcl	12 Jun 2001 04:13:46 -0000	1.2
@@ -42,6 +42,7 @@
 if { ![util::is_nil id] } {
   
   set item_id_list [clipboard::get_items $clip $id]
+  ns_log Notice "item_id_list = [join $item_id_list ","]"
 
   # First, attempt to ask the module for the list of item paths in sorted order
   # Could fail because of some SQL error or because the procedure does not exist
@@ -74,7 +75,7 @@
   } errmsg ] } {
     # Process the list manually. Path information will not be shown, but at least
     # the names will be
-    ns_log notice "CLIPBOARD ERROR"
+    ns_log notice "CLIPBOARD ERROR: $errmsg"
     set items:rowcount 0
     foreach item_id $item_id_list {
       incr items:rowcount