Index: openacs-4/packages/dotlrn-ecommerce/www/admin/one-section.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/one-section.adp,v diff -u -r1.15 -r1.16 --- openacs-4/packages/dotlrn-ecommerce/www/admin/one-section.adp 23 Jan 2006 02:19:17 -0000 1.15 +++ openacs-4/packages/dotlrn-ecommerce/www/admin/one-section.adp 13 Mar 2006 20:42:24 -0000 1.16 @@ -22,7 +22,7 @@

#dotlrn-ecommerce.Registration#

-#dotlrn-ecommerce.lt_num_attendees_partici#
+#dotlrn-ecommerce.lt_num_attendees_partici#
#dotlrn-ecommerce.List_Registrants#
#dotlrn-ecommerce.Related_Users#
#dotlrn-ecommerce.lt_Waiting_List_and_Prer#
@@ -34,6 +34,10 @@ + +#dotlrn-ecommerce.lt_Application_assessmen#
+#dotlrn-ecommerce.Select_1# #acs-kernel.common_View# #acs-kernel.common_Edit# +

#dotlrn-ecommerce.Public_Pages#

Index: openacs-4/packages/dotlrn-ecommerce/www/admin/one-section.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/one-section.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/dotlrn-ecommerce/www/admin/one-section.tcl 28 Dec 2005 00:36:37 -0000 1.7 +++ openacs-4/packages/dotlrn-ecommerce/www/admin/one-section.tcl 13 Mar 2006 20:42:24 -0000 1.8 @@ -40,6 +40,28 @@ set expensetracking_show_p [apm_package_installed_p "expenses"] set show_public_pages_p [parameter::get -parameter SupportPublicPagesP -default 0] +# Get application assessment +set assessment_id [db_string get_assessment { + select c.assessment_id, c.auto_register_p + + from dotlrn_ecommerce_section s, + dotlrn_catalogi c, + cr_items i + + where s.course_id = c.item_id + and c.item_id = i.item_id + and i.live_revision = c.course_id + and s.section_id = :section_id + + limit 1 +} -default ""] + +if { ! [empty_string_p $assessment_id] } { + as::assessment::data -assessment_id $assessment_id + set assessment_view_url [export_vars -base ${community_url}assessment/assessment { assessment_id }] + set assessment_edit_url [export_vars -base ${community_url}assessment/asm-admin/one-a { assessment_id }] +} + # Flush cache for this section # Shouldn't have much effect on performance and will keep the data # more up to date