Index: openacs-4/packages/imsld/tcl/imsld-runtime-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-runtime-procs.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/imsld/tcl/imsld-runtime-procs.xql	22 Jun 2006 10:56:54 -0000	1.2
+++ openacs-4/packages/imsld/tcl/imsld-runtime-procs.xql	29 Jun 2006 09:27:57 -0000	1.3
@@ -28,9 +28,26 @@
         </querytext>
 	</fullquery>
 
-    <fullquery name="">
+    <fullquery name="imsld::runtime::calss::show_hide.set_class_shown">
         <querytext>
+            update imsld_attribute_instances
+            set is_visible_p = :is_visible_p,
+            with_control_p = :with_control_p,
+            title = :title
+            where run_id = :run_id
+              and identifier = :class
+              and type = 'class'
         </querytext>
 	</fullquery>
 
+    <fullquery name="imsld::runtime::isvisible::show_hide.set_isvisible_shown">
+        <querytext>
+            update imsld_attribute_instances
+            set is_visible_p = is_visible_p
+            where run_id = :run_id
+              and identifier = :identifier
+              and type = 'isvisible'
+        </querytext>
+	</fullquery>
+
 </queryset>