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.2 -r1.3
--- openacs-4/contrib/packages/survey/www/process-response.tcl	26 Jan 2004 15:39:41 -0000	1.2
+++ openacs-4/contrib/packages/survey/www/process-response.tcl	15 Feb 2004 13:56:12 -0000	1.3
@@ -27,10 +27,10 @@
 	foreach section_id $section_ids {
 	    if {[ad_var_type_check_integer_p $section_id]} {
 		if ![db_0or1row section_exists {}] {
-		    ad_complain "Section $section_id does not exist"
+		    ad_complain "[_ survey.lt_Section_section_id_do_1]"
 		}
 	    } else {
-		ad_complain "Section_id $section_id is not an integer"
+		ad_complain "[_ survey.lt_Section_id_section_id]"
 	    }
 	}
     }
@@ -71,7 +71,7 @@
 	    
 	    if { $abstract_data_type == "date" } {
 		if [catch  { set response_to_question($question_id) [validate_ad_dateentrywidget "" response_to_question.$question_id [ns_getform]]} errmsg] {
-		    ad_complain "$errmsg: Please make sure your dates are valid."
+		    ad_complain "[_ survey.lt_errmsg_Please_make_su]"
 		}
 	    }
 	    
@@ -97,13 +97,13 @@
 		if { $abstract_data_type == "number" } {
 		    if { ![regexp {^(-?[0-9]+\.)?[0-9]+$} $response_value] } {
 			
-			ad_complain "The response to \"$question_text\" must be a number. Your answer was \"$response_value\"."
+			ad_complain "[_ survey.lt_The_response_to_quest]"."
 			continue
 		    }
 		} elseif { $abstract_data_type == "integer" } {
 		    if { ![regexp {^[0-9]+$} $response_value] } {
 			
-			ad_complain "The response to \"$question_text\" must be an integer. Your answer was \"$response_value\"."
+			ad_complain "[_ survey.lt_The_response_to_quest_1]"
 			continue
 		    }
 		}
@@ -114,7 +114,7 @@
 		set n_bytes [file size $tmp_filename]
 		if { $n_bytes == 0 && $required_p == "t" } {
 		    if {![info exist upload_file_exist($question_id)]} {
-			ad_complain "Your file is zero-length. Either you attempted to upload a zero length file, a file which does not exist, or something went wrong during the transfer."
+			ad_complain "[_ survey.lt_Your_file_is_zero-len]"
 		    }
 		}
 	    }
@@ -126,7 +126,7 @@
 	    foreach skipped_question $questions_with_missing_responses {
 		append missing "<li>$skipped_question"
 	    }
-	    ad_complain "You didn't respond to all required sections. You skipped:<ul>$missing</ul>"
+	    ad_complain "[_ survey.lt_You_didnt_respond_to__1]"
 	    return 0
 	} else {
 	    return 1
@@ -279,7 +279,7 @@
                     set n_bytes [file size $tmp_filename]
 
                     if { $n_bytes == 0 } {
-                        error "This should have been checked earlier."
+                        error "[_ survey.lt_This_should_have_been]"
                     } else {
                          set unique_name "${filename}_${response_id}"
 			if {[ad_conn user_id]=="0"} {
@@ -328,10 +328,6 @@
     ad_returnredirect "$return_url"
            ad_script_abort
 } else {
-     set context_bar [ad_context_bar "Response Submitted for $survey_name"]
+     set context_bar [ad_context_bar "[_ survey.lt_Response_Submitted_fo]"]
      ad_return_template
 }	
-    
-
-
-