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.6 -r1.7
--- openacs-4/packages/imsld/tcl/imsld-runtime-procs.xql	6 Jul 2006 11:29:57 -0000	1.6
+++ openacs-4/packages/imsld/tcl/imsld-runtime-procs.xql	25 Sep 2006 13:13:31 -0000	1.7
@@ -35,6 +35,7 @@
             with_control_p = :with_control_p,
             title = :title
             where run_id = :run_id
+              and user_id = :user_id
               and identifier = :class
               and type = 'class'
         </querytext>
@@ -45,6 +46,7 @@
             update imsld_attribute_instances
             set is_visible_p = :is_visible_p
             where run_id = :run_id
+              and user_id = :user_id
               and identifier = :identifier
               and type = 'isvisible'
         </querytext>