Index: openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl,v
diff -u -r1.33 -r1.34
--- openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl	5 Mar 2002 07:18:40 -0000	1.33
+++ openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl	6 Mar 2002 05:13:36 -0000	1.34
@@ -87,8 +87,6 @@
 	set group_calendar_id \
 		[calendar_create [ad_conn "user_id"] "f" $cal_name]
 
-        ns_log notice "aks14 $cal_name: group_calendar_id $group_calendar_id"
-
 	# add this element to the portal template. 
 	# do this directly, don't use calendar_portlet::add_self_to_page here
 	set portal_template_id \
@@ -104,6 +102,20 @@
 	portal::set_element_param \
 		$element_id "calendar_id" $group_calendar_id
 
+        # add the "full calendar" portlet to the commnuity's "calendar" page, 
+        # similar to the same thing on a user's wsp. use the get_user_def_page
+        # func here too
+        set page_id [portal::get_page_id \
+                         -portal_id $portal_template_id \
+                         -page_name [get_user_default_page] \
+        ]
+
+        set element_id [calendar_full_portlet::add_self_to_page \
+                           -page_id $page_id  \
+                           $portal_template_id \
+                           $group_calendar_id 
+        ]
+
         # Add the admin portlet, too
 	set admin_portal_id \
 		[dotlrn_community::get_community_admin_portal_id $community_id]