Index: openacs-4/contrib/packages/survey/www/process-response.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/Attic/process-response.tcl,v
diff -u -r1.1 -r1.1.2.1
--- openacs-4/contrib/packages/survey/www/process-response.tcl	19 Sep 2003 16:48:03 -0000	1.1
+++ openacs-4/contrib/packages/survey/www/process-response.tcl	13 Jan 2004 22:45:01 -0000	1.1.2.1
@@ -199,6 +199,9 @@
 		if {$action_type=="db"} {
 		    # insert value into db
 		    db_dml ignore "update $table_name set $column_name=:response_value where $key_name=:user_id"
+		    if {![db_resultrows]} {
+			db_dml insert "insert into $table_name ($key_name,$column_name) values (:user_id,_response_value)"
+		    }
 		} else {
 		    if {$action_type=="tcl"} {
 			# execute tcl code - need more specs on that - Kolja