X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=misc%2Ftranslator%2Fxgettext.pl;h=996b952db6469bd4c2ea54b2bdccb37efbcf2336;hb=278e916c25b3ff0a5441d131ef999ab0450b027d;hp=8d4d74c87e8a0203ab1501c857e05cabc1c91eb8;hpb=3287252c0f71a10091995beff4eeb18257bbbc04;p=koha.git

diff --git a/misc/translator/xgettext.pl b/misc/translator/xgettext.pl
index 8d4d74c87e..996b952db6 100755
--- a/misc/translator/xgettext.pl
+++ b/misc/translator/xgettext.pl
@@ -7,6 +7,7 @@ xgettext.pl - xgettext(1)-like interface for .tmpl strings extraction
 =cut
 
 use strict;
+use warnings;
 use Getopt::Long;
 use POSIX;
 use Locale::PO;
@@ -101,7 +102,7 @@ sub text_extract (*) {
 		if ($attr->{$a}) {
 		    next if $a eq 'content' && $tag ne 'meta';
 		    next if $a eq 'value' && ($tag ne 'input'
-			|| (ref $attr->{'type'} && $attr->{'type'}->[1] =~ /^(?:hidden|radio)$/)); # FIXME
+			|| (ref $attr->{'type'} && $attr->{'type'}->[1] =~ /^(?:hidden|radio|submit)$/)); # FIXME
 		    my($key, $val, $val_orig, $order) = @{$attr->{$a}}; #FIXME
 		    $val = TmplTokenizer::trim $val;
 		    remember( $s, $val ) if $val =~ /\S/s;