Index: openacs-4/packages/lorsm/tcl/lorsm-import-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/tcl/lorsm-import-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/lorsm/tcl/lorsm-import-procs.tcl	17 Nov 2008 13:36:43 -0000	1.4
+++ openacs-4/packages/lorsm/tcl/lorsm-import-procs.tcl	12 Dec 2008 14:25:33 -0000	1.5
@@ -342,10 +342,7 @@
 
             set community_id [dotlrn_community::get_community_id]
 
-            set party_id_member [db_string party_id {select segment_id
-                from rel_segments
-                where group_id = :community_id
-                    and rel_type = 'dotlrn_member_rel'}]
+            set party_id_member [db_string party_id_member {}]
 
             permission::grant \
                 -party_id $party_id_member \
@@ -359,10 +356,7 @@
 
             # Set read permissions for community/class dotlrn_admin_rel
 
-            set party_id_admin [db_string party_id {select segment_id
-                from rel_segments
-                where group_id = :community_id
-                    and rel_type = 'dotlrn_admin_rel'}]
+            set party_id_admin [db_string party_id_admin {}]
 
             permission::grant \
                 -party_id $party_id_admin \
@@ -377,9 +371,7 @@
             # Set read permissions for *all* other professors  within .LRN
             # (so they can see the content)
 
-            set party_id_professor [db_string party_id {select segment_id
-                from rel_segments
-                where rel_type = 'dotlrn_professor_profile_rel'}]
+            set party_id_professor [db_string party_id_professor {}]
 
             permission::grant \
                 -party_id $party_id_professor \
@@ -394,9 +386,7 @@
             # Set read permissions for *all* other admins within .LRN
             # (so they can see the content)
 
-            set party_id_admins [db_string party_id {select segment_id
-                from rel_segments
-                where rel_type = 'dotlrn_admin_profile_rel'}]
+            set party_id_admins [db_string party_id_admin_profile {}]
 
             permission::grant \
                 -party_id $party_id_admins \
@@ -617,11 +607,7 @@
 
             set community_id [dotlrn_community::get_community_id]
 
-            set party_id_member [db_string party_id {
-                select segment_id
-                from rel_segments \
-                where group_id = :community_id \
-                    and rel_type = 'dotlrn_member_rel'}]
+            set party_id_member [db_string party_id_member {}]
 
             permission::grant \
                 -party_id $party_id_member \
@@ -630,10 +616,7 @@
 
             # Set read permissions for community/class dotlrn_admin_rel
 
-            set party_id_admin [db_string party_id {select segment_id
-                from rel_segments \
-                where group_id = :community_id \
-                    and rel_type = 'dotlrn_admin_rel'}]
+            set party_id_admin [db_string party_id_admin {}]
 
             permission::grant \
                 -party_id $party_id_admin \
@@ -643,9 +626,7 @@
             # Set read permissions for *all* other professors  within .LRN
             # (so they can see the content)
 
-            set party_id_professor [db_string party_id {select segment_id
-                from rel_segments \
-                where rel_type = 'dotlrn_professor_profile_rel'}]
+            set party_id_professor [db_string party_id_professor {}]
 
             permission::grant \
                 -party_id $party_id_professor \
@@ -655,9 +636,7 @@
             # Set read permissions for *all* other admins within .LRN
             # (so they can see the content)
 
-            set party_id_admins [db_string party_id {select segment_id
-                from rel_segments \
-                where rel_type = 'dotlrn_admin_profile_rel'}]
+            set party_id_admins [db_string party_id_admin_profile {}]
 
             permission::grant \
                 -party_id $party_id_admins \