mason/page/html_select.mas

   1
   2 <%doc>
   3
   4 =head1 NAME
   5
   6 html_select - create a html select menu
   7
   8 =head1 SYNOPSYS
   9
  10 <& /page/html_select.mas, name=>$name, $choices=> [ [ 1, "France"], [ 2, "Spain" ] ], label=>"select country", $id=>"27", params => 'onchange="alert('foo')", multiple=>0  &>
  11
  12 Based on code by Robert Buels in CXGN::Page::FormattingHelpers.
  13
  14 =cut
  15
  16 </%doc>
  17
  18 <%args>
  19 $name
  20 @choices
  21 $selected => ''
  22 $id => ''
  23 $multiple => ''
  24 $params => ''
  25 $label => ''
  26 </%args>
  27
  28 <%perl>
  29 use strict;
  30 use CXGN::Page::FormattingHelpers qw | simple_selectbox_html |;
  31
  32 print simple_selectbox_html(
  33    name => $name,
  34    choices => \@choices,
  35    selected => $selected,
  36    multiple => $multiple,
  37    id => $id,
  38    params => $params,
  39    label => $label,
  40 );
  41 </%perl>