|
From: <jas...@us...> - 2002-10-20 13:47:07
|
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>
|