Index: openacs-4/packages/dotlrn/tcl/dotlrn-procs.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-procs.xql,v diff -u -r1.14 -r1.15 --- openacs-4/packages/dotlrn/tcl/dotlrn-procs.xql 18 Apr 2002 17:36:01 -0000 1.14 +++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.xql 28 Apr 2002 04:08:41 -0000 1.15 @@ -2,48 +2,54 @@ - - -select segment_id from rel_segments where segment_name='dotLRN Profiled Users' - - + + + select segment_id + from rel_segments + where segment_name = 'dotLRN Users' + + - - -select segment_id from rel_segments where segment_name='dotLRN Full Profiled Users' - - + + + select theme_id + from dotlrn_users + where user_id = :user_id + + - - -select theme_id from dotlrn_full_users where user_id = :user_id - - + + + update dotlrn_user_profile_rels + set theme_id = :theme_id + where rel_id = (select rel_id + from dotlrn_users + where user_id = :user_id) + + - - -update dotlrn_full_user_rels set theme_id= :theme_id where rel_id= (select rel_id from dotlrn_full_users where user_id= :user_id) - - + + + select portal_id + from dotlrn_users + where user_id = :user_id + + - - -select portal_id from dotlrn_full_users where user_id= :user_id - - + + + select node_id + from site_nodes + where object_id = :package_id + + - - -select node_id from site_nodes where object_id= :package_id - - + + + select dotlrn_user_types.group_id + from dotlrn_user_types + where dotlrn_user_types.type = :type + + - - - select dotlrn_user_types.group_id - from dotlrn_user_types - where dotlrn_user_types.type = :type - - -