Adding optgroup labels to translations

This commit is contained in:
Henri-Damien LAURENT 2009-12-13 19:20:39 +01:00
parent 3322762d0f
commit 98bf67beec
2 changed files with 4 additions and 2 deletions

View File

@ -50,8 +50,9 @@ sub text_replace_tag ($$) {
# value [tag=input], meta
my $tag = lc($1) if $t =~ /^<(\S+)/s;
my $translated_p = 0;
for my $a ('alt', 'content', 'title', 'value') {
for my $a ('alt', 'content', 'title', 'value','label') {
if ($attr->{$a}) {
next if $a eq 'label' && $tag ne 'optgroup';
next if $a eq 'content' && $tag ne 'meta';
next if $a eq 'value' && ($tag ne 'input'
|| (ref $attr->{'type'} && $attr->{'type'}->[1] =~ /^(?:checkbox|hidden|radio|text)$/)); # FIXME

View File

@ -98,8 +98,9 @@ sub text_extract (*) {
} elsif ($kind eq TmplTokenType::TAG && %$attr) {
# value [tag=input], meta
my $tag = lc($1) if $t =~ /^<(\S+)/s;
for my $a ('alt', 'content', 'title', 'value') {
for my $a ('alt', 'content', 'title', 'value','label') {
if ($attr->{$a}) {
next if $a eq 'label' && $tag ne 'optgroup';
next if $a eq 'content' && $tag ne 'meta';
next if $a eq 'value' && ($tag ne 'input'
|| (ref $attr->{'type'} && $attr->{'type'}->[1] =~ /^(?:hidden|radio|checkbox)$/)); # FIXME