From 2f928c4e7595cf151f914e3aa660ee2350a0ac51 Mon Sep 17 00:00:00 2001
From: acli <acli>
Date: Thu, 12 Feb 2004 09:26:54 +0000
Subject: [PATCH] Don't extract strings in hidden values

---
 misc/translator/text-extract2.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/misc/translator/text-extract2.pl b/misc/translator/text-extract2.pl
index d19ef112c5..0904e6a587 100755
--- a/misc/translator/text-extract2.pl
+++ b/misc/translator/text-extract2.pl
@@ -207,8 +207,9 @@ sub text_extract (*) {
 	    for my $a ('alt', 'content', 'title', 'value') {
 		if ($attr->{$a}) {
 		    next if $a eq 'content' && $tag ne 'meta';
-		    next if $a eq 'value' && $tag ne 'input';
-		    my($key, $val, $val_orig, $order) = @{$attr->{$a}};
+		    next if $a eq 'value' && ($tag ne 'input'
+			|| (ref $attr->{'type'} && $attr->{'type'}->[1] eq 'hidden'));
+		    my($key, $val, $val_orig, $order) = @{$attr->{$a}}; #FIXME
 		    $val =~ s/\s+$//s;
 		    $text{$val} = 1 if $val =~ /\S/s;
 		}
-- 
2.39.5