reset English translations on update

Author: jef-n

scripts/ts-clear.pl

@@ -0,0 +1,48 @@
+#!/usr/bin/env perl
+###########################################################################
+#    ts-clear.pl
+#    ---------------------
+#    begin                : October 2018
+#    copyright            : (C) 2018 by Juergen E. Fischer
+#    email                : jef at norbit dot de
+###########################################################################
+#                                                                         #
+#   This program is free software; you can redistribute it and/or modify  #
+#   it under the terms of the GNU General Public License as published by  #
+#   the Free Software Foundation; either version 2 of the License, or     #
+#   (at your option) any later version.                                   #
+#                                                                         #
+###########################################################################
+
+use strict;
+use warnings;
+use Carp qw/croak/;
+use XML::Simple;
+use Data::Dumper;
+
+$SIG{__WARN__} = sub { croak @_; };
+
+my $xml = XMLin("i18n/qgis_en.ts", ForceArray=>1);
+
+die "context expected" unless exists $xml->{context};
+
+foreach my $context ( @{ $xml->{context} } ) {
+	foreach my $message ( @{ $context->{message} } ) {
+		if(exists $message->{numerus} && $message->{numerus} eq "yes") {
+			for my $nf ( @{ $message->{translation}->[0]->{numerusform} } ) {
+				$nf = $message->{source}->[0];
+			}
+		} elsif(ref($message->{translation}->[0]) eq "") {
+			$message->{translation}->[0] = $message->{source}->[0];
+		}
+	}
+}
+
+my $xmlout = XMLout($xml, KeepRoot=>1, RootName => "TS");
+
+my $out;
+open $out, ">i18n/qgis_en.ts";
+print $out "<?xml version=\"1.0\" encoding=\"utf-8\"?><!DOCTYPE TS>";
+binmode($out, ":utf8");
+print $out $xmlout;
+close $out;

scripts/update_ts.sh

@@ -122,6 +122,7 @@ if [ $action = push ]; then
 		exit 1
 	fi
 	cp i18n/qgis_en.ts /tmp/qgis_en.ts-downloaded
+	perl scripts/ts-clear.pl  # reset English translations
 elif [ $action = pull ]; then
 	rm i18n/qgis_*.ts