Index: openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk.tcl 21 Jul 2005 09:35:26 -0000 1.23
+++ openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk.tcl 21 Jul 2005 19:06:50 -0000 1.24
@@ -298,8 +298,7 @@
Section @course_list.section_name@
- (more info)
-
+
(@course_list.section_grades@)
@course_list.sessions;noquote@
@course_list.instructor_names;noquote@
@@ -308,6 +307,10 @@
@course_list.attendees;noquote@ participants
,
@course_list.available_slots;noquote@ available
+
+ \#dotlrn-ecommerce.More_Information\#
+
+
}
html { width 40% }
@@ -383,7 +386,7 @@
set grade_tree_id [parameter::get -package_id [ad_conn package_id] -parameter GradeCategoryTree -default 0]
-db_multirow -extend { section_pages_url category_name community_url course_edit_url section_add_url section_edit_url course_grades section_grades sections_url member_p sessions instructor_names prices shopping_cart_add_url attendees available_slots pending_p waiting_p approved_p instructor_p registration_approved_url button } course_list get_courses { } {
+db_multirow -extend { section_folder_id section_pages_url category_name community_url course_edit_url section_add_url section_edit_url course_grades section_grades sections_url member_p sessions instructor_names prices shopping_cart_add_url attendees available_slots pending_p waiting_p approved_p instructor_p registration_approved_url button } course_list get_courses { } {
# set mapped [category::get_mapped_categories $course_id]
# foreach element $mapped {
@@ -400,7 +403,8 @@
set section_add_url [export_vars -base admin/section-add-edit { course_id return_url }]
set section_edit_url [export_vars -base admin/one-section { course_id section_id return_url }]
set section_pages_url "pages/${section_id}/"
-
+ set section_folder_id [dotlrn_ecommerce::section::get_public_folder_id $section_id]
+
set sections_url [export_vars -base sections { course_id }]
set community_url "pages/${section_id}/"