From 33d0c0296713ae9ffc7241a11cb240e11bddcc1f Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Tue, 24 Jul 2012 01:05:30 +0000
Subject: [PATCH] 2012-07-24 03:04 UTC+0200 Viktor Szakats (harbour syenar.net)
   * src/rtl/langapi.c     + HB_LANGNEW() extended to translate language
 module's       codepage string, too.

---
 harbour/ChangeLog         | 5 +++++
 harbour/src/rtl/langapi.c | 2 ++
 2 files changed, 7 insertions(+)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 9e10a7a375..0c41c2a476 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,11 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2012-07-24 03:04 UTC+0200 Viktor Szakats (harbour syenar.net)
+  * src/rtl/langapi.c
+    + HB_LANGNEW() extended to translate language module's
+      codepage string, too.
+
 2012-07-24 02:06 UTC+0200 Viktor Szakats (harbour syenar.net)
   * src/lang/pt.c
     ! fixed very old CP problem in one of the strings
diff --git a/harbour/src/rtl/langapi.c b/harbour/src/rtl/langapi.c
index 13f38bd863..f8459cf224 100644
--- a/harbour/src/rtl/langapi.c
+++ b/harbour/src/rtl/langapi.c
@@ -282,6 +282,8 @@ static HB_BOOL hb_langTranslate( const char * szNewId, PHB_LANG lang, PHB_CODEPA
 
       if( i == HB_LANG_ITEM_BASE_ID + HB_LANG_ITEM_ID_ID )
          pszTrans = hb_strdup( szNewId );
+      else if( i == HB_LANG_ITEM_BASE_ID + HB_LANG_ITEM_ID_CODEPAGE )
+         pszTrans = hb_strdup( cdpOut->id );
       else
          pszTrans = hb_cdpDup( lang->pItemList[ i ], cdpIn, cdpOut );