Changeset 35180 in osm for applications/editors/josm/i18n

Timestamp:

2019-10-07T18:18:29+02:00 (5 years ago)

Author:

stoecker

Message:

report correct maximum translation string count for totally untranslated strings

File:

• applications/editors/josm/i18n/i18n.pl (modified) (4 diffs)

applications/editors/josm/i18n/i18n.pl

@@ -310 +310 @@
 }
 
-sub createlang($@)
-{
-  my ($data, @files) = @_;
+sub createlang($$@)
+{
+  my ($data, $maxcount, @files) = @_;
   my $maxlen = 0;
   foreach my $file (@files)
@@ -319 +319 @@
     $maxlen = $len if $len > $maxlen;
   }
-  my $maxcount = keys(%{$data});
   foreach my $file (@files)
   {
@@ -447 +446 @@
     }
   }
-  my %data = loadfiles(\%lang,$potfile ? loadpot($potfile) : undef, @po);
+  my $use = $potfile ? loadpot($potfile) : undef;
+  my %data = loadfiles(\%lang, $use, @po);
 
   my @clang;
@@ -458 +458 @@
   die "There have been warning. No output.\n" if $waswarn;
 
-  createlang(\%data, @clang);
-}
+  createlang(\%data, ($use ? keys %{$use} : keys %data), @clang);
+}