[Genex-cvs-commit] genex-server/G2G/mason/comps query-checkboxes.mason,NONE,1.1 query-drop-down.mason,NONE,1.1

[<jas...@us...>]

Update of /cvsroot/genex/genex-server/G2G/mason/comps
In directory usw-pr-cvs1:/tmp/cvs-serv13822/G2G/mason/comps

Added Files:
	query-checkboxes.mason query-drop-down.mason 
Log Message:
new workspace Mason components


--- NEW FILE: query-checkboxes.mason ---
% foreach my $opt (@opts) { 
	<input type="checkbox" name="<% $name %>" value="<% $opt->{value} %>" <% $opt->{checked} %> >
    <label for="<% $opt->{value} %>"><% $opt->{value} %></label><br>
% }

<%args>
 $name
 $hash_ref
</%args>
<%init>;
my @opts;

foreach my $key (keys %{$hash_ref}) {
  my $checked = '';
  $checked = 'checked' if $hash_ref->{$key};
  push(@opts, {value => $key, checked => $checked});
}

</%init>


--- NEW FILE: query-drop-down.mason ---
	<select  bgcolor="#BFD8D8" name="<% $name %>">
% foreach my $opt (@opts) { 
	  <option value="<% $opt->{key} %>"><% $opt->{value} %></option>
% }
	</select>
<%args>
 $name
 $array_ref
</%args>
<%init>
 my @opts = map {{key => $_->[0], value => $_->[1]}} @{$array_ref};
 # we leave a little extra room
 my $size = 1 + scalar @opts;
</%init>