Index: openacs-4/packages/rules/www/add-trigger.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rules/www/Attic/add-trigger.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/rules/www/add-trigger.tcl	3 Dec 2004 17:56:02 -0000	1.1
+++ openacs-4/packages/rules/www/add-trigger.tcl	8 Dec 2004 21:18:13 -0000	1.2
@@ -21,19 +21,27 @@
 
 set questions [list]
 set results [list]
+set count 0
+set first_qs 0
 
 db_foreach questions { *SQL* } {
+    incr count
+    if  { $count == 1 } { 
+          set first_qs $qs_id
+    }
     set question [list $description $qs_id]
     lappend questions $question
 }
+
+db_foreach result {select choice_id as result_id, label as value from survey_question_choices  where  question_id = :first_qs} {
+    lappend results [list $value $result_id]
+}
+
 db_foreach results { *SQL* } {
     set result [list $value $result_id]
     lappend results $result
 }
 
-
-
-
 form create add_trigger
 
 element create add_trigger rule_id\