+++ /dev/null
-[%- USE HTML %]
-[%#-
- Multibox
-
- This template makes an input box for you,
- decides whether it should be a text field or a drop down box,
- generates the HTML code, and fixes everything just right.
-
- call: PROCESS generic/multibox.html var = var, var2 = ....
-
- options and variables:
- name : name of the select/textfield
- id : id of the select/textfield, optional, defaults to name
- default : entered/selected value. defaults to a dereference of name, since it is usually set to that for update mechanisms
- id_key : key that holds the id in each row.
- id_sub : name of a perl sub that calculates the id for each row. will be called with a hashref.
- label_key : key that holds the label in each row.
- label_sub : name of a perl sub that calculates the label for each row. will be called with a hashref.
- DATA : the actual data, expected to be arrayref of hashrefs, usually what's returned by the all_vc routines.
- show_empty : show an empty first line in select boxes. defaults to false
- style : additional style information
- onChange : java magic on change
- select : java function call for a selection popup or other magic
- allow_textbox : allow to display a textbox instead of a drop down box if there are more entries than 'limit' entries.
- limit : defines the limit of entries, after which a textbox is generated. defaults to vclimit, or, failing to find that, 200.
- select_name : if a select is displayed, use a different name. ex.: department for textinput, but department_id for selects
- readonly : softly prevents modification
- class : CSS class names (optional)
--%]
-[%-
- Multibox__limit = limit != '' ? limit : vclimit != '' ? vclimit : 200
- Multibox__show_text = allow_textbox and DATA.size and Multibox__limit < DATA.size ? 1 : 0
- Multibox__id = id != '' && id * 1 != id ? id : name
- Multibox__default = default != '' ? default : $name
- Multibox__name = (select_name != '' and ! Multibox__show_text) ? select_name : name
--%]
-[%- IF Multibox__show_text %]
-<input type="text"
- [%- IF Multibox__name %] name="[% Multibox__name | html %]"[% END -%]
- [%- IF Multibox__id %] id="[% Multibox__id | html %]"[% END -%]
- [%- IF Multibox__default %] value="[% Multibox__default | html %]"[% END -%]
- [%- IF style %] style="[% style | html %]"[% END -%]
- [%- IF class %] class="[% class | html %]"[% END -%]
- [%- IF readonly %] readonly[% END -%]
-[%- -%]>
-[%- IF select -%]
- <input type="button" onclick="[% select %]" value="?">
-[%- END -%]
-[%- ELSE %]
-<select
- [%- IF Multibox__name %] name="[% Multibox__name | html %]"[% END -%]
- [%- IF Multibox__id %] id="[% Multibox__id | html %]"[% END -%]
- [%- IF style %] style="[% style | html %]"[% END -%]
- [%- IF class %] class="[% class | html %]"[% END -%]
- [%- IF onChange %] onChange="[% onChange | html %]"[% END -%]
- [%- IF readonly %] disabled[% END -%]
-[%- -%]>
- [%- IF show_empty %]
- <option value=""></option>
- [%- END %]
- [%- FOREACH row = DATA %]
- [%-
- Multibox__row_id = row.$id_key != '' ? row.$id_key : $id_sub(row)
- Multibox__row_label = row.$label_key != '' ? row.$label_key
- : $label_sub(row) != '' ? $label_sub(row)
- : Multibox__row_id
- Multibox__row_selected = Multibox__default == Multibox__row_id
- %]
- <option value="[% Multibox__row_id | html %]"[% IF Multibox__row_selected %] selected[% END %]>[% Multibox__row_label | html %]</option>
- [%- END %]
-</select>
-[%- END %]