Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Simple option list generation function.

Browse Source
This commit is contained in:
Chris 2012-08-24 13:39:43 +01:00
parent aecb6b0af2
commit c83d7aa43e
1 changed files with 51 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
Template.pm
View File

@ -684,6 +684,57 @@ sub wizard_box {
}
## @method $ build_optionlist($options, $default, $selectopts)
# Generate a HTML option list based on the contents of the passed options.
# This goes through the entries in the options list provided, processing the
# entries into a list of html options.
#
# @param options A reference to an array of hashrefs, each hash needs to contain
# two keys: name and value, corresponding to the option name and value.
# @param default The default *value* to select in the list.
# @param selectopts Options to set on the select element. If not provided, no select
# element is generated. If provided, this should be a reference to
# a hash containing select options (supported: name, id, multiple,
# size, events). If events is specified, it should be a reference to
# a hash containing event names (change, click, blur, etc) as
# keys and the javascript operation to invoke as the value.
# @return A string containing the option list, possibly wrapped in a select element.
sub build_optionlist {
my $self = shift;
my $options = shift;
my $default = shift;
my $selectopts = shift;
# May as well hard-code the option template.
my $opttem = "<option value=\"***value***\"***sel***>***name***</option>\n";
# Now build up the option string
my $optstr = "";
foreach my $option (@{$options}) {
$optstr .= $self -> process_template($opttem, {"***name***" => $option -> {"name"},
"***value***" => $option -> {"value"},
"***sel***" => (defined($default) && $default eq $option -> {"value"}) ? ' selected="selected"' : ''});
}
# Handle select options, if any.
if($selectopts) {
my $select = "<select";
$select .= ' id="'.$selectopts -> {"id"}.'"' if($selectopts -> {"id"});
$select .= ' name="'.$selectopts -> {"name"}.'"' if($selectopts -> {"name"});
$select .= ' size="'.$selectopts -> {"size"}.'"' if($selectopts -> {"size"});
$select .= ' multiple="'.$selectopts -> {"multiple"}.'"' if($selectopts -> {"multiple"});
if($selectopts -> {"events"}) {
foreach my $event (keys(%{$selectopts -> {"events"}})) {
$select .= ' on'.$event.'="'.$selectopts -> {"events"} -> {$event}.'"';
}
}
$optstr = $select.">\n$optstr</select>\n";
}
return $optstr;
}
# ============================================================================
# Emailing functions