[Bug #789] Script for parsing ZUL files should look for 'ganttzk_i18n' tag too

FEA: ItEr74S04BugFixing
This commit is contained in:
Diego Pino 2011-06-06 17:11:13 +02:00
parent 91b9422224
commit 538983a372

View file

@ -36,7 +36,7 @@ use HTML::Entities;
my $DEBUG = 0;
my $TOKEN = 'i18n:_';
my @REG_EXPS = qw(i18n:_{1,2}\\('(.*?)'.*?\\) <i18n\s.*?value='(.*?)' i18n:_{1,2}\\("(.*?)".*?\\) <i18n\s.*?value="(.*?)");
my @REG_EXPS = qw(i18n:_{1,2}\\('(.*?)'.*?\\) i18n:_{1,2}\\("(.*?)".*?\\) ganttzk_i18n:_{1,2}\\('(.*?)'.*?\\) ganttzk_i18n:_{1,2}\\("(.*?)".*?\\) <i18n\s.*?value='(.*?)' <i18n\s.*?value="(.*?)");
my $DEFAULT_KEYS_FILE = "./keys.pot";
my %ENTRIES;