Fix FS#12003 'langtool.pl --deprecate is broken'

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@29688 a1c6a512-1295-4272-9138-f99709370657

1 files changed, 3 insertions, 9 deletions

diff --git a/tools/langtool.pl b/tools/langtool.pl
index a0e147c4ad..bffdde2c9b 100755
--- a/tools/langtool.pl
+++ b/tools/langtool.pl
@@ -209,15 +209,9 @@ foreach my $file (@ARGV) {
             if ($id ne "" and grep(/^$id$/, @ids)) {
                 # Set desc
                 $line =~ s/\s*desc:.*/  desc: deprecated/;
-                # Set user
-                $line =~ s/\s*user:.*/  user:/;
-                # Print an empty target line after opening tag (target isn't set)
-                if ($location =~ /source|dest|voice/ and $target eq "") {
-                    $line .= "    *: none\n";
-                }
-                # Do not print target: string lines
-                elsif ($location =~ /source|dest|voice/ and $target ne "") {
-                    $line = "";
+                # Leave user field alone
+                if ($location =~ /source|dest|voice/) {
+                    $line =~ s/".*"/""/;
                 }
             }
         }