Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/assessment/tcl/as-item-procs-oracle.xql'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/assessment/tcl/as-item-procs-postgresql.xql'. Fisheye: No comparison available. Pass `N' to diff? 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.5 -r1.14.2.6 --- openacs-4/packages/assessment/tcl/as-item-procs.tcl 2 May 2006 13:13:48 -0000 1.14.2.5 +++ openacs-4/packages/assessment/tcl/as-item-procs.tcl 18 May 2006 11:35:19 -0000 1.14.2.6 @@ -53,12 +53,10 @@ [list required_p $required_p] \ [list data_type $data_type] \ [list max_time_to_complete $max_time_to_complete] \ - [list feedback_right $feedback_right] \ - [list feedback_wrong $feedback_wrong] \ [list points $points] \ [list validate_block $validate_block] ] ] } - + db_dml update_clobs "" -clobs [list $feedback_right $feedback_wrong] return $as_item_id } @@ -96,14 +94,12 @@ [list required_p $required_p] \ [list data_type $data_type] \ [list max_time_to_complete $max_time_to_complete] \ - [list feedback_right $feedback_right] \ - [list feedback_wrong $feedback_wrong] \ [list points $points] \ [list validate_block $validate_block] ] ] copy_types -as_item_id $as_item_id -new_item_id $new_item_id } - + db_dml update_clobs "" -clobs [list $feedback_right $feedback_wrong] return $new_item_id } Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/assessment/tcl/as-section-display-procs-oracle.xql'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/assessment/tcl/as-section-display-procs-postgresql.xql'. Fisheye: No comparison available. Pass `N' to diff? Index: openacs-4/packages/assessment/tcl/as-section-display-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-section-display-procs.tcl,v diff -u -r1.2.2.1 -r1.2.2.2 --- openacs-4/packages/assessment/tcl/as-section-display-procs.tcl 31 May 2005 23:13:01 -0000 1.2.2.1 +++ openacs-4/packages/assessment/tcl/as-section-display-procs.tcl 18 May 2006 11:35:19 -0000 1.2.2.2 @@ -34,13 +34,12 @@ -title $title \ -description $description \ -attributes [list [list num_items $num_items] \ - [list adp_chunk $adp_chunk] \ [list branched_p $branched_p] \ [list back_button_p $back_button_p] \ [list submit_answer_p $submit_answer_p] \ [list sort_order_type $sort_order_type] ] ] } - + db_dml update_clobs "" -clobs [list $adp_chunk] return $display_id } @@ -70,12 +69,11 @@ -title $title \ -description $description \ -attributes [list [list num_items $num_items] \ - [list adp_chunk $adp_chunk] \ [list branched_p $branched_p] \ [list back_button_p $back_button_p] \ [list submit_answer_p $submit_answer_p] \ [list sort_order_type $sort_order_type] ] ] } - + db_dml update_clobs "" -clobs [list $adp_chunk] return $display_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.1 -r1.6.2.2 --- openacs-4/packages/assessment/tcl/as-section-procs-oracle.xql 17 May 2006 15:53:56 -0000 1.6.2.1 +++ openacs-4/packages/assessment/tcl/as-section-procs-oracle.xql 18 May 2006 11:35:19 -0000 1.6.2.2 @@ -109,9 +109,10 @@ - update as_sections set instructions=empty_clob() + update as_sections set instructions=empty_clob(), + feedback_text=empty_clob() where section_id=:new_section_id - returning instructions into :1 + returning instructions,feedback_text into :1, :2 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.6 -r1.23.2.7 --- openacs-4/packages/assessment/tcl/as-section-procs.tcl 17 May 2006 15:53:56 -0000 1.23.2.6 +++ openacs-4/packages/assessment/tcl/as-section-procs.tcl 18 May 2006 11:35:19 -0000 1.23.2.7 @@ -44,14 +44,13 @@ -content_type {as_sections} \ -title $title \ -description $description \ - -attributes [list [list feedback_text $feedback_text] \ - [list max_time_to_complete $max_time_to_complete] \ + -attributes [list [list max_time_to_complete $max_time_to_complete] \ [list num_items $num_items] \ [list display_type_id $display_type_id] \ [list points $points] ] ] } - db_dml update_clobs {} -clobs [list $instructions] + db_dml update_clobs {} -clobs [list $instructions $feedback_text] return $as_section_id }