You should create the template from the output of the CGI, not from the code.
perl -MCGI=:standard -e 'print popup_menu({ -name => "query",
-values => [1, 2, 3],
-labels => {qw{ 2 label2
+1 label1 3 label3 }},
-default => 2 })'
<select name="query" >
<option value="1">label1</option>
<option selected="selected" value="2">label2</option>
<option value="3">label3</option>
</select>
Update
So, using
Template, the following seems to work:
Template call:
template 'index', { name => 'query',
options => { label1 => 'Option 1',
label2 => 'Option 2',
label3 => 'Option 3',
},
default => 'label2',
};
The template:
<select name="<% name %>" >
<%- FOR o IN options %>
<option value="<% o.key %>"
<%- IF o.key == default %> selected="selected" <% END -%>
><% o.value %></option>
<%- END %>
</select>
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.