-Example usage. This code:
+
+ Example usage. This code:
set tag_attribute_list [list [list label " label1 " value visa1] [list label " label2 " value visa2] [list label " label3 " value visa3] ]
qf_choice type radio name creditcard value $tag_attribute_list
-Generates:
+ Generates:
-"<label><input type="radio" name="creditcard" value="visa1"> label1 </label>
+ "<label><input type="radio" name="creditcard" value="visa1"> label1 </label>
<label><input type="radio" name="creditcard" value="visa2"> label2 </label>
<label><input type="radio" name="creditcard" value="visa3"> label3 </label>"
-By switching type to select like this:
+ By switching type to select like this:
qf_choice type select name creditcard value $tag_attribute_list
-the code generates:
+ the code generates:
-"<select name="creditcard">
+ "<select name="creditcard">
<option value="visa1"> label1 </option>
<option value="visa2"> label2 </option>
<option value="visa3"> label3 </option>
</select>"
-
+
} {
# use upvar to set form content, set/change defaults
@@ -1326,10 +1213,24 @@
upvar 1 __qf_remember_attributes __qf_remember_attributes
upvar 1 __qf_arr __qf_arr
upvar 1 __form_ids_select_open_list __form_ids_select_open_list
+
+ # collect args
+ if { [llength $arg1] > 1 && $value1 eq "" } {
+ set arg_list $arg1
+ foreach arg $args {
+ lappend args_list $arg
+ }
+ } elseif { $arg1 ne "" } {
+ lappend args $arg1 $value1
+ set arg_list $args
+ } else {
+ set arg_list [list ]
+ }
+
set attributes_select_list [list value accesskey align class cols name readonly rows style tabindex title wrap]
set attributes_full_list $attributes_select_list
lappend attributes_full_list type form_id id
- set arg_list [list $arg1 $arg2 $arg3 $arg4 $arg5 $arg6 $arg7 $arg8 $arg9 $arg10 $arg11 $arg12 $arg13 $arg14 $arg15 $arg16 $arg17 $arg18 $arg19 $arg20 $arg21 $arg22 $arg23 $arg24]
+
set attributes_list [list]
set select_list [list]
foreach {attribute value} $arg_list {
@@ -1344,7 +1245,7 @@
} elseif { $value eq "" } {
# do nothing
} else {
- ns_log Error "qf_choice: [string range $attribute 0 15] is not a valid attribute. invoke with attribute value pairs. Separate each with a space."
+ ns_log Error "qf_choice: [string range $attribute 0 15] is not a valid attribute."
ad_script_abort
}
}
@@ -1360,7 +1261,7 @@
}
lappend select_list form_id $attributes_arr(form_id)
-
+
# if attributes_arr(type) = select, then items are option tags wrapped by a select tag
# if attributes_arr(type) = radio, then items are input tags, wrapped in a list for now
@@ -1430,37 +1331,16 @@
ad_proc -public qf_choices {
{arg1 ""}
- {arg2 ""}
- {arg3 ""}
- {arg4 ""}
- {arg5 ""}
- {arg6 ""}
- {arg7 ""}
- {arg8 ""}
- {arg9 ""}
- {arg10 ""}
- {arg11 ""}
- {arg12 ""}
- {arg13 ""}
- {arg14 ""}
- {arg15 ""}
- {arg16 ""}
- {arg17 ""}
- {arg18 ""}
- {arg19 ""}
- {arg20 ""}
- {arg21 ""}
- {arg22 ""}
- {arg23 ""}
- {arg24 ""}
- } {
+ {value1 ""}
+ args
+} {
returns html of a select multiple box or list of checkboxes (where multiple values may be sent with form post).
- Required attributes: name, value.
- Set "type" to "select" for multi select box, or "checkbox" for checkboxes.
- The value of the "value" attribute is a list_of_lists, each list item contains attribute/value pairs for a radio or option/bar item.
- If "label" not provided for tags in the list_of_lists, the value of the "value" attribute is also used for label.
- Set "selected" attribute to 1 in the value list_of_lists to indicate item selected. Default is unselected (if selected attributed is not included, or its value not 1)..
- } {
+ Required attributes: name, value.
+ Set "type" to "select" for multi select box, or "checkbox" for checkboxes.
+ The value of the "value" attribute is a list_of_lists, each list item contains attribute/value pairs for a radio or option/bar item.
+ If "label" not provided for tags in the list_of_lists, the value of the "value" attribute is also used for label.
+ Set "selected" attribute to 1 in the value list_of_lists to indicate item selected. Default is unselected (if selected attributed is not included, or its value not 1)..
+} {
# use upvar to set form content, set/change defaults
# __qf_arr contains last attribute values of tag, indexed by {tag}_attribute, __form_last_id is in __qf_arr(form_id)
upvar 1 __form_ids_list __form_ids_list
@@ -1469,10 +1349,23 @@
upvar 1 __qf_arr __qf_arr
upvar 1 __form_ids_select_open_list __form_ids_select_open_list
+ # collect args
+ if { [llength $arg1] > 1 && $value1 eq "" } {
+ set arg_list $arg1
+ foreach arg $args {
+ lappend args_list $arg
+ }
+ } elseif { $arg1 ne "" } {
+ lappend args $arg1 $value1
+ set arg_list $args
+ } else {
+ set arg_list [list ]
+ }
+
set attributes_select_list [list value accesskey align class cols name readonly rows style tabindex title wrap]
set attributes_full_list $attributes_select_list
lappend attributes_full_list type form_id id
- set arg_list [list $arg1 $arg2 $arg3 $arg4 $arg5 $arg6 $arg7 $arg8 $arg9 $arg10 $arg11 $arg12 $arg13 $arg14 $arg15 $arg16 $arg17 $arg18 $arg19 $arg20 $arg21 $arg22 $arg23 $arg24]
+
set attributes_list [list]
set select_list [list]
foreach {attribute value} $arg_list {
@@ -1484,8 +1377,6 @@
# create a list to pass to qf_select without it balking at unknown parameters
lappend select_list $attribute $value
}
- } elseif { $value eq "" } {
- # do nothing
} else {
ns_log Error "qf_choices: [string range $attribute 0 15] is not a valid attribute. invoke with attribute value pairs. Separate each with a space."
ad_script_abort