Index: openacs-4/packages/dotlrn-ecommerce/tcl/section-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/tcl/section-procs.tcl,v
diff -u -N -r1.10 -r1.11
--- openacs-4/packages/dotlrn-ecommerce/tcl/section-procs.tcl	16 Jul 2005 12:51:06 -0000	1.10
+++ openacs-4/packages/dotlrn-ecommerce/tcl/section-procs.tcl	19 Jul 2005 18:50:39 -0000	1.11
@@ -361,3 +361,33 @@
 	ns_log notice "DEBUG:: Done check"
     }
 }
+
+ad_proc -public dotlrn_ecommerce::section::application_assessment {
+    section_id
+} {
+    Return application assessment
+    
+    @author Roel Canicula (roelmc@pldtdsl.net)
+    @creation-date 2005-07-20
+    
+    @param community_id
+
+    @return 
+    
+    @error 
+} {
+    return [db_string get_assessment {
+	select c.assessment_id
+
+	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 ""]
+}