Index: openacs-4/packages/assessment/tcl/as-section-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-section-procs.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/assessment/tcl/as-section-procs.xql 10 Dec 2004 11:42:23 -0000 1.3
+++ openacs-4/packages/assessment/tcl/as-section-procs.xql 22 Dec 2004 20:52:17 -0000 1.4
@@ -49,4 +49,44 @@
+
+
+
+ select s.as_item_id, r.title, r.description, i.subtext, m.required_p, m.max_time_to_complete
+ from as_session_items s, as_items i, as_item_section_map m, cr_revisions r
+ where s.session_id = :session_id
+ and s.section_id = :section_id
+ and i.as_item_id = s.as_item_id
+ and r.revision_id = i.as_item_id
+ and m.as_item_id = s.as_item_id
+ and m.section_id = s.section_id
+ order by s.sort_order
+
+
+
+
+
+
+
+ select i.as_item_id, ci.name, cr.title, cr.description, i.subtext,
+ m.required_p, m.max_time_to_complete, m.fixed_position
+ from as_item_section_map m, as_items i, cr_revisions cr, cr_items ci
+ where cr.revision_id = i.as_item_id
+ and i.as_item_id = m.as_item_id
+ and m.section_id = :section_id
+ and ci.item_id = cr.item_id
+ order by m.sort_order
+
+
+
+
+
+
+
+ insert into as_session_items (session_id, section_id, as_item_id, sort_order)
+ values (:session_id, :section_id, :as_item_id, :count)
+
+
+
+