Index: openacs-4/packages/assessment/www/asm-admin/action-select.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/action-select.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/assessment/www/asm-admin/action-select.tcl	10 Jun 2005 16:11:46 -0000	1.6
+++ openacs-4/packages/assessment/www/asm-admin/action-select.tcl	12 Jun 2006 02:49:51 -0000	1.7
@@ -12,6 +12,7 @@
     edit_check:optional
     by_item_p:optional
     item_id:optional
+    {section_check_p 0}
 } -properties {
     context:onevalue
     title:onevalue
@@ -34,7 +35,11 @@
 set context [list [list index [_ assessment.admin]] [list "one-a?assessment_id=$assessment_id" $title] [_ assessment.action_select]]
 
 set title "[_ assessment.action_select]" 
-set options [list [list "[_ assessment.immediately]" "i"] [list "[_ assessment.at_the_end]" "aa"] [list "[_ assessment.manually]" "m"]]
+if {$section_check_p} {
+    set options [list [list "On Request" "or"] [list "[_ assessment.at_the_end]" "sa"]]
+} else {
+    set options [list [list "[_ assessment.immediately]" "i"] [list "[_ assessment.at_the_end]" "aa"] [list "[_ assessment.manually]" "m"]]
+}
 set actions_list [db_list_of_lists get_actions {} ]
 set return_url ""