kotschak/qelectrotech-source-mirror
0
0
Fork 0
mirror of https://github.com/qelectrotech/qelectrotech-source-mirror.git synced 2026-02-05 20:19:58 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Trivial fixes in elements collection.

Browse Source 
Slightly improved translations_stat script.


git-svn-id: svn+ssh://svn.tuxfamily.org/svnroot/qet/qet/branches/0.3@1208 bfdf4180-ca20-0410-9c96-a3a8aa849046
This commit is contained in:
xavier
2011-03-10 21:05:09 +00:00
parent 15a2c9e7ce
commit b333b518be
3 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
misc/translations_stat.pl
View File

@@ -130,6 +130,7 @@ sub get_pattern_count_in_file {
sub analyze_element_file {
return if (($File::Find::name =~ m/\.svn/) || (! -f $_));
return if ($_ !~ m/(^qet_directory|\.elmt)$/);
# One more element, count it
our $elements_count;
@@ -139,7 +140,7 @@ sub analyze_element_file {
my $file = $_;
our %languages;
for my $lang_key (our @ordered_languages) {
if (get_pattern_count_in_file('file' => $file, 'pattern' => sprintf('<name lang="%s">', $lang_key, 'limit' => 1)) == 1) {
if (get_pattern_count_in_file('file' => $file, 'pattern' => sprintf('<name\s+lang="%s"\s*>', $lang_key, 'limit' => 1)) == 1) {
++ $languages{$lang_key}{'translated_elements_count'};
}
}