Index: openacs-4/packages/lors/tcl/lors-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors/tcl/lors-procs.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/lors/tcl/lors-procs.tcl	3 Dec 2008 12:36:42 -0000	1.12
+++ openacs-4/packages/lors/tcl/lors-procs.tcl	9 Feb 2009 03:57:30 -0000	1.13
@@ -11,6 +11,15 @@
 
 namespace eval lors:: {}
 
+ad_proc lors::community_id {
+    -node_id
+} {
+    if { ![info exists node_id] } {
+        set node_id [ad_conn node_id]
+    }
+    application_group::closest_ancestor_application_group_id -node_id $node_id
+}
+
 ad_proc -public lors::object_url {
     -object_id
     {-man_id ""}