Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 5917 : Removing comments <!-- etc from the po file

Browse source
This commit is contained in:
Chris Cormack 2011-04-19 20:14:06 +12:00
parent 5a3414a624
commit 3bd7461b63
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
misc/translator/xgettext.pl
View file

@ -92,9 +92,13 @@ sub text_extract (*) {
last unless defined $s; last unless defined $s;
my($kind, $t, $attr) = ($s->type, $s->string, $s->attributes); my($kind, $t, $attr) = ($s->type, $s->string, $s->attributes);
if ($kind eq TmplTokenType::TEXT) { if ($kind eq TmplTokenType::TEXT) {
remember( $s, $t ) if $t =~ /\S/s; if ($t =~ /\S/s && $t !~ /<!/){
remember( $s, $t );
}
} elsif ($kind eq TmplTokenType::TEXT_PARAMETRIZED) { } elsif ($kind eq TmplTokenType::TEXT_PARAMETRIZED) {
remember( $s, $s->form ) if $s->form =~ /\S/s; if ($s->form =~ /\S/s && $s->form !~ /<!/){
remember( $s, $s->form );
}
} elsif ($kind eq TmplTokenType::TAG && %$attr) { } elsif ($kind eq TmplTokenType::TAG && %$attr) {
# value [tag=input], meta # value [tag=input], meta
my $tag = lc($1) if $t =~ /^<(\S+)/s; my $tag = lc($1) if $t =~ /^<(\S+)/s;
@ -174,8 +178,8 @@ EOF
my $fmt = TmplTokenizer::_formalize( $param ); my $fmt = TmplTokenizer::_formalize( $param );
$fmt =~ s/^%/%$n\$/; $fmt =~ s/^%/%$n\$/;
if ($type == TmplTokenType::DIRECTIVE) { if ($type == TmplTokenType::DIRECTIVE) {
$type = "Template::Toolkit Directive"; # $type = "Template::Toolkit Directive";
# $type = $param->string =~ /[%()+/is? $1: 'ERROR'; $type = $param->string =~ /\[%(.*?)%\]/is? $1: 'ERROR';
my $name = $param->string =~ /\bname=(["']?)([^\s"']+)\1/is? my $name = $param->string =~ /\bname=(["']?)([^\s"']+)\1/is?
$2: undef; $2: undef;
printf OUTPUT "#. %s: %s\n", $fmt, printf OUTPUT "#. %s: %s\n", $fmt,