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