From 08523c30335172c03e463df364f5a265a3cc1392 Mon Sep 17 00:00:00 2001
From: Chris <chris@starforge.co.uk>
Date: Thu, 17 Jan 2013 15:43:13 +0000
Subject: [PATCH] Support title="" in <option>s generate in build_optionlist()

---
 Webperl/Template.pm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/Webperl/Template.pm b/Webperl/Template.pm
index b9db936..7194031 100644
--- a/Webperl/Template.pm
+++ b/Webperl/Template.pm
@@ -642,7 +642,9 @@ sub wizard_box {
 # 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.
+#                   at least two keys: name and value, corresponding to the option
+#                   name and value. You may also optionally include a 'title' in the
+#                   hash to use as the option title.
 # @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
@@ -658,14 +660,15 @@ sub build_optionlist {
     my $selectopts = shift;
 
     # May as well hard-code the option template.
-    my $opttem = "<option value=\"***value***\"***sel***>***name***</option>\n";
+    my $opttem = "<option value=\"***value***\"***sel******title***>***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"' : ''});
+                                                       "***sel***"   => (defined($default) && $default eq $option -> {"value"}) ? ' selected="selected"' : '',
+                                                       "***title***" => defined($option -> {"title"}) ? ' title="'.$option -> {"title"}.'"' : ''});
     }
 
     # Handle select options, if any.
@@ -687,6 +690,7 @@ sub build_optionlist {
     return $optstr;
 }
 
+
 # ============================================================================
 #  Emailing functions