Index: openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl	15 Feb 2009 00:53:55 -0000	1.11
+++ openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl	3 Mar 2009 21:35:54 -0000	1.12
@@ -178,6 +178,12 @@
     return $group_id
 }
 
+ad_proc -public application_group::package_id_from_group_id {
+    -group_id:required
+} {
+    return [db_string get {}]
+}
+
 ad_proc -public application_group::new {
     { -group_id "" } 
     { -group_type "application_group"}