From b333b518beb3b096dedd66c58659cbdbb361c19b Mon Sep 17 00:00:00 2001
From: xavier
 <xavier@r991  xavier  2010-05-09 20:40:08 +0200 (dim. 09 mai 2010)>
Date: Thu, 10 Mar 2011 21:05:09 +0000
Subject: [PATCH] Trivial fixes in elements collection. 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
---
 elements/bornes/borne_continuite.elmt                  | 2 +-
 elements/variateurs_de_frequence/siemens/qet_directory | 4 ++--
 misc/translations_stat.pl                              | 3 ++-
 3 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/elements/bornes/borne_continuite.elmt b/elements/bornes/borne_continuite.elmt
index 090360619..25fa34846 100644
--- a/elements/bornes/borne_continuite.elmt
+++ b/elements/bornes/borne_continuite.elmt
@@ -7,7 +7,7 @@
         <name lang="es">Punto de combinación</name>
         <name lang="cs">Spojovací svorka</name>
         <name lang="pt">Terminal de combinação</name>
-        <name lang="pl"  >Zacisk</name>
+        <name lang="pl">Zacisk</name>
         <name lang="it">Terminale di unione</name>
     </names>
     <informations>Author: The QElectroTech team
diff --git a/elements/variateurs_de_frequence/siemens/qet_directory b/elements/variateurs_de_frequence/siemens/qet_directory
index bc62fd347..267b3f981 100644
--- a/elements/variateurs_de_frequence/siemens/qet_directory
+++ b/elements/variateurs_de_frequence/siemens/qet_directory
@@ -1,8 +1,8 @@
 <qet-directory>
     <names>
-	<name lang="en">Siemens</name>
+        <name lang="en">Siemens</name>
         <name lang="fr">Siemens</name>
         <name lang="pl">Siemens</name>
-        <name lang="it"ZSiemens</name>
+        <name lang="it">Siemens</name>
     </names>
 </qet-directory>
diff --git a/misc/translations_stat.pl b/misc/translations_stat.pl
index c720dcd0f..b5df6b116 100755
--- a/misc/translations_stat.pl
+++ b/misc/translations_stat.pl
@@ -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'};
 		}
 	}