Index: openacs-4/packages/assessment/tcl/as-item-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-procs-oracle.xql,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/assessment/tcl/as-item-procs-oracle.xql 18 May 2006 15:46:43 -0000 1.1.2.2
+++ openacs-4/packages/assessment/tcl/as-item-procs-oracle.xql 23 May 2006 12:11:47 -0000 1.1.2.3
@@ -16,19 +16,21 @@
update as_items
set feedback_right=empty_clob(),
- feedback_wrong=empty_clob()
+ feedback_wrong=empty_clob(),
+ validate_block=empty_clob()
where as_item_id=:as_item_id
- returning feedback_right, feedback_wrong into :1, :2
+ returning feedback_right, feedback_wrong, validate_block into :1, :2, :3
update as_items
set feedback_right=empty_clob(),
- feedback_wrong=empty_clob()
+ feedback_wrong=empty_clob(),
+ validate_block=empty_clob()
where as_item_id=:new_item_id
- returning feedback_right, feedback_wrong into :1, :2
+ returning feedback_right, feedback_wrong, validate_block into :1, :2, :3
Index: openacs-4/packages/assessment/tcl/as-item-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-procs-postgresql.xql,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/assessment/tcl/as-item-procs-postgresql.xql 23 May 2006 11:17:23 -0000 1.1.2.3
+++ openacs-4/packages/assessment/tcl/as-item-procs-postgresql.xql 23 May 2006 12:11:47 -0000 1.1.2.4
@@ -16,7 +16,8 @@
update as_items
set feedback_right=:feedback_right,
- feedback_wrong=:feedback_wrong
+ feedback_wrong=:feedback_wrong,
+ validate_block=:validate_block
where as_item_id=:as_item_id
@@ -25,7 +26,8 @@
update as_items
set feedback_right=:feedback_right,
- feedback_wrong=:feedback_wrong
+ feedback_wrong=:feedback_wrong,
+ validate_block=:validate_block
where as_item_id=:new_item_id
Index: openacs-4/packages/assessment/tcl/as-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-procs.tcl,v
diff -u -r1.14.2.6 -r1.14.2.7
--- openacs-4/packages/assessment/tcl/as-item-procs.tcl 18 May 2006 11:35:19 -0000 1.14.2.6
+++ openacs-4/packages/assessment/tcl/as-item-procs.tcl 23 May 2006 12:11:47 -0000 1.14.2.7
@@ -53,10 +53,9 @@
[list required_p $required_p] \
[list data_type $data_type] \
[list max_time_to_complete $max_time_to_complete] \
- [list points $points] \
- [list validate_block $validate_block] ] ]
+ [list points $points] ] ]
}
- db_dml update_clobs "" -clobs [list $feedback_right $feedback_wrong]
+ db_dml update_clobs "" -clobs [list $feedback_right $feedback_wrong $validate_block]
return $as_item_id
}
@@ -94,12 +93,11 @@
[list required_p $required_p] \
[list data_type $data_type] \
[list max_time_to_complete $max_time_to_complete] \
- [list points $points] \
- [list validate_block $validate_block] ] ]
+ [list points $points] ] ]
copy_types -as_item_id $as_item_id -new_item_id $new_item_id
}
- db_dml update_clobs "" -clobs [list $feedback_right $feedback_wrong]
+ db_dml update_clobs "" -clobs [list $feedback_right $feedback_wrong $validate_block]
return $new_item_id
}
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.6.2.2 -r1.6.2.3
--- openacs-4/packages/assessment/tcl/as-section-procs-oracle.xql 18 May 2006 11:35:19 -0000 1.6.2.2
+++ openacs-4/packages/assessment/tcl/as-section-procs-oracle.xql 23 May 2006 12:21:41 -0000 1.6.2.3
@@ -116,4 +116,13 @@
+
+
+ update as_sections set instructions=empty_clob(),
+ feedback_text=empty_clob()
+ where section_id=:new_section_id
+ returning instructions,feedback_text into :1, :2
+
+
+
Index: openacs-4/packages/assessment/tcl/as-section-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-section-procs-postgresql.xql,v
diff -u -r1.6.2.2 -r1.6.2.3
--- openacs-4/packages/assessment/tcl/as-section-procs-postgresql.xql 17 May 2006 15:53:56 -0000 1.6.2.2
+++ openacs-4/packages/assessment/tcl/as-section-procs-postgresql.xql 23 May 2006 12:21:41 -0000 1.6.2.3
@@ -110,4 +110,12 @@
+
+
+ update as_sections
+ set instructions=:instructions, feedback_text=:feedback_text
+ where section_id=:new_section_id
+
+
+
Index: openacs-4/packages/assessment/tcl/as-section-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-section-procs.tcl,v
diff -u -r1.23.2.7 -r1.23.2.8
--- openacs-4/packages/assessment/tcl/as-section-procs.tcl 18 May 2006 11:35:19 -0000 1.23.2.7
+++ openacs-4/packages/assessment/tcl/as-section-procs.tcl 23 May 2006 12:21:41 -0000 1.23.2.8
@@ -111,8 +111,7 @@
-content_type {as_sections} \
-title $title \
-description $description \
- -attributes [list [list instructions $instructions] \
- [list feedback_text $feedback_text] \
+ -attributes [list \
[list max_time_to_complete $max_time_to_complete] \
[list num_items $num_items] \
[list display_type_id $display_type_id] \
@@ -123,6 +122,7 @@
as::assessment::check::copy_checks -section_id $section_id -new_section_id $new_section_id -assessment_id $assessment_id
}
+ db_dml update_clobs {} -clobs [list $instructions $feedback_text]
return $new_section_id
}