106 |
|
|
107 |
sub select_values { |
sub select_values { |
108 |
my ( $name, $attr_type, $values ) = @_; |
my ( $name, $attr_type, $values ) = @_; |
109 |
my $options = join("\n", |
|
110 |
map { |
if ( $#$values > 3 ) { |
111 |
my $v = ref($_) eq 'HASH' ? $_->{$name} : $_; |
my $options = join("\n", |
112 |
qq|<option value="$v">$v</option>| if $v; |
map { |
113 |
} @$values |
my $v = ref($_) eq 'HASH' ? $_->{$name} : $_; |
114 |
); |
qq|<option value="$v">$v</option>| if $v; |
115 |
qq|<select title="$attr_type" name="$name">$options</select>| if $options; |
} @$values |
116 |
|
); |
117 |
|
qq|<select title="$attr_type" name="$name">$options</select>| if $options; |
118 |
|
} else { |
119 |
|
my $radio = join("\n", |
120 |
|
map { |
121 |
|
my $v = ref($_) eq 'HASH' ? $_->{$name} : $_; |
122 |
|
qq|<input type="radio" name="$name" value="$v" title="$attr_type"><span style="float: left; padding-right: 2em;">$v</span>|; |
123 |
|
} @$values |
124 |
|
); |
125 |
|
qq|<div>$radio</div>|; |
126 |
|
} |
127 |
} |
} |
128 |
|
|
129 |
foreach my $checkbox ( split(/\s+/, $default->{'frey-checkboxes'} ) ) { |
foreach my $checkbox ( split(/\s+/, $default->{'frey-checkboxes'} ) ) { |
217 |
|
|
218 |
my $html; |
my $html; |
219 |
|
|
220 |
$form =~ s{<([^>]+)(name=")([^"]+)(")([^>]*)>} |
# http://www.quirksmode.org/oddsandends/forms.html |
221 |
{<$1$2$3$4 id="$3" $5}gs; # http://www.quirksmode.org/oddsandends/forms.html |
# $form =~ s{<([^>]+)(name=")([^"]+)(")([^>]*)>}{<$1$2$3$4 id="$3" $5}gs; |
222 |
|
|
223 |
$html = qq| |
$html = qq| |
224 |
<h1>$class params</h1> |
<h1>$class params</h1> |