Index: openacs-4/packages/assessment/tcl/as-section-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-section-procs-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/assessment/tcl/as-section-procs-oracle.xql	7 Jan 2005 16:10:44 -0000	1.1
+++ openacs-4/packages/assessment/tcl/as-section-procs-oracle.xql	18 Jan 2005 12:42:37 -0000	1.2
@@ -47,4 +47,22 @@
 	</querytext>
 </fullquery>
 	
+<fullquery name="as::section::calculate.max_section_points">
+	<querytext>
+
+	select asm.points as section_max_points
+	from as_assessment_section_map asm
+	where asm.assessment_id = :assessment_id
+	and asm.section_id = :section_id
+	and not exists (select 1
+			from as_item_data d, as_session_items i
+			where i.session_id = :session_id
+			and d.as_item_id(+) = i.as_item_id
+			and d.session_id(+) = i.session_id
+			and i.section_id = :section_id
+			and d.points is null)
+
+	</querytext>
+</fullquery>
+	
 </queryset>