Index: openacs-4/packages/survey/www/admin/question-add-3.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/question-add-3.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/survey/www/admin/question-add-3.tcl 25 Sep 2002 00:43:42 -0000 1.4 +++ openacs-4/packages/survey/www/admin/question-add-3.tcl 12 Mar 2003 01:05:52 -0000 1.5 @@ -44,7 +44,7 @@ get_survey_info -section_id $section_id if {![info exists survey_info(survey_id)]} { - ad_return_complaint 1 "Requested survey does not exist" + ad_return_complaint 1 "[_ survey.lt_Requested_survey_does]" ad_script_abort } @@ -54,17 +54,18 @@ if { [empty_string_p $question_text] } { incr exception_count - append exception_text "
  • You did not enter a question.\n" + append exception_text "
  • [_ survey.lt_You_did_not_enter_a_q]\n" } if { $type != "scored" && $type != "general" } { incr exception_count - append exception_text "
  • Surveys of type $type are not currently available.\n" + set type_var $type + append exception_text "
  • [_ survey.Surveys of type $type are not currently available.\n" } if { $type == "general" && $abstract_data_type == "choice" && [empty_string_p $valid_responses] } { incr exception_count - append exception_text "
  • You did not enter a list of valid responses/choices.\n" + append exception_text "
  • [_ survey.lt_You_did_not_enter_a_l]\n" } @@ -93,9 +94,9 @@ } } elseif { $abstract_data_type == "yn" } { set abstract_data_type "boolean" - set presentation_options "Yes/No" + set presentation_options "[_ survey.YesNo]" } elseif { $abstract_data_type == "boolean" } { - set presentation_options "True/False" + set presentation_options "[_ survey.TrueFalse]" } db_transaction { @@ -136,7 +137,7 @@ } on_error { db_release_unused_handles - ad_return_error "Database Error" "
    $errmsg
    " + ad_return_error "[_ survey.Database_Error]" "
    $errmsg
    " ad_script_abort }