Index: openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	1 Dec 2001 23:34:55 -0000	1.14
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	3 Dec 2001 02:51:27 -0000	1.15
@@ -52,6 +52,18 @@
 	return $node(object_id)
     }
 
+    ad_proc -public get_users_rel_segment_id {} {
+	returns the rel_segment_id of the dotLRN users segment
+    } {
+	return [db_string select_user_rel_segment {}]
+    }
+
+    ad_proc -public get_full_users_rel_segment_id {} {
+	returns the rel_segment_id of the dotLRN full users segment
+    } {
+	return [db_string select_user_rel_segment {}]
+    }
+    
     ad_proc -public get_user_theme {
 	user_id
     } {