|
[%- USE HTML %]
|
|
[%#-
|
|
Multibox
|
|
|
|
This template makes an input box for you,
|
|
decides wether it should be a text field or a drop down box,
|
|
generates the HTML code, and fixes everything just right.
|
|
|
|
call: INCLUDE 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.
|
|
readonly : softly prevents modification
|
|
-%]
|
|
[%- DEFAULT
|
|
limit = limit != '' ? limit : vclimit != '' ? vclimit : 200
|
|
id = id != '' ? id : name
|
|
default = default != '' ? default : $name
|
|
-%]
|
|
[%- FOREACH row = DATA %]
|
|
[%-
|
|
row.id = row.$id_key != '' ? row.$id_key : $id_sub(row)
|
|
row.label = row.$label_key != '' ? row.$label_key
|
|
: $label_sub(row) != '' ? $label_sub(row)
|
|
: row.id
|
|
row.selected = default == row.id
|
|
-%]
|
|
[%- END -%]
|
|
[%- IF allow_textbox and DATA.size and limit < DATA.size %]
|
|
<input type="text"
|
|
[%- IF name %] name="[% HTML.escape(name) %]"[% END -%]
|
|
[%- IF id %] id="[% HTML.escape(id) %]"[% END -%]
|
|
[%- IF default %] value="[% HTML.escape(default) %]"[% END -%]
|
|
[%- IF style %] style="[% HTML.escape(style) %]"[% END -%]
|
|
[%- IF readonly %] readonly[% END -%]
|
|
[%- -%]>
|
|
[%- IF select -%]
|
|
<input type="button" onclick="[% select %]" value="?">
|
|
[%- END -%]
|
|
[%- ELSE %]
|
|
<select
|
|
[%- IF name %] name="[% HTML.escape(name) %]"[% END -%]
|
|
[%- IF id %] id="[% HTML.escape(id) %]"[% END -%]
|
|
[%- IF style %] style="[% HTML.escape(style) %]"[% END -%]
|
|
[%- IF onChange %] onChange="[% HTML.escape(onChange) %]"[% END -%]
|
|
[%- IF readonly %] disabled[% END -%]
|
|
[%- -%]>
|
|
[%- IF show_empty %]
|
|
<option value=""></option>
|
|
[%- END %]
|
|
[%- FOREACH row = DATA %]
|
|
<option value="[% row.id %]"[% IF row.selected %] selected[% END %]>[% HTML.escape(row.label) %]</option>
|
|
[%- END %]
|
|
</select>
|
|
[%- END %]
|