- Fixed rule-engine support for simple_survey

www/one.adp

@@ -16,7 +16,7 @@
 	</p>
 </if>
 
-<form enctype=multipart/form-data method="post" action="@package_url;noquote@/process-response">
+<form enctype=multipart/form-data method="POST" action="@package_url;noquote@/process-response">
 <%= [export_vars -form {survey_id response_id related_object_id related_context_id task_id return_url}] %>
 <table border="0" cellpadding="0" cellspacing="0" width="100%">
     <tr>

www/one.tcl

@@ -142,6 +142,13 @@ if {$single_response_p == "t" && $single_editable_p == "f"} {
 
 if {"" != $response_id} {
     set edit_previous_response_p "t"
+
+    # Get the response data in order to show correctly the related_object_id in the .adp
+    db_1row response_info "
+	select	*
+	from	survsimp_responses
+	where	response_id = :response_id	      
+    "
 }
 
 

www/process-response.tcl

@@ -127,6 +127,7 @@ ad_page_contract {
     survey_name:onerow
 }
 
+
 ad_require_permission $survey_id survsimp_take_survey
 
 set user_id [ad_verify_and_get_user_id]