Index: openacs-4/packages/imsld/www/imsld-content-serve.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/imsld-content-serve.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/imsld/www/imsld-content-serve.tcl	13 Jul 2006 13:11:44 -0000	1.5
+++ openacs-4/packages/imsld/www/imsld-content-serve.tcl	20 Jul 2006 11:17:54 -0000	1.6
@@ -508,8 +508,12 @@
                     $class_node setAttribute "style" "${style_value}; display:none;"
                 }
             }
+	    if { [string eq $with_control_p "t"] } {
+	        $class_node setAttribute "class" "[$class_node getAttribute class] withcontrol"
+	    }
+	    $class_node setAttribute title $title
         }
     }
 }
 
-ns_return 200 application/xml "<?xml version=\"1.0\" encoding=\"UTF-8\"?>[$dom_root asXML]"
\ No newline at end of file
+ns_return 200 application/xml "<?xml version=\"1.0\" encoding=\"UTF-8\"?>[$dom_root asXML]"