Lines 135-143
sub text_extract {
Link Here
|
135 |
for my $a ('alt', 'content', 'title', 'value', 'label', 'placeholder', 'aria-label') { |
135 |
for my $a ('alt', 'content', 'title', 'value', 'label', 'placeholder', 'aria-label') { |
136 |
if ($attr->{$a}) { |
136 |
if ($attr->{$a}) { |
137 |
next if $a eq 'label' && $tag ne 'optgroup'; |
137 |
next if $a eq 'label' && $tag ne 'optgroup'; |
138 |
next if $a eq 'content' && $tag ne 'meta'; |
138 |
next if $a eq 'content'; |
139 |
next if $a eq 'value' && ($tag ne 'input' |
139 |
next if $a eq 'value' && ($tag ne 'input' |
140 |
|| (ref $attr->{'type'} && $attr->{'type'}->[1] =~ /^(?:hidden|radio|checkbox)$/)); # FIXME |
140 |
|| (ref $attr->{'type'} && $attr->{'type'}->[1] =~ /^(?:hidden|radio|checkbox)$/)); # FIXME |
|
|
141 |
next if $tag eq 'meta'; |
141 |
my($key, $val, $val_orig, $order) = @{$attr->{$a}}; #FIXME |
142 |
my($key, $val, $val_orig, $order) = @{$attr->{$a}}; #FIXME |
142 |
$val = TmplTokenizer::trim($val); |
143 |
$val = TmplTokenizer::trim($val); |
143 |
# for selected attributes replace '[%..%]' with '%s' globally |
144 |
# for selected attributes replace '[%..%]' with '%s' globally |
144 |
- |
|
|