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}/"