From 66662d3f26b870f3751d76304cde6dbe2f127829 Mon Sep 17 00:00:00 2001
From: Michael Schmitt <michael.schmitt@teststep.org>
Date: Tue, 18 Jul 2006 21:06:47 +0000
Subject: [PATCH]         * pocheck.pl: re-introduce check for '|' shortcuts   
      which are not only used by the former xforms frontend         but also
 in the menus

git-svn-id: svn://svn.lyx.org/lyx/lyx-devel/trunk@14484 a592a061-630c-0410-9148-cb99ea01b6c8
---
 po/pocheck.pl | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/po/pocheck.pl b/po/pocheck.pl
index b46bacfe35..69bc405b2b 100755
--- a/po/pocheck.pl
+++ b/po/pocheck.pl
@@ -81,9 +81,18 @@ foreach $pofilename ( @ARGV )
           $warn++;
         }
 
+        # Check for "|..." shortcuts
+        if ( ( $msgid =~ m/\|[^ ]/ ) != ( $msgstr =~ m/\|[^ ]/ ) ) {
+          print( "Missing or unexpected menu shortcut:\n" );
+          print( "  '$msgid' => '$msgstr'\n" );
+          $warn++;
+        }
+
         $msgid_clean  = lc($msgid);
         $msgstr_clean = lc($msgstr);
 
+        $msgid_clean  =~ s/(.*)\|.*?$/$1/;  # strip menu shortcuts
+        $msgstr_clean =~ s/(.*)\|.*?$/$1/;
         $msgid_clean  =~ s/&([^ ])/$1/;     # strip Qt shortcuts
         $msgstr_clean =~ s/&([^ ])/$1/;