Skip to content

C
core
Kaydet (Commit) 59f3098e authored tarafından Andras Timar's avatar Andras Timar
Dosyalara gözat
Seçenekler

fix KeyID generation for a corner case

üst 7d8f3b19
Show whitespace changes
Inline Side-by-side
Showing with 7 additions and 0 deletions
l10ntools/scripts/keyidGen.pl
Dosyayı görüntüle @ 59f3098e
...@@ -67,7 +67,14 @@ while ( <INFILE> ) ...@@ -67,7 +67,14 @@ while ( <INFILE> )
my $title = defined $14 ? $14 : ''; my $title = defined $14 ? $14 : '';
my $timestamp = defined $15 ? $15 : ''; my $timestamp = defined $15 ? $15 : '';
@path = split ( "\\\\" , $file ); @path = split ( "\\\\" , $file );
if (defined $path[-3])
{
$key = $path[-3] . "_" . $path[-2] . "_" . $path[-1] . "#" . $gid . "."; $key = $path[-3] . "_" . $path[-2] . "_" . $path[-1] . "#" . $gid . ".";
}
else
{
$key = $prj . "_" . $path[-2] . "_" . $path[-1] . "#" . $gid . ".";
}
if (length($lid)) {$key .= $lid . ".";} if (length($lid)) {$key .= $lid . ".";}
if (length($type)) {$key .= $type . ".";} if (length($type)) {$key .= $type . ".";}
# replace non-word characters to _ just as in po files in source keys # replace non-word characters to _ just as in po files in source keys
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment