128 |
grep { |
grep { |
129 |
! $class->meta->get_attribute($_)->is_lazy |
! $class->meta->get_attribute($_)->is_lazy |
130 |
&& ! defined $default->{$_} |
&& ! defined $default->{$_} |
131 |
|
&& ! m{^_} # skip _private |
132 |
} $self->attributes |
} $self->attributes |
133 |
) { |
) { |
134 |
my $attr_type = ''; |
my $attr_type = ''; |
157 |
$suffix = ' checked' if $value; |
$suffix = ' checked' if $value; |
158 |
$value_html = qq|<input type="checkbox" name="$name" title="$attr_type" value="$value"$suffix>|; |
$value_html = qq|<input type="checkbox" name="$name" title="$attr_type" value="$value"$suffix>|; |
159 |
push @checkboxes, $name; |
push @checkboxes, $name; |
160 |
} elsif ( $attr_type !~ m{^(Str|Int)$} ) { |
} elsif ( $attr_type !~ m{^(Str|Int)$} || $value =~ $Frey::Web::re_html ) { |
161 |
$value_html = qq|<textarea name="$name" title="$attr_type">$value</textarea>|; |
$value_html = qq|<textarea name="$name" title="$attr_type">$value</textarea>|; |
162 |
} |
} |
163 |
|
|