Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.44 -r1.45
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	10 Jan 2002 19:30:17 -0000	1.44
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	19 Jan 2002 18:32:00 -0000	1.45
@@ -164,6 +164,13 @@
                     -context_id $community_id \
                     $user_id]
 
+            # Create the admin page
+            set admin_portal_id \
+                    [portal::create \
+                    -name "$pretty_name Administration Portal" \
+                    -context_id $community_id \
+                    $user_id]
+
             # update the portal_template_id and non_member_portal_id
             db_dml update_portal_ids {}
 
@@ -473,6 +480,14 @@
         return [db_string select_community_portal_id {}]
     }
 
+    ad_proc -public get_community_admin_portal_id {
+        community_id
+    } {
+        Get the community Admin page ID
+    } {
+        return [db_string select_community_admin_portal_id {}]
+    }
+
     ad_proc -public get_all_communities_by_user {
         user_id
     } {