Index: openacs-4/contrib/packages/survey/www/admin/block-question-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/block-question-add.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/packages/survey/www/admin/block-question-add.tcl 19 Sep 2003 16:48:04 -0000 1.1 +++ openacs-4/contrib/packages/survey/www/admin/block-question-add.tcl 14 Feb 2004 19:57:59 -0000 1.2 @@ -32,21 +32,21 @@ ad_form -name create_question -action question-add-3 -export { after } -form { {question_id:text(hidden) {value $question_id}} {section_id:text(hidden) {value $section_id}} - {question_text:text(textarea) {label "Question"} {html {rows 5 cols 70}}} - {abstract_data_type:text(hidden) {value "choice"}} - {presentation_type:text(hidden) {value "radio"}} - {presentation_alignment:text(hidden) {value "beside"}} - {required:text(radio) {label "Required?"} {options {{Yes t} {No f}}} {value t}} - {valid_responses:text(hidden) {value "block"}} + {question_text:text(textarea) {label "[_ survey.Question]"} {html {rows 5 cols 70}}} + {abstract_data_type:text(hidden) {value "[_ survey.choice]"}} + {presentation_type:text(hidden) {value "[_ survey.radio]"}} + {presentation_alignment:text(hidden) {value "[_ survey.beside]"}} + {required:text(radio) {label "[_ survey.Required]"} {options {{Yes t} {No f}}} {value t}} + {valid_responses:text(hidden) {value "[_ survey.block]"}} {type:text(hidden) {value $type}} } set survey_id $survey_info(survey_id) -set context_bar [ad_context_bar [list "one?[export_url_vars survey_id]" $survey_info(name)] "Add A Question"] +set context_bar [ad_context_bar [list "one?[export_url_vars survey_id]" $survey_info(name)] "[_ survey.Add_A_Question]""] if {[ad_parameter allow_question_deactivation_p] == 1} { ad_form -extend -name create_question -form { - {active:text(radio) {label "Active?"} {options {{Yes t} {No f}}} {value t}} + {active:text(radio) {label "[_ survey.Active]""} {options {{Yes t} {No f}}} {value t}} } } else { ad_form -extend -name create_question -form { Index: openacs-4/contrib/packages/survey/www/admin/condition-add-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/condition-add-2.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/packages/survey/www/admin/condition-add-2.tcl 19 Sep 2003 16:48:04 -0000 1.1 +++ openacs-4/contrib/packages/survey/www/admin/condition-add-2.tcl 14 Feb 2004 19:57:59 -0000 1.2 @@ -8,7 +8,7 @@ } -validate { choice_format -requires {choice:notnull} { if {!([regexp {^[0-9]+:[0-9]+$} $choice] || [regexp {^[0-9]+:[tf]$} $choice])} { - ad_complain "Invalid Choice!" + ad_complain "[_ survey.Invalid_Choice]" } } } @@ -35,7 +35,7 @@ } on_error { db_release_unused_handles - ad_return_error "Database Error $test" "
$errmsg
" + ad_return_error "[_ survey.Database_Error_test]" "
$errmsg
" ad_script_abort } Index: openacs-4/contrib/packages/survey/www/admin/condition-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/condition-add.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/packages/survey/www/admin/condition-add.tcl 19 Sep 2003 16:48:04 -0000 1.1 +++ openacs-4/contrib/packages/survey/www/admin/condition-add.tcl 14 Feb 2004 19:57:59 -0000 1.2 @@ -10,7 +10,7 @@ get_survey_info -section_id $section_id set survey_id $survey_info(survey_id) -set context_bar [ad_context_bar [list "one?[export_url_vars survey_id]" $survey_info(name)] "Add A Section"] +set context_bar [ad_context_bar [list "one?[export_url_vars survey_id]" $survey_info(name)] "[_ survey.Add_A_Section]]" db_1row branch_info "" @@ -32,15 +32,15 @@ } if {[empty_string_p $options]} { - ad_return_complaint 1 "No appropriate questions found" + ad_return_complaint 1 "[_ survey.lt_No_appropriate_questi]" ad_script_abort } ad_form -name add_condition -action condition-add-2 -form { {condition_id:text(hidden) {value $condition_id}} {branch_id:text(hidden) {value $branch_id}} {section_id:text(hidden) {value $section_id}} - {choice:text(radio) {label "Which choice should lead to this branch?"} {options $options}} + {choice:text(radio) {label "[_ survey.lt_Which_choice_should_l]"} {options $options}} } Index: openacs-4/contrib/packages/survey/www/admin/description-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/description-edit.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/packages/survey/www/admin/description-edit.tcl 19 Sep 2003 16:48:04 -0000 1.1 +++ openacs-4/contrib/packages/survey/www/admin/description-edit.tcl 14 Feb 2004 19:57:59 -0000 1.2 @@ -17,27 +17,11 @@ ad_require_permission $survey_id admin ad_form -name edit-survey -form { survey_id:key - {description:text(textarea) {label "Survey Description"} {html {rows 10 cols 65}}} - {desc_html:text(radio) {label "The Above Description is"} - {options {{"Preformatted Text" "pre"} - {"HTML" "html"} {"Plain Text" "plain"}}}} -} -edit_request { - get_survey_info -survey_id $survey_id - set survey_name $survey_info(name) - set description $survey_info(description) - set description_html_p $survey_info(description_html_p) - set desc_html "" - if {$description_html_p=="t"} { - set desc_html "html" - } else { - set desc_html "plain" + {description:text(textarea) {label "[_ survey.Survey_Description]"} {html {rows 10 cols 65}}} + {desc_html:text(radio) {label "[_ survey.lt_The_Above_Description]"} + {options {{"[_ survey.Preformatted_Text]" "pre"} + {"[_ survey.HTML]" "html"} {"[_ survey.lt_Plain_Text_plain_-edi]" } - ad_set_form_values desc_html description - -} -validate { - {description {[string length $description] <= 4000} - "Description must be less than 4000 characters" - } } } -edit_data { if {$desc_html=="pre" || $desc_html=="html"} { @@ -51,6 +35,6 @@ ad_script_abort } -set context_bar [ad_context_bar [list "one?[export_url_vars survey_id]" $survey_info(name)] "Edit Description"] +set context_bar [ad_context_bar [list "one?[export_url_vars survey_id]" $survey_info(name)] "[_ survey.Edit_Description]"] ad_return_template Index: openacs-4/contrib/packages/survey/www/admin/import-responses.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/import-responses.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/packages/survey/www/admin/import-responses.tcl 19 Sep 2003 16:48:04 -0000 1.1 +++ openacs-4/contrib/packages/survey/www/admin/import-responses.tcl 14 Feb 2004 19:57:59 -0000 1.2 @@ -16,7 +16,7 @@ } -validate { file_given { if {![info exists csvfile(tmpfile)] && $filename==""} { - ad_complain "No file given for import!" + ad_complain "[_ survey.lt_No_file_given_for_imp]" } } } @@ -28,11 +28,11 @@ # Get the survey information. get_survey_info -survey_id $survey_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 } set survey_name $survey_info(name) -set context_bar [ad_context_bar [list "one?[export_url_vars survey_id]" $survey_info(name)] "Import responses"] +set context_bar [ad_context_bar [list "one?[export_url_vars survey_id]" $survey_info(name)] "[_ survey.Import_responses]"] if {[info exists csvfile(tmpfile)]} { # preserve the file for future use @@ -44,7 +44,7 @@ set file [open $filename r] set numfields [ns_getcsv $file fields] -set fieldlist [list [list "-- Please Choose --" ""]] +set fieldlist [list [list "[_ survey.--_Please_Choose_--]" ""]] set i 0 foreach field $fields { lappend fieldlist [list $field $i] @@ -54,8 +54,8 @@ ad_form -name pick-fields -form { {survey_id:text(hidden) {value $survey_id}} {filename:text(hidden) {value $filename}} - {identifier:text(select) {label "Identify user by"} {options {{UserID user_id} {Email email}}}} - {idfield:text(select) {label "Identifying field"} {options $fieldlist} {required_p "t"}} + {identifier:text(select) {label "[_ survey.Identify_user_by]"} {options {{UserID user_id} {Email email}}}} + {idfield:text(select) {label "[_ survey.Identifying_field]"} {options $fieldlist} {required_p "t"}} } set question_ids [list] @@ -83,14 +83,14 @@ } ad_form -extend -name pick-fields -form { - {test:text(submit) {label "Test"}} - {import:text(submit) {label "Import"}} + {test:text(submit) {label "[_ survey.Test]"} {value "test"}} + {import:text(submit) {label "[_ survey.Import]" {value "import"}} } -on_submit { # Now, get the data ready to insert into the db - if {[info exists import] && $import=="Import"} { + if {[info exists import] && $import=="import"} { set mode "import" } - if {[info exists test] && $test=="Test"} { + if {[info exists test] && $test=="test"} { set mode "test" } @@ -117,7 +117,7 @@ } if {$error} { # user does not exist - lappend errors "Line $line: User with $identifier \"[lindex $data $idfield]\" does not exist" + lappend errors "[_ survey.lt_Line_line_User_with_i]" db_abort_transaction } append debug "$user_id:" @@ -149,7 +149,7 @@ # else, note an error if {$question($question_id.required_p)=="t"} { set error 1 - lappend errors "Line $line: Answer to question $question($question_id.question_text) cannot be empty" + lappend errors "[_ survey.lt_Line_line_Answer_to_q]" } continue } @@ -161,7 +161,7 @@ db_dml create_choice_response "" } else { set error 1 - lappend errors "Line $line: Choice \"$choice\" does not exist in question $question($question_id.question_text)" + lappend errors "[_ survey.lt_Line_line_Choice_choi]" } } } @@ -183,7 +183,7 @@ } default { set error 1 - lappend errors "Line $line: Invalid boolean value \"$response_value\" for question $question($question_id.question_text)" + lappend errors "[_ survey.lt_Line_line_Invalid_boo]" } } } @@ -194,7 +194,7 @@ db_dml create_number_response "" } else { set error 1 - lappend errors "Line $line: Invalid Number \"$response_value\" for question $question($question_id.question_text)" + lappend errors "[_ survey.lt_Line_line_Invalid_Num]" } } text { @@ -206,7 +206,7 @@ db_dml create_date_response "" } else { set error 1 - lappend errors "Line $line: Invalid Date \"$response_value\" for question $question($question_id.question_text)" + lappend errors "[_ survey.lt_Line_line_Invalid_Dat]" } } blob { @@ -221,21 +221,21 @@ } on_error { # There needs to be an on_error block if [exists_and_not_null errmsg] { - ns_returnnotice 200 "$errmsg :: $line" + ns_returnnotice 200 "[_ survey.errmsg__line]" } } } if {[llength $errors]==0} { # No errors if {$mode=="test"} { - ns_returnnotice 200 "Test successful" "There were no problems with the import. $line records can be created. Go back and hit Import to proceed" + ns_returnnotice 200 "[_ survey.lt_Test_successful___The]" } else { - ns_returnnotice 200 "Import successful" "There were no problems with the import. $line records have been created. Return to the survey" + ns_returnnotice 200 "[_ survey.lt_Import_successful___T]" } } else { # There were errors - ns_returnnotice 200 "Errors encountered" "There were some errors: " + ns_returnnotice 200 "[_ survey.Errors_encountered]" ""[_ survey.lt_There_were_some_error]": " } } close $file Index: openacs-4/contrib/packages/survey/www/admin/name-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/name-edit.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/packages/survey/www/admin/name-edit.tcl 19 Sep 2003 16:48:04 -0000 1.1 +++ openacs-4/contrib/packages/survey/www/admin/name-edit.tcl 14 Feb 2004 19:57:59 -0000 1.2 @@ -24,18 +24,16 @@ ad_form -name edit-name -form { survey_id:key - {name:text(text) {label "Survey Name"} {html {size 80}} + {name:text(text) {label "[_ survey.Survey_Name_1]"} {html {size 80}} {value $survey_name_unquoted}} - {description:text(textarea) {label "Description"} + {description:text(textarea) {label "[_ survey.Description_1]"} {html {rows 10 cols 65}} {value $survey_description}} - {description_html_p:text(radio) {label "The Above Description is"} - {options {{"HTML" "t"} {"Plain Text" "f"}}} {value $html_p} + {description_html_p:text(radio) {label "[_ survey.lt_The_Above_Description]"} + {options {{"[_ survey.HTML]" "t"} {"[_ survey.Plain_Text]" "f"}}} {value $html_p} } } -validate { - {name {[string length $name] <= 4000} - "Survey Name must be less than 4000 characters" - } + {name {[string length $name] <= 4000} "[_ survey.lt_Survey_Name_must_be_l]"} } -edit_request { set name $survey_name_unquoted } -edit_data { @@ -44,7 +42,7 @@ ad_script_abort } -set context_bar [ad_context_bar "Edit Name"] +set context_bar [ad_context_bar "[_ survey.Edit_Name]"] ad_return_template Index: openacs-4/contrib/packages/survey/www/admin/one-respondent.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/one-respondent.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/packages/survey/www/admin/one-respondent.tcl 19 Sep 2003 16:48:04 -0000 1.1 +++ openacs-4/contrib/packages/survey/www/admin/one-respondent.tcl 14 Feb 2004 19:57:59 -0000 1.2 @@ -27,11 +27,11 @@ set user_exists_p [db_0or1row user_name_from_id "" ] if { !$user_exists_p } { - ad_return_error "Not Found" "Could not find user #$user_id" + ad_return_error "[_ survey.Not_Found] "[_ survey.lt_Could_not_find_user_u]" return } -set context_bar [ad_context_bar "One Respondent"] +set context_bar [ad_context_bar "[_ survey.One_Respondent]"] db_multirow -extend {response_display} responses get_responses {} { Index: openacs-4/contrib/packages/survey/www/admin/one.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/one.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/packages/survey/www/admin/one.tcl 19 Sep 2003 16:48:04 -0000 1.1 +++ openacs-4/contrib/packages/survey/www/admin/one.tcl 14 Feb 2004 19:57:59 -0000 1.2 @@ -22,7 +22,7 @@ # Get the survey information. get_survey_info -survey_id $survey_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 } # get users and # who responded etc... @@ -36,9 +36,9 @@ set public_p $survey_info(public_p) set user_link [acs_community_member_url -user_id $survey_info(creation_user)] if {$survey_info(single_response_p) == "t"} { - set response_limit_toggle "allow multiple" + set response_limit_toggle "[_ survey.allow_multiple]" } else { - set response_limit_toggle "limit to one" + set response_limit_toggle "[_ survey.limit_to_one]" } @@ -47,9 +47,9 @@ set enabled_p $survey_info(enabled_p) set toggle_enabled_url "survey-toggle?[export_vars {survey_id enabled_p target}]" if {$enabled_p == "t"} { - append toggle_enabled_text "disable" + append toggle_enabled_text "[_ survey.disable]" } else { - append toggle_enabled_text "enable" + append toggle_enabled_text "[_ survey.enable]" } @@ -100,9 +100,9 @@ } else { db_1row branchchoice "" } - set branch_text "Branch is displayed, if answer to \"$bquestion\" is \"$bchoice\" (Change)" + set branch_text "[_ survey.lt_Branch_is_displayed_i] ([_ survey.Change])" } else { - set branch_text "No condition defined. Add one" + set branch_text "[_ survey.No_condition_defined]. [_ survey.Add_one]" } } else { set branch_text "" Index: openacs-4/contrib/packages/survey/www/admin/predefined-question-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/predefined-question-2.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/contrib/packages/survey/www/admin/predefined-question-2.tcl 23 Oct 2003 06:22:26 -0000 1.2 +++ openacs-4/contrib/packages/survey/www/admin/predefined-question-2.tcl 14 Feb 2004 19:57:59 -0000 1.3 @@ -35,7 +35,7 @@ get_section_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 } Index: openacs-4/contrib/packages/survey/www/admin/predefined-question-admin.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/predefined-question-admin.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/packages/survey/www/admin/predefined-question-admin.tcl 19 Sep 2003 16:48:04 -0000 1.1 +++ openacs-4/contrib/packages/survey/www/admin/predefined-question-admin.tcl 14 Feb 2004 19:57:59 -0000 1.2 @@ -10,7 +10,7 @@ set package_id [ad_conn package_id] set user_id [ad_get_user_id] -set context_bar [ad_context_bar "Predefined Questions"] +set context_bar [ad_context_bar "[_ survey.Predefined_Questions]"] # require sitewide admin ad_require_permission [acs_magic_object "security_context_root"] "admin" Index: openacs-4/contrib/packages/survey/www/admin/predefined-question-ae-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/predefined-question-ae-2.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/contrib/packages/survey/www/admin/predefined-question-ae-2.tcl 26 Jan 2004 15:39:41 -0000 1.3 +++ openacs-4/contrib/packages/survey/www/admin/predefined-question-ae-2.tcl 14 Feb 2004 19:57:59 -0000 1.4 @@ -13,7 +13,7 @@ set package_id [ad_conn package_id] set user_id [ad_get_user_id] -set context_bar [ad_context_bar "Predefined Questions"] +set context_bar [ad_context_bar "[_ survey.Predefined_Questions]"] # require sitewide admin ad_require_permission [acs_magic_object "security_context_root"] "admin" @@ -25,7 +25,7 @@ {question_html_p:text(hidden) {value $question_html_p}} {presentation_type_new:text(hidden) {value $presentation_type}} {presentation_type:text(hidden) {value $presentation_type}} - {question_text_inform:text(inform) {label "Question"} {html {rows 5 cols 70}} {value $question_text}} + {question_text_inform:text(inform) {label "[_ survey.Question]"} {html {rows 5 cols 70}} {value $question_text}} } @@ -45,54 +45,54 @@ switch $presentation_type { textbox { ad_form -extend -name predef -form { - {presentation:text(inform) {label "Presentation Type"} {value "One Line Answer"}} - {textbox_size:text(select) {options {{Small small} {Medium medium} {Large large}}} {label "Size"}} - {abstract_data_type:text(select) {label "Type of Response"} - {options {{"Short Text" shorttext} {Text text} {Boolean boolean} {Number number} {Integer integer}}} + {presentation:text(inform) {label "[_ survey.Presentation_Type]"} {value "One Line Answer"}} + {textbox_size:text(select) {options {{Small small} {Medium medium} {Large large}}} {label "[_ survey.Size]"}} + {abstract_data_type:text(select) {label "[_ survey.Type_of_Response]"} + {options {{"[_ survey.Short_Text]" shorttext} {Text text} {Boolean boolean} {Number number} {Integer integer}}} } } } textarea { ad_form -extend -name predef -form { - {presentation:text(inform) {label "Presentation Type"} {value "Essay Answer"}} - {textarea_size:text(select) {options {{Small small} {Medium medium} {Large large}}} {label "Size"}} + {presentation:text(inform) {label "[_ survey.Presentation_Type]"} {value "Essay Answer"}} + {textarea_size:text(select) {options {{Small small} {Medium medium} {Large large}}} {label "[_ survey.Size]"}} {abstract_data_type:text(hidden) {value "text"}} } } "radio" - "select" { ad_form -extend -name predef -form { - {presentation:text(inform) {label "Presentation Type"} {value "Multiple Choice"}} + {presentation:text(inform) {label "[_ survey.Presentation_Type]"} {value "Multiple Choice"}} {abstract_data_type:text(radio) - {label "Type of Response"} {value "choice"} - {options {{"True or False" boolean} {"Yes or No" yn} {"Multiple Choice" choice}}}} + {label "[_ survey.Type_of_Response]"} {value "choice"} + {options {{"[_ survey.True_or_False]" boolean} {"[_ survey.Yes_or_No]" yn} {"[_ survey.Multiple_Choice]" choice}}}} {valid_responses:text(textarea) - {label "For Multiple Choice
Enter a List of Valid Responses
(enter one choice per line)"} + {label "[_ survey.lt_For_Multiple_Choicebr]"} {html {rows 10 cols 50}} {value $valid_responses}} } -validate { - {valid_responses {$abstract_data_type!="choice" || ![empty_string_p $valid_responses]} "You did not enter a set of valid responses"} + {valid_responses {$abstract_data_type!="choice" || ![empty_string_p $valid_responses]} "[_ survey.lt_You_did_not_enter_a_s]"} } } "checkbox" { ad_form -extend -name predef -form { - {presentation:text(inform) {label "Presentation Type"} {value "Multiple Choice"}} - {valid_responses:text(textarea) {label "Valid Resposnes (enter one choice per line)"} {html {rows 10 cols 50}}} + {presentation:text(inform) {label "[_ survey.Presentation_Type]"} {value "Multiple Choice"}} + {valid_responses:text(textarea) {label "[_ survey.lt_Valid_Resposnes_enter_1]"} {html {rows 10 cols 50}}} {abstract_data_type:text(hidden) {value "choice"}} } -validate { - {valid_responses {$abstract_data_type!="choice" || ![empty_string_p $valid_responses]} "You did not enter a set of valid responses"} + {valid_responses {$abstract_data_type!="choice" || ![empty_string_p $valid_responses]} "[_ survey.lt_You_did_not_enter_a_s]"} } } "date" { ad_form -extend -name predef -form { - {presentation:text(inform) {label "Presentation Type"} {value "Date Answer"}} + {presentation:text(inform) {label "[_ survey.Presentation_Type]"} {value "Date Answer"}} {abstract_data_type:text(hidden) {value date}} } } "upload_file" { ad_form -extend -name predef -form { - {presentation:text(inform) {label "Presentation Type"} {value "Attachment Answer"}} + {presentation:text(inform) {label "[_ survey.Presentation_Type]"} {value "Attachment Answer"}} {abstract_data_type:text(hidden) {value blob}} } } @@ -101,22 +101,22 @@ ad_form -extend -name predef -form { # {presentation_alignment:text(radio) {options {{"Beside the question" beside} {"Below the question" below}}} {value below} {label "Presentation Alignment"}} {presentation_alignment:text(hidden) {value beside}} - {action_type:text(radio) {label "Action on submit"} {options {{"Update DB" db} {"Execute TCL-Code" tcl} {"Nothing" "null"}}}} - {tcl:text(textarea),optional {label "TCL-Code"}} - {table_name:text(text),optional {label "Table"}} - {column_name:text(text),optional {label "Column"}} - {key_name:text(text),optional {label "Key Column"}} + {action_type:text(radio) {label "[_ survey.Action_on_submit]"} {options {{"[_ survey.Update_DB]" db} {"[_ survey.Execute_TCL-Code]" tcl} {"[_ survey.Nothing]" "null"}}}} + {tcl:text(textarea),optional {label "[_ survey.TCL-Code]"}} + {table_name:text(text),optional {label "[_ survey.Table]"}} + {column_name:text(text),optional {label "[_ survey.Column]"}} + {key_name:text(text),optional {label "[_ survey.Key_Column]"}} } -select_query { select * from survey_predefined_questions where predefined_question_id=:predefined_question_id } -validate { - {tcl {$action_type=="tcl" || [empty_string_p $tcl]} "Please select \"Execute TCL-Code\" if you want to enter code"} - {tcl {![empty_string_p $tcl] || $action_type!="tcl"} "Please enter TCL-Code"} - {table_name {$action_type=="db" || [empty_string_p $table_name]} "Please select \"Update DB\" if you want to insert values into the Database"} - {table_name {![empty_string_p $table_name] || $action_type!="db"} "Please enter a table name"} - {column_name {![empty_string_p $column_name] || $action_type!="db"} "Please enter a column name"} - {column_name {$action_type=="db" || [empty_string_p $column_name]} "Please select \"Update DB\" if you want to insert values into the Database"} - {key_name {$action_type=="db" || [empty_string_p $key_name]} "Please select \"Update DB\" if you want to insert values into the Database"} - {key_name {![empty_string_p $key_name] || $action_type!="db"} "Please enter a key name"} + {tcl {$action_type=="tcl" || [empty_string_p $tcl]} "[_ survey.lt_Please_select_Execute]"} + {tcl {![empty_string_p $tcl] || $action_type!="tcl"} "[_ survey.lt_Please_enter_TCL-Code]"} + {table_name {$action_type=="db" || [empty_string_p $table_name]} "[_ survey.lt_Please_select_Update_]"} + {table_name {![empty_string_p $table_name] || $action_type!="db"} "[_ survey.lt_Please_enter_a_table_]"} + {column_name {![empty_string_p $column_name] || $action_type!="db"} "[_ survey.lt_Please_enter_a_column]"} + {column_name {$action_type=="db" || [empty_string_p $column_name]} "[_ survey.lt_Please_select_Update_]"} + {key_name {$action_type=="db" || [empty_string_p $key_name]} "[_ survey.lt_Please_select_Update_]"} + {key_name {![empty_string_p $key_name] || $action_type!="db"} "[_ survey.lt_Please_enter_a_key_na]"} } -new_request { set action_type "null" } -on_submit { @@ -177,7 +177,7 @@ continue } - lappend response_list [list "$trimmed_response" "$count"] + lappend response_list [list "$trimmed_response" "$count"n] incr count } Index: openacs-4/contrib/packages/survey/www/admin/predefined-question-ae.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/predefined-question-ae.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/packages/survey/www/admin/predefined-question-ae.tcl 19 Sep 2003 16:48:04 -0000 1.1 +++ openacs-4/contrib/packages/survey/www/admin/predefined-question-ae.tcl 14 Feb 2004 19:57:59 -0000 1.2 @@ -10,23 +10,23 @@ set package_id [ad_conn package_id] set user_id [ad_get_user_id] -set context_bar [ad_context_bar "Predefined Questions"] +set context_bar [ad_context_bar "[_ survey.Predefined_Questions]"] # require sitewide admin ad_require_permission [acs_magic_object "security_context_root"] "admin" ad_form -name predef -form { predefined_question_id:key - {question_text:text(textarea) {label "Question"} {html {rows 5 cols 70}}} - {question_html_p:text(radio) {label "HTML?"} {options {{"Yes" t} {"No" f}}} {value f}} + {question_text:text(textarea) {label "[_ survey.Question]"} {html {rows 5 cols 70}}} + {question_html_p:text(radio) {label "[_ survey.HTML_1]"} {options {{"[_ survey.Yes]" t} {"[_ survey.No]" f}}} {value f}} {presentation_type:text(select) - {label "Presentation Type"} - {options {{ "One Line Answer (Text Field)" "textbox" } - { "Essay Answer (Text Area)" "textarea" } - { "Multiple Choice (Drop Down, single answer allowed)" "select" } - { "Multiple Choice (Radio Buttons, single answer allowed)" "radio" } - { "Multiple Choice (Checkbox, multiple answers allowed)" "checkbox" } - { "Date" "date" } - { "File Attachment" "upload_file" } } } } + {label "[_ survey.Presentation_Type]"} + {options {{ "[_ survey.lt_One_Line_Answer_Text_]" "textbox" } + { "[_ survey.lt_Essay_Answer_Text_Are]" "textarea" } + { "[_ survey.lt_Multiple_Choice_Drop_]" "select" } + { "[_ survey.lt_Multiple_Choice_Radio]" "radio" } + { "[_ survey.lt_Multiple_Choice_Check]" "checkbox" } + { "[_ survey.Date]" "date" } + { "[_ survey.File_Attachment]" "upload_file" } } } } } -select_query { select * from survey_predefined_questions where predefined_question_id=:predefined_question_id } -after_submit { Index: openacs-4/contrib/packages/survey/www/admin/predefined-question.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/predefined-question.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/packages/survey/www/admin/predefined-question.tcl 19 Sep 2003 16:48:04 -0000 1.1 +++ openacs-4/contrib/packages/survey/www/admin/predefined-question.tcl 14 Feb 2004 19:57:59 -0000 1.2 @@ -33,24 +33,24 @@ ad_form -name create_question -action predefined-question-2 -export { after } -form { {question_id:text(hidden) {value $next_question_id}} {section_id:text(hidden) {value $section_id}} - {predefined_question_id:integer(select) {label "Question"} {options $predefs}} - {question_text:text(textarea) {label "Question (leave empty to keep original)"} {html {rows 5 cols 70}}} + {predefined_question_id:integer(select) {label "[_ survey.Question]"} {options $predefs}} + {question_text:text(textarea) {label "[_ survey.lt_Question_leave_empty_]"} {html {rows 5 cols 70}}} } set survey_id $survey_info(survey_id) -set context_bar [ad_context_bar [list "one?[export_url_vars survey_id]" $survey_info(name)] "Add A Question"] +set context_bar [ad_context_bar [list "one?[export_url_vars survey_id]" $survey_info(name)] "[_ survey.Add_A_Question]"] if {[ad_parameter allow_question_deactivation_p] == 1} { ad_form -extend -name create_question -form { - {active:text(radio) {label "Active?"} {options {{Yes t} {No f}}} {value t}} + {active:text(radio) {label "[_ survey.Active]"} {options {{Yes t} {No f}}} {value t}} } } else { ad_form -extend -name create_question -form { {active:text(hidden) {value t}} } } ad_form -extend -name create_question -form { - {required_p:text(radio) {label "Required?"} {options {{Yes t} {No f}}} {value t}} + {required_p:text(radio) {label "[_ survey.Required]"} {options {{Yes t} {No f}}} {value t}} } ad_return_template Index: openacs-4/contrib/packages/survey/www/admin/question-add-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/question-add-2.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/packages/survey/www/admin/question-add-2.tcl 19 Sep 2003 16:48:04 -0000 1.1 +++ openacs-4/contrib/packages/survey/www/admin/question-add-2.tcl 14 Feb 2004 19:57:59 -0000 1.2 @@ -36,7 +36,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 } @@ -47,7 +47,7 @@ # maybe put question_id:key in there if we move the processing from quesion-add-3 to this form. ad_form -name create-question-2 -action question-add-3 -form { - {question:text(inform) {label "Question Text"} {value $question_text}} + {question:text(inform) {label "[_ survey.Question_Text]"} {value $question_text}} {survey_id:text(hidden) {value $survey_id}} {section_id:text(hidden) {value $section_id}} {question_id:text(hidden) {value $question_id}} @@ -86,7 +86,7 @@ db_1row count_variable_names "" set response_fields " - +" set variable_id_list [list] @@ -118,16 +118,16 @@ "textbox" { ad_form -extend -name create-question-2 -form { - {textbox_size:text(select) {options {{Small small} {Medium medium} {Large large}}} {label "Size"}} - {abstract_data_type:text(select) {label "Type of Response"} - {options {{"Short Text" shorttext} {Text text} {Number number} {Integer integer}}} + {textbox_size:text(select) {options {{Small small} {Medium medium} {Large large}}} {label "[_ survey.Size]"}} + {abstract_data_type:text(select) {label "[_ survey.Type_of_Response]"} + {options {{"[_ survey.Short_Text]" shorttext} {Text text} {Number number} {Integer integer}}} } } } "textarea" { ad_form -extend -name create-question-2 -form { - {textarea_size:text(select) {options {{Small small} {Medium medium} {Large large}}} {label "Size"}} + {textarea_size:text(select) {options {{Small small} {Medium medium} {Large large}}} {label "[_ survey.Size]"}} {abstract_data_type:text(hidden) {value "text"}} } @@ -144,17 +144,17 @@ ad_form -extend -name create-question-2 -form { {abstract_data_type:text(radio) - {label "Type of Response"} {value "choice"} - {options {{"True or False" boolean} {"Yes or No" yn} {"Multiple Choice" choice}}}} + {label "[_ survey.Type_of_Response]"} {value "choice"} + {options {{"[_ survey.True_or_False]" boolean} {"[_ survey.Yes_or_No]" yn} {"[_ survey.Multiple_Choice]" choice}}}} {valid_responses:text(textarea) - {label "For Multiple Choice
Enter a List of Valid Responses
(enter one choice per line)"} + {label "[_ survey.lt_For_Multiple_Choicebr]"} {html {rows 10 cols 50}}} } } "checkbox" { ad_form -extend -name create-question-2 -form { - {valid_responses:text(textarea) {label "Valid Resposnes (enter one choice per line)"} {html {rows 10 cols 50}}} + {valid_responses:text(textarea) {label "[_ survey.lt_Valid_Resposnes_enter_1]"} {html {rows 10 cols 50}}} {abstract_data_type:text(hidden) {value "choice"}} } } @@ -181,6 +181,6 @@ } -set context_bar [ad_context_bar [list "one?[export_url_vars survey_id]" $survey_info(name)] "Add A Question"] +set context_bar [ad_context_bar [list "one?[export_url_vars survey_id]" $survey_info(name)] "[_ survey.Add_A_Question]"] ad_return_template Index: openacs-4/contrib/packages/survey/www/admin/question-add-3.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/question-add-3.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/packages/survey/www/admin/question-add-3.tcl 19 Sep 2003 16:48:04 -0000 1.1 +++ openacs-4/contrib/packages/survey/www/admin/question-add-3.tcl 14 Feb 2004 19:57:59 -0000 1.2 @@ -51,7 +51,7 @@ get_section_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 } @@ -61,17 +61,17 @@ 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" + append exception_text "
  • [_ survey.lt_Surveys_of_type_type_]\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" } Index: openacs-4/contrib/packages/survey/www/admin/question-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/question-add.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/packages/survey/www/admin/question-add.tcl 19 Sep 2003 16:48:04 -0000 1.1 +++ openacs-4/contrib/packages/survey/www/admin/question-add.tcl 14 Feb 2004 19:57:59 -0000 1.2 @@ -30,35 +30,35 @@ ad_form -name create_question -action question-add-2 -export { after } -form { question_id:key {section_id:text(hidden) {value $section_id}} - {question_text:text(textarea) {label "Question"} {html {rows 5 cols 70}}} + {question_text:text(textarea) {label "[_ survey.Question]"} {html {rows 5 cols 70}}} } ad_form -extend -name create_question -form { {presentation_type:text(select) - {label "Presentation Type"} - {options {{ "One Line Answer (Text Field)" "textbox" } - { "Essay Answer (Text Area)" "textarea" } - { "Multiple Choice (Drop Down, single answer allowed)" "select" } - { "Multiple Choice (Radio Buttons, single answer allowed)" "radio" } - { "Multiple Choice (Checkbox, multiple answers allowed)" "checkbox" } - { "Date" "date" } - { "File Attachment" "upload_file" } } } } + {label "[_ survey.Presentation_Type]"} + {options {{ "[_ survey.lt_One_Line_Answer_Text_]" "textbox" } + { "[_ survey.lt_Essay_Answer_Text_Are]" "textarea" } + { "[_ survey.lt_Multiple_Choice_Drop_]" "select" } + { "[_ survey.lt_Multiple_Choice_Radio]" "radio" } + { "[_ survey.lt_Multiple_Choice_Check]" "checkbox" } + { "[_ survey.Date]" "date" } + { "[_ survey.File_Attachment]" "upload_file" } } } } } set survey_id $survey_info(survey_id) -set context_bar [ad_context_bar [list "one?[export_url_vars survey_id]" $survey_info(name)] "Add A Question"] +set context_bar [ad_context_bar [list "one?[export_url_vars survey_id]" $survey_info(name)] "[_ survey.Add_A_Question]"] if {[ad_parameter allow_question_deactivation_p] == 1} { ad_form -extend -name create_question -form { - {active:text(radio) {label "Active?"} {options {{Yes t} {No f}}} {value t}} + {active:text(radio) {label "[_ survey.Active]"} {options {{Yes t} {No f}}} {value t}} } } else { ad_form -extend -name create_question -form { {active:text(hidden) {value t}} } } ad_form -extend -name create_question -form { - {required_p:text(radio) {label "Required?"} {options {{Yes t} {No f}}} {value t}} + {required_p:text(radio) {label "[_ survey.Required]"} {options {{Yes t} {No f}}} {value t}} } set catalogue_link "predefined-question?[export_url_vars section_id after]" ad_return_template Index: openacs-4/contrib/packages/survey/www/admin/question-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/question-delete.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/packages/survey/www/admin/question-delete.tcl 19 Sep 2003 16:48:04 -0000 1.1 +++ openacs-4/contrib/packages/survey/www/admin/question-delete.tcl 14 Feb 2004 19:57:59 -0000 1.2 @@ -26,28 +26,28 @@ ad_form -name confirm_delete -export {sort_order} -form { question_id:key - {question_text:text(inform) {label "Delete:"}} - {from:text(inform) {label "From:"} {value $survey_info(name)}} + {question_text:text(inform) {label "[_ survey.Delete_1]"}} + {from:text(inform) {label "[_ survey.From]"} {value $survey_info(name)}} } if {$n_responses > 0} { if {$n_responses >1} { - set response_text "responses" + set response_text "[_ survey.responses]" } else { - set response_text "response" + set response_text "[_ survey.response]" } ad_form -extend -name confirm_delete -form { - {warning:text(inform) {value "This question has $n_responses $response_text that will be deleted if you continue. (Note: This can not be undone.)"} - {label "Warning!"}} + {warning:text(inform) {value "[_ survey.lt_This_question_has_n_r]"} + {label "[_ survey.Warning]"}} } } ad_form -extend -name confirm_delete -form { {confirmation:text(radio) {label " "} {options - {{"Continue with Delete" t } - {"Cancel and return to survey responses" f }} } + {{"[_ survey.Continue_with_Delete]" t } + {"[_ survey.lt_Cancel_and_return_to_]" f }} } {value f}} } -select_query_name {get_question_details} -on_submit { if {$confirmation} { @@ -65,11 +65,11 @@ } } on_error { - ad_return_error "Database Error" "There was an error while trying to delete the question: + ad_return_error "Database Error" "[_ survey.lt_There_was_an_error_wh] 
     		$errmsg
    -

    Please go back using your browser. +

    [_ survey.lt_Please_go_back_using_] " ad_script_abort } @@ -86,11 +86,11 @@ } } on_error { - ad_return_error "Database Error" "There was an error while trying to delete the question: + ad_return_error "Database Error" "[_ survey.lt_There_was_an_error_wh_1]: 

     		$errmsg
    -

    Please go back using your browser. +

    [_ survey.lt_Please_go_back_using_] " ad_script_abort } @@ -102,6 +102,6 @@ ad_script_abort } -set context_bar [ad_context_bar "Delete Question"] +set context_bar [ad_context_bar "<#_ Delete Question"] ad_return_template Index: openacs-4/contrib/packages/survey/www/admin/question-modify-text.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/question-modify-text.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/packages/survey/www/admin/question-modify-text.tcl 19 Sep 2003 16:48:04 -0000 1.1 +++ openacs-4/contrib/packages/survey/www/admin/question-modify-text.tcl 14 Feb 2004 19:57:59 -0000 1.2 @@ -35,6 +35,6 @@ } -set context_bar [ad_context_bar [list "one?[export_url_vars survey_id]" $survey_info(name)] "Modify a Question's Text"] +set context_bar [ad_context_bar [list "one?[export_url_vars survey_id]" $survey_info(name)] "[_ survey.lt_Modify_a_Questions_Te]"] ad_return_template Index: openacs-4/contrib/packages/survey/www/admin/question-modify.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/question-modify.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/contrib/packages/survey/www/admin/question-modify.tcl 23 Oct 2003 06:22:26 -0000 1.2 +++ openacs-4/contrib/packages/survey/www/admin/question-modify.tcl 14 Feb 2004 19:57:59 -0000 1.3 @@ -33,25 +33,25 @@ if {$n_responses > 0} { if {$n_responses >1} { - set isare "are" - set resp "responses" + set isare "[_ survey.are]" + set resp "[_ survey.responses]" } else { - set isare "is" - set resp "response" + set isare "[_ survey.is]" + set resp "[_ survey.response]" } ad_form -extend -name modify_question -form { - {warning:text(inform) {label "Warning!"} {value "There $isare $n_responses $resp to this question. Editing a question with responses is not recommended. No record of the original question will remain. Proceed with caution."}} + {warning:text(inform) {label "[_ survey.Warning]"} {value "[_ survey.lt_There_isare_n_respons]"}} } } ad_form -extend -name modify_question -export {sort_order} -form { - {question_number:text(inform) {label "Modify Question #"}} - {survey_name:text(inform) {label "From"} {value $survey_name}} - {question_text:text(textarea) {label Question} {html {rows 5 cols 70}}} + {question_number:text(inform) {label "[_ survey.Modify_Question__]"}} + {survey_name:text(inform) {label "[_ survey.From_1]"} {value $survey_name}} + {question_text:text(textarea) {label "[_ survey.Question]"} {html {rows 5 cols 70}}} } if {$allow_question_deactivation == 1} { ad_form -extend -name modify_question -form { - {active_p:text(radio) {label "Active?"} {options {{Yes t} {No f}}}} + {active_p:text(radio) {label "[_ survey.Active]"} {options {{Yes t} {No f}}}} } } else { ad_form -extend -name modify_question -form { @@ -60,7 +60,7 @@ } ad_form -extend -name modify_question -form { - {required_p:text(radio) {label "Required?"} {options {{Yes t} {No f}}}} + {required_p:text(radio) {label "[_ survey.Required]"} {options {{Yes t} {No f}}}} {section_id:text(hidden) {value $section_id}} {survey_id:text(hidden) {value $survey_id}} } @@ -70,7 +70,7 @@ if {($presentation_type=="checkbox" || $presentation_type=="select" || $presentation_type=="radio") && $abstract_data_type != "boolean" && $block_p=="f"} { ad_form -extend -name modify_question -form { - {presentation_type:text(radio) {options {{"Radio buttons" radio} {"Checkboxes" checkbox} {"Select box" select}}} {value $presentation_type} {label "Presentation"}} + {presentation_type:text(radio) {options {{"[_ survey.Radio_buttons]" radio} {"[_ survey.Checkboxes]" checkbox} {"[_ survey.Select_box]" select}}} {value $presentation_type} {label "[_ survey.Presentation]"}} } set valid_responses_list [db_list survey_question_valid_responses {}] set response_list "" @@ -79,7 +79,7 @@ } ad_form -extend -name modify_question -form { {valid_responses:text(textarea) - {label "For Multiple Choice
    Enter a List of Valid Responses
    (enter one choice per line)"} + {label "[_ survey.lt_For_Multiple_Choicebr]"} {html {rows 10 cols 50}} {value $valid_responses}} } @@ -95,7 +95,7 @@ if {$section_info(block_section_p)=="f"} { set sections [db_list_of_lists sections ""] ad_form -extend -name modify_question -form { - {new_section:integer(select) {options $sections} {label "Move to section"} {value $section_id}} + {new_section:integer(select) {options $sections} {label "[_ survey.Move_to_section]"} {value $section_id}} } } @@ -166,6 +166,6 @@ } -set context_bar [ad_context_bar "Modify Question"] +set context_bar [ad_context_bar "[_ survey.Modify_Question]"] ad_return_template Index: openacs-4/contrib/packages/survey/www/admin/respondents.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/respondents.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/packages/survey/www/admin/respondents.tcl 19 Sep 2003 16:48:04 -0000 1.1 +++ openacs-4/contrib/packages/survey/www/admin/respondents.tcl 14 Feb 2004 19:57:59 -0000 1.2 @@ -25,13 +25,13 @@ get_survey_info -survey_id $survey_id set survey_name $survey_info(name) -set context_bar [ad_context_bar [list "one?[export_url_vars survey_id]" $survey_info(name)] "Respondents"] +set context_bar [ad_context_bar [list "one?[export_url_vars survey_id]" $survey_info(name)] "[_ survey.Respondents]"] set table_def { - {first_names "First Name" {upper(first_names) $order} {

    • }} - {last_name "Last Name" "" {}} - {email "Email Address" "" {}} - {actions "Actions" no_sort {}} + {first_names "[_ survey.First_Name]" {upper(first_names) $order} {}} + {last_name "[_ survey.Last_Name]" "" {}} + {email "[_ survey.Email_Address]" "" {}} + {actions "[_ survey.Actions]" no_sort {}} } set respondents_table [ad_table -Torderby $orderby -Textra_vars {survey_id} select_respondents {} $table_def] Index: openacs-4/contrib/packages/survey/www/admin/response-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/response-delete.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/packages/survey/www/admin/response-delete.tcl 19 Sep 2003 16:48:04 -0000 1.1 +++ openacs-4/contrib/packages/survey/www/admin/response-delete.tcl 14 Feb 2004 19:57:59 -0000 1.2 @@ -20,12 +20,12 @@ {response_id:text(hidden) {value $response_id}} {survey_id:text(hidden) {value $survey_id}} {user_id:text(hidden) {value $user_id}} - {warning:text(inform) {value "Completely delete ${user_name}'s response from $response_date? (Note: This can not be undone.)"} - {label "Warning!"}} + {warning:text(inform) {value "[_ survey.lt_Completely_delete_use]"} + {label "[_ survey.Warning]"}} {confirmation:text(radio) {label " "} {options - {{"Continue with Delete" t } - {"Cancel and return to survey responses" f }} } + {{"[_ survey.Continue_with_Delete]" t } + {"[_ survey.lt_Cancel_and_return_to_]" f }} } {value f} } @@ -36,4 +36,4 @@ ad_returnredirect "one-respondent?[export_vars {survey_id user_id}]" } -set context_bar [ad_context_bar "Delete Response"] +set context_bar [ad_context_bar "[_ survey.Delete_Response]"] Index: openacs-4/contrib/packages/survey/www/admin/responses.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/responses.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/packages/survey/www/admin/responses.tcl 19 Sep 2003 16:48:04 -0000 1.1 +++ openacs-4/contrib/packages/survey/www/admin/responses.tcl 14 Feb 2004 19:57:59 -0000 1.2 @@ -37,7 +37,7 @@ "date" - "text" - "shorttext" { - set extrainfo "View responses\n" + set extrainfo "[_ survey.View_responses]\n" } "boolean" { @@ -75,9 +75,9 @@ set n_responses [db_string survey_number_responses {} ] if { $n_responses == 1 } { - set response_sentence "There has been 1 response." + set response_sentence "[_ survey.lt_There_has_been_1_resp]" } else { - set response_sentence "There have been $n_responses responses." + set response_sentence "[_ survey.lt_There_have_been_n_res]" } set context_bar [ad_context_bar [list "one?[export_url_vars survey_id]" $survey_info(name)] "Responses"] Index: openacs-4/contrib/packages/survey/www/admin/section-add-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/section-add-2.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/packages/survey/www/admin/section-add-2.tcl 19 Sep 2003 16:48:04 -0000 1.1 +++ openacs-4/contrib/packages/survey/www/admin/section-add-2.tcl 14 Feb 2004 19:57:59 -0000 1.2 @@ -24,7 +24,7 @@ } -validate { first_section_not_branch -requires {branch_p:notnull} { if {$branch_p=="t" && $after==0} { - ad_complain "First section cannot be branch" + ad_complain "[_ survey.lt_First_section_cannot_]" } } } @@ -35,7 +35,7 @@ get_survey_info -survey_id $survey_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 } @@ -44,7 +44,7 @@ if { [empty_string_p $description] } { incr exception_count - append exception_text "
  • You did not enter a description.\n" + append exception_text "
  • [_ survey.lt_You_did_not_enter_a_d]\n" } if { $exception_count > 0 } { Index: openacs-4/contrib/packages/survey/www/admin/section-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/section-add.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/packages/survey/www/admin/section-add.tcl 19 Sep 2003 16:48:04 -0000 1.1 +++ openacs-4/contrib/packages/survey/www/admin/section-add.tcl 14 Feb 2004 19:57:59 -0000 1.2 @@ -23,25 +23,25 @@ ad_form -name create_section -action section-add-2 -form { {section_id:text(hidden) {value $next_section_id}} {survey_id:text(hidden) {value $survey_id}} - {name:text(text) {label "Section Name"} {html {size 30}}} - {description:text(textarea) {label "Description"} {html {rows 5 cols 70}}} - {description_html_p:text(radio) {label "The above description is"} {options {{HTML t} {"Plain text" f}}} {value f}} - {branch_p:text(radio) {label "Branch"} {options {{Yes t} {No f}}} {value f}} - {page_break_p:text(radio) {label "Begin new Page after this section"} {options {{Yes t} {No f}}} {value t}} + {name:text(text) {label "[_ survey.Section_Name]"} {html {size 30}}} + {description:text(textarea) {label "[_ survey.Description_1]"} {html {rows 5 cols 70}}} + {description_html_p:text(radio) {label "[_ survey.lt_The_above_description]"} {options {{HTML t} {"[_ survey.Plain_text]" f}}} {value f}} + {branch_p:text(radio) {label "[_ survey.Branch]"} {options {{Yes t} {No f}}} {value f}} + {page_break_p:text(radio) {label "[_ survey.lt_Begin_new_Page_after_]"} {options {{Yes t} {No f}}} {value t}} } -set poslist [list [list "First Section" 0]] +set poslist [list [list "[_ survey.First_Section]" 0]] db_foreach positions "" { lappend poslist [list $secname $secsortkey] } set lastsec $secsortkey ad_form -extend -name create_section -form { - {after:integer(Select) {label "Position"} {options $poslist} {value $lastsec}} + {after:integer(Select) {label "[_ survey.Position]"} {options $poslist} {value $lastsec}} } get_survey_info -survey_id $survey_id -set context_bar [ad_context_bar [list "one?[export_url_vars survey_id]" $survey_info(name)] "Add A Section"] +set context_bar [ad_context_bar [list "one?[export_url_vars survey_id]" $survey_info(name)] "[_ survey.Add_A_Section]"] ad_return_template Index: openacs-4/contrib/packages/survey/www/admin/section-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/section-delete.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/packages/survey/www/admin/section-delete.tcl 19 Sep 2003 16:48:04 -0000 1.1 +++ openacs-4/contrib/packages/survey/www/admin/section-delete.tcl 14 Feb 2004 19:57:59 -0000 1.2 @@ -40,19 +40,19 @@ } on_error { ad_form -name warning -action "one" -form { {survey_id:text(hidden) {value $survey_id}} - {warning:text(inform) {label "Warning"} {value "Unable to delete section. This was the Error: 
    $errmsg
    "}} + {warning:text(inform) {label "Warning"} {value "[_ survey.lt_Unable_to_delete_sect]"}} } - set context_bar [ad_context_bar "Delete Section"] + set context_bar [ad_context_bar "[_ survey.Delete_Section]"] ad_return_template set error 1 } } else { # there are still questions in the section. give a warning ad_form -name warning -action "one" -form { {survey_id:text(hidden) {value $survey_id}} - {warning:text(inform) {label "Warning"} {value "Unable to delete section. It does contain questions, which must be deleted first"}} + {warning:text(inform) {label "Warning"} {value "[_ survey.lt_Unable_to_delete_sect_1]"}} } - set context_bar [ad_context_bar "Delete Section"] + set context_bar [ad_context_bar "[_ survey.Delete_Section]"] ad_return_template set error 1 } Index: openacs-4/contrib/packages/survey/www/admin/section-edit-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/section-edit-2.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/contrib/packages/survey/www/admin/section-edit-2.tcl 26 Jan 2004 15:39:41 -0000 1.2 +++ openacs-4/contrib/packages/survey/www/admin/section-edit-2.tcl 14 Feb 2004 19:57:59 -0000 1.3 @@ -23,7 +23,7 @@ } -validate { first_section_not_branch -requires {branch_p:notnull} { if {$branch_p=="t" && $after==0} { - ad_complain "First section cannot be branch" + ad_complain "[_ survey.lt_First_section_cannot_]" } } } @@ -46,14 +46,14 @@ # that would be over this section, raise an error set dependant [db_string dependant ""] if {![empty_string_p $dependant] && $sort_key>=$dependant} { - ad_return_complaint 1 "Cannot move section below dependant sections" + ad_return_complaint 1 "[_ survey.lt_Cannot_move_section_b]" ad_script_abort } db_transaction { if {$old_block_section_p=="f" && $block_section_p=="t"} { if {![survey_block_section_candidate_p $section_id]} { - ad_return_complaint 1 "Cannot make measurement section" + ad_return_complaint 1 "[_ survey.lt_Cannot_make_measureme]" ad_script_abort } # Make this a block section Index: openacs-4/contrib/packages/survey/www/admin/section-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/section-edit.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/contrib/packages/survey/www/admin/section-edit.tcl 26 Jan 2004 15:39:41 -0000 1.2 +++ openacs-4/contrib/packages/survey/www/admin/section-edit.tcl 14 Feb 2004 19:57:59 -0000 1.3 @@ -30,19 +30,19 @@ } ad_form -extend -name modify_section -form { - {name:text(text) {label "Section Name"} {html {size 30}} {value $name}} - {description:text(textarea) {label "Description"} {html {rows 5 cols 70}} {value $description}} - {description_html_p:text(radio) {label "The above description is"} {options {{HTML t} {"Plain text" f}}} {value $description_html_p}} - {branch_p:text(radio) {label "Branch"} {options {{Yes t} {No f}}} {value $branch_p}} - {after:integer(Select) {label "Position"} {options $poslist} {value $after}} - {page_break_p:text(radio) {label "New Page after this section"} {options {{Yes t} {No f}}} {value $page_break_p}} + {name:text(text) {label "[_ survey.Section_Name]"} {html {size 30}} {value $name}} + {description:text(textarea) {label "[_ survey.Description_1]"} {html {rows 5 cols 70}} {value $description}} + {description_html_p:text(radio) {label "[_ survey.lt_The_above_description]"} {options {{HTML t} {"[_ survey.Plain_text]" f}}} {value $description_html_p}} + {branch_p:text(radio) {label "[_ survey.Branch]"} {options {{Yes t} {No f}}} {value $branch_p}} + {after:integer(Select) {label "[_ survey.Position]"} {options $poslist} {value $after}} + {page_break_p:text(radio) {label "[_ survey.lt_New_Page_after_this_s]"} {options {{Yes t} {No f}}} {value $page_break_p}} } if {$block_section_p=="t" || [survey_block_section_candidate_p $section_id]} { set answer_descriptions [join [db_list answer_descriptions ""] "\n"] ad_form -extend -name modify_section -form { - {block_section_p:text(radio) {label "Measurement Section"} {options {{Yes t} {No f}}} {value $block_section_p}} - {answer_descriptions:text(textarea),optional {label "Answer descriptions (one per line)"} {value $answer_descriptions}} + {block_section_p:text(radio) {label "[_ survey.Measurement_Section]"} {options {{Yes t} {No f}}} {value $block_section_p}} + {answer_descriptions:text(textarea),optional {label "[_ survey.lt_Answer_descriptions_o]"} {value $answer_descriptions}} } } else { ad_form -extend -name modify_section -form { @@ -56,6 +56,6 @@ set template_exists "f" } -set context_bar [ad_context_bar "Edit Section"] +set context_bar [ad_context_bar "[_ survey.Edit_Section]"] ad_return_template
    • Answer TextScore
    [_ survey.Answer_Text][_ survey.Score]
    $first_names$last_name$emailView$first_names$last_name$emailView