Index: openacs-4/packages/assessment/catalog/assessment.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/catalog/assessment.en_US.ISO-8859-1.xml,v
diff -u -r1.68.2.4 -r1.68.2.5
--- openacs-4/packages/assessment/catalog/assessment.en_US.ISO-8859-1.xml	4 Jul 2005 16:15:16 -0000	1.68.2.4
+++ openacs-4/packages/assessment/catalog/assessment.en_US.ISO-8859-1.xml	5 Jul 2005 16:34:05 -0000	1.68.2.5
@@ -363,6 +363,7 @@
   <msg key="new_parameter">New Parameter</msg>
   <msg key="Next">Next</msg>
   <msg key="no">No</msg>
+  <msg key="no_display">-- None --</msg>
   <msg key="no_waiting">Immediate retry allowed</msg>
   <msg key="None">None</msg>
   <msg key="not_answered">not answered</msg>
Index: openacs-4/packages/assessment/www/asm-admin/section-form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/section-form.tcl,v
diff -u -r1.5 -r1.5.2.1
--- openacs-4/packages/assessment/www/asm-admin/section-form.tcl	7 Apr 2005 22:54:44 -0000	1.5
+++ openacs-4/packages/assessment/www/asm-admin/section-form.tcl	5 Jul 2005 16:34:05 -0000	1.5.2.1
@@ -36,7 +36,7 @@
 set context [list [list index [_ assessment.admin]] [list [export_vars -base one-a {assessment_id}] $assessment_data(title)] $page_title]
 
 set display_types [db_list_of_lists section_display_types {}]
-set display_types [concat [list [list "[_ assessment.section_new_display]" ""]] $display_types]
+set display_types [concat [list [list "[_ assessment.no_display]" ""] [list "[_ assessment.section_new_display]" "-1"]] $display_types]
 
 
 ad_form -name section_form -action section-form -export { assessment_id after } -form {
@@ -69,6 +69,8 @@
     {num_items:integer,optional,nospell {label "[_ assessment.num_items]"} {html {size 5 maxlength 5}} {help_text "[_ assessment.num_items_help]"}}
     {points:integer,optional,nospell {label "[_ assessment.points_section]"} {html {size 10 maxlength 10}} {help_text "[_ assessment.points_section_help]"}}
     {display_type_id:text(select),optional {label "[_ assessment.Display_Type]"} {options $display_types} {help_text "[_ assessment.section_Display_Type_help]"}}
+    {no_display:text(hidden) {value f}
+    }
 } -new_request {
     set name ""
     set title ""
@@ -79,6 +81,7 @@
     set num_items ""
     set points ""
     set display_type_id ""
+    set no_display "f"
 } -edit_request {
     db_1row section_data {}
 } -validate {
@@ -89,6 +92,14 @@
 	set points 0
     }
 } -new_data {
+    if { [empty_string_p $display_type_id]} {
+	set no_display "t"
+    }
+    if { $display_type_id == -1} {
+	set display_type_id ""
+    }
+
+    
     db_transaction {
 	set new_assessment_rev_id [as::assessment::new_revision -assessment_id $assessment_id]
 
@@ -112,7 +123,15 @@
 	}
     }
 } -edit_data {
+
     db_transaction {
+	if { $display_type_id == -1} {
+	    set display_type_id ""
+	}
+	if { [empty_string_p $display_type_id]} {
+	    set no_display "t"
+	}
+	
 	set new_assessment_rev_id [as::assessment::new_revision -assessment_id $assessment_id]
 	set section_id [as::section::latest -section_id $section_id -assessment_rev_id $new_assessment_rev_id]
 
@@ -135,11 +154,14 @@
 	}
     }
 } -after_submit {
-    if {[empty_string_p $display_type_id]} {
-	set section_id $new_section_id
-	ad_returnredirect [export_vars -base section-display-form {assessment_id section_id}]
+    if { $no_display } {
+	ad_returnredirect [export_vars -base one-a {assessment_id}]
 	ad_script_abort
-    } else {
+    } elseif {[empty_string_p $display_type_id]} {
+	    set section_id $new_section_id
+	    ad_returnredirect [export_vars -base section-display-form {assessment_id section_id}]
+	    ad_script_abort
+    }  else {
 	ad_returnredirect [export_vars -base one-a {assessment_id}]
 	ad_script_abort
     }