Index: openacs-4/packages/assessment/tcl/as-assessment-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-assessment-procs-oracle.xql,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/assessment/tcl/as-assessment-procs-oracle.xql 15 Apr 2005 17:26:45 -0000 1.8
+++ openacs-4/packages/assessment/tcl/as-assessment-procs-oracle.xql 12 Jun 2006 02:49:50 -0000 1.9
@@ -6,16 +6,17 @@
select a.assessment_id as assessment_rev_id, cr.item_id as assessment_id, cr.title, ci.name,
- cr.description, o.creation_user, o.creation_date, a.instructions, a.run_mode,
+ cr.description, nvl(o.creation_user, o2.creation_user) creation_user, o.creation_date, a.instructions, a.run_mode,
a.anonymous_p, a.secure_access_p, a.reuse_responses_p, a.ip_mask, a.password,
a.show_item_name_p, a.entry_page, a.exit_page, a.consent_page, a.return_url,
a.start_time, a.end_time, a.number_tries, a.wait_between_tries, a.random_p,
- a.time_for_response, a.show_feedback, a.section_navigation, a.creator_id, a.survey_p
- from as_assessments a, cr_revisions cr, cr_items ci, acs_objects o
+ a.time_for_response, a.show_feedback, a.section_navigation, a.creator_id, a.survey_p, a.type, cr.title as html_title
+ from as_assessments a, cr_revisions cr, cr_items ci, acs_objects o, acs_objects o2
where ci.item_id = :assessment_id
and cr.revision_id = ci.latest_revision
and a.assessment_id = cr.revision_id
and o.object_id = ci.item_id
+ and o2.object_id = cr.revision_id
@@ -58,4 +59,43 @@
+
+
+
+ select nvl(sum(m.points), 0) as section_max_points, nvl(sum(d.points), 0) as section_points
+ from as_assessment_section_map m, as_section_data d
+ where m.assessment_id = :assessment_id
+ and m.section_id = d.section_id
+ and d.session_id = :session_id
+
+
+
+
+
+
+ update as_assessments set
+ instructions=empty_clob(),consent_page=empty_clob()
+ where assessment_id=:as_assessment_id
+ returning instructions, consent_page into :1, :2
+
+
+
+
+
+ update as_assessments set
+ instructions=empty_clob(),consent_page=empty_clob()
+ where assessment_id=:new_rev_id
+ returning instructions, consent_page into :1, :2
+
+
+
+
+
+ update as_assessments set
+ instructions=empty_clob(),consent_page=empty_clob()
+ where assessment_id=:new_rev_id
+ returning instructions, consent_page into :1, :2
+
+
+