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
}