Help for this page

Select Code to Download


  1. or download this
    use DBI;
use HTML::Template;
...
</select>
<p><input type="submit" /></p>
</form>
  2. or download this
    $_->{id} == param('state') and $_->{sel} = 1 for @$states;
  3. or download this
    <option value="<tmpl_var id>" <tmpl_if sel>selected="1"</tmpl_if>>
   <tmpl_var name>
</option>
  4. or download this
    ... beginning same as before ...
my $states = $dbh->selectall_arrayref( ... );
...
<tmpl_var states>
<p><input type="submit" /></p>
</form>