[Libreoffice-commits] .: l10ntools/scripts

Andras Timar timar at kemper.freedesktop.org
Mon Jan 2 03:36:17 PST 2012


 l10ntools/scripts/keyidGen.pl |   17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

New commits:
commit 59f3098eec1a82bf5f711bf032d5f2888e2c9d44
Author: Andras Timar <atimar at suse.com>
Date:   Mon Jan 2 12:35:52 2012 +0100

    fix KeyID generation for a corner case

diff --git a/l10ntools/scripts/keyidGen.pl b/l10ntools/scripts/keyidGen.pl
index bb9eae9..cf95b29 100644
--- a/l10ntools/scripts/keyidGen.pl
+++ b/l10ntools/scripts/keyidGen.pl
@@ -67,16 +67,23 @@ while ( <INFILE> )
         my $title          = defined $14 ? $14 : '';
         my $timestamp      = defined $15 ? $15 : '';
         @path = split ( "\\\\" , $file );
-        $key = $path[-3] . "_" . $path[-2] . "_" . $path[-1] . "#" . $gid . ".";
+        if (defined $path[-3])
+        {
+            $key = $path[-3] . "_" . $path[-2] . "_" . $path[-1] . "#" . $gid . ".";
+        }
+        else
+        {
+            $key = $prj . "_" . $path[-2] . "_" . $path[-1] . "#" . $gid . ".";
+        }
         if (length($lid)) {$key .= $lid . ".";}
         if (length($type)) {$key .= $type . ".";}
         # replace non-word characters to _ just as in po files in source keys
         $key =~ s|[^\w#\./]|_|g;
         # ISO 639 private use code
-	$lang = "qtz";
-	if ( $text ne "") {$text = makekeyidstr(keyidgen($key . "text"),$text);}
-	if ( $quickhelptext ne "") {$quickhelptext = makekeyidstr(keyidgen($key . "quickhelptext"),$quickhelptext);}
-	if ( $title ne "") {$title = makekeyidstr(keyidgen($key . "title"),$title);}
+        $lang = "qtz";
+        if ( $text ne "") {$text = makekeyidstr(keyidgen($key . "text"),$text);}
+        if ( $quickhelptext ne "") {$quickhelptext = makekeyidstr(keyidgen($key . "quickhelptext"),$quickhelptext);}
+        if ( $title ne "") {$title = makekeyidstr(keyidgen($key . "title"),$title);}
         print OUTFILE "$prj\t$file\t$dummy\t$type\t$gid\t$lid\t$helpid\t$platform\t$width\t$lang\t$text\t$helptext\t$quickhelptext\t$title\t$timestamp\n";
     }
 }


More information about the Libreoffice-commits mailing list