Index: openacs-4/packages/dotlrn-ecommerce/www/admin/course-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/course-add-edit.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn-ecommerce/www/admin/course-add-edit.tcl	9 Jun 2005 05:54:38 -0000	1.2
+++ openacs-4/packages/dotlrn-ecommerce/www/admin/course-add-edit.tcl	19 Jun 2005 06:05:07 -0000	1.3
@@ -35,6 +35,8 @@
     set mode_p edit
 }
 
+
+
 # Get assessments
 set asm_list [list [list "[_ dotlrn-catalog.not_associate]" "-1"]]
 db_foreach assessment { } {
@@ -127,6 +129,14 @@
     set calendar_id [dotlrn_calendar::get_group_calendar_id -community_id $community_id]
     set item_type_id [calendar::item_type_new -calendar_id $calendar_id -type "Session"]
 
+    # HAM : let's now add a "Section Administration" for the master community
+    set admin_portal_id [dotlrn_community::get_admin_portal_id -community_id $community_id]
+    set element_id [dotlrn_ecommerce_admin_portlet::add_self_to_page -portal_id $admin_portal_id -package_id [db_string "getpackage_id" "select package_id from dotlrn_communities where community_id=:community_id"]]
+    ns_log Notice "DEBUG : Added Admin Portal $element_id"
+    # we want the section admin portlet to be at the top
+    db_dml "bring_portlet_to_top" "update portal_element_map set sort_key=0, region=1 where element_id=:element_id"
+
+
     foreach attribute $attribute_list {
 	set attr_name [lindex $attribute 2]
 	if { [info exists $attr_name] } {