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 -N -r1.3 -r1.4
--- openacs-4/packages/rules/www/add-trigger.tcl	8 Dec 2004 22:02:52 -0000	1.3
+++ openacs-4/packages/rules/www/add-trigger.tcl	8 Dec 2004 22:34:24 -0000	1.4
@@ -22,10 +22,13 @@
     incr count
     if  { $count == 1 && ![exists_and_not_null selected_qs]} { 
           set selected_qs  $qs_id
-      }
+      } 
      set question [list $description $qs_id]
      lappend questions $question
 }
+if { $count == 0 } {
+ set selected_qs 0
+}
 if { ![exists_and_not_null selected_qs]} {
        set qs_sel $selected_qs
 } else {