v3: prog_text_translation, language class name fix; languge name matching

* Portuguese language class name (missed 't')
* language name matching ('Portuguese Brazil')
* indentation

2 files changed, 214 insertions, 201 deletions

diff --git a/data/doc/sisu/CHANGELOG_v3 b/data/doc/sisu/CHANGELOG_v3
index 0092be6c..c100f2bd 100644
--- a/data/doc/sisu/CHANGELOG_v3
+++ b/data/doc/sisu/CHANGELOG_v3
@@ -28,6 +28,11 @@ http://www.jus.uio.no/sisu/pkg/src/sisu_3.0.10.orig.tar.gz
 
   * i18n, add language name translation column to hash/table
 
+  * prog_text_translation:
+    * fix to Portuguese language class name (missed the 't')
+    * language name matching ('Portuguese Brazil')
+    * indentation
+
 %% 3.0.9.orig.tar.gz (2011-05-17:20/2)
 http://git.sisudoc.org/?p=code/sisu.git;a=log;h=refs/tags/debian/3.0.9-1
 http://www.jus.uio.no/sisu/pkg/src/sisu_3.0.9.orig.tar.gz
diff --git a/lib/sisu/v3/prog_text_translation.rb b/lib/sisu/v3/prog_text_translation.rb
index e5a78e92..fca06e71 100644
--- a/lib/sisu/v3/prog_text_translation.rb
+++ b/lib/sisu/v3/prog_text_translation.rb
@@ -69,7 +69,8 @@ module SiSU_Translate
       when /German/i;                    German.new(md,doc_lang,trans_str)
       when /Italian/i;                   Italian.new(md,doc_lang,trans_str)
       when /Spanish/i;                   Spanish.new(md,doc_lang,trans_str)
-      when /Brazilian(?: Portuguese)?/i; Portuguese.new(md,doc_lang,trans_str) # tag depreciated, see iso 639-2
+      when /Portuguese Brazil|Brazilian(?: Portuguese)?/i;
+                                         Portuguese.new(md,doc_lang,trans_str) # tag depreciated, see iso 639-2
       when /Portuguese/i;                Portuguese.new(md,doc_lang,trans_str)
       when /Swedish/i;                   Swedish.new(md,doc_lang,trans_str)
       when /Danish/i;                    Danish.new(md,doc_lang,trans_str)
@@ -285,7 +286,8 @@ module SiSU_Translate
       when /German/i;                    'Deutsch'
       when /Italian/i;                   'Italiano'
       when /Spanish/i;                   'español'
-      when /Brazilian(?: Portuguese)?/i; 'Brazilian Português'                 # tag depreciated, see iso 639-2
+      when /Portuguese Brazil|Brazilian(?: Portuguese)?/i;
+                                         'Brazilian Português'                 # tag depreciated, see iso 639-2
       when /Portuguese/i;                'Português'
       when /Swedish/i;                   'svenska'
       when /Danish/i;                    'dansk'
@@ -503,7 +505,8 @@ module SiSU_Translate
       when /German/i;                    'German'
       when /Italian/i;                   'Italian'
       when /Spanish/i;                   'Spanish'
-      when /Brazilian(?: Portuguese)?/i; 'Brazilian Portuguese'                # tag depreciated, see iso 639-2
+      when /Portuguese Brazil|Brazilian(?: Portuguese)?/i;
+                                         'Brazilian Portuguese'                # tag depreciated, see iso 639-2
       when /Portuguese/i;                'Portuguese'
       when /Swedish/i;                   'Swedish'
       when /Danish/i;                    'Danish'
@@ -717,7 +720,8 @@ module SiSU_Translate
       when /German/i;                    'Allemand'
       when /Italian/i;                   'Italien'
       when /Spanish/i;                   'Espagnol'
-      when /Brazilian(?: Portuguese)?/i; 'Portugais brésilien'                 # tag depreciated, see iso 639-2
+      when /Portuguese Brazil|Brazilian(?: Portuguese)?/i;
+                                         'Portugais brésilien'                 # tag depreciated, see iso 639-2
       when /Portuguese/i;                'Portugais'
       when /Swedish/i;                   'Suédois'
       when /Danish/i;                    'Danois'
@@ -928,7 +932,8 @@ module SiSU_Translate
       when /German/i;                    'Deutsch'
       when /Italian/i;                   'Italienisch'
       when /Spanish/i;                   'Spanisch'
-      when /Brazilian(?: Portuguese)?/i; 'Brasilianisch-Portugiesisch'         # tag depreciated, see iso 639-2
+      when /Portuguese Brazil|Brazilian(?: Portuguese)?/i;
+                                         'Brasilianisch-Portugiesisch'         # tag depreciated, see iso 639-2
       when /Portuguese/i;                'Portugiesisch'
       when /Swedish/i;                   'Schwedisch'
       when /Danish/i;                    'Dänisch'
@@ -966,203 +971,204 @@ module SiSU_Translate
     def filetype_description
       description
     end
-   def metadata
-     'metadatos'
-   end
-   def file_size
-     'tamaño del fichero'
-   end
-   def full_title #dc
-     'Título'
-   end
-   def title
-     'Título'
-   end
-   def subtitle
-     'Subtítulo'
-   end
-   def author #dc
-     'Creador'
-   end
-   def contributor #dc
-     'Contribuidor'
-   end
-   def translator
-     'Traductor'
-   end
-   def illustrator
-     'Ilustrador'
-   end
-   def publisher #dc
-     'Editor'
-   end
-   def prepared_by
-     'Preparado por'
-   end
-   def digitized_by
-     'Digitalizado por'
-   end
-   def subject #dc
-     'Asunto'
-   end
-   def description #dc (watch)
-     'Descripción'
-   end
-   def abstract #dc
-     'Resumen'
-   end
-   def type #dc
-     'Tipo'
-   end
-   def rights #dc
-     'Derechos'
-   end
-   def date #dc
-     'Fecha'
-   end
-   def date_created #dc
-     'Fecha de creación'
-   end
-   def date_issued #dc
-     'Fecha de publicación'
-   end
-   def date_available #dc
-     'Fecha de disponibilidad'
-   end
-   def date_modified #dc
-     'Fecha de modificación'
-   end
-   def date_valid #dc
-     'Fecha de valided'
-   end
-   def language #dc
-     'Idioma'
-   end
-   def language_original
-     'Lenguaje original'
-   end
-   def format #dc
-     'Formato'
-   end
-   def identifier #dc
-     'Identificador'
-   end
-   def source #dc
-     'Fuente'
-   end
-   def relation #dc
-     'Relación'
-   end
-   def coverage #dc
-     'Cobertura'
-   end
-   def keywords
-     'Palabras claves'
-   end
-   def comments
-     'Comentarios'
-   end
-   def cls_loc
-     'Clasificación Biblioteca del Congreso'
-   end
-   def cls_dewey
-     'Clasificación Dewey'
-   end
-    def cls_oclc # fix
-      'Classify OCLC number'
+    def metadata
+      'metadatos'
     end
-   def cls_gutenberg
-     'Clasificación Proyecto Gutenberg'
-   end
-   def cls_isbn
-     'Clasificación ISBN'
-   end
-   def prefix_a
-     'Prefijo (a)'
-   end
-   def prefix_b
-     'Prefijo (b)'
-   end
-    def topic_register
-      'Topics Registered'
+    def file_size
+      'tamaño del fichero'
     end
-   def sourcefile
-     'Fichero fuente'
-   end
-   def word_count
-     'Número de palabras apróximado'
-   end
-   def sourcefile_digest
-     'Resumen del fichero fuente'
-   end
-   def digest_md5
-     'Resumen del fichero fuente (md5)'
-   end
-   def digest_sha256
-     'Resumen del fichero fuente (sha256)'
-   end
-   def sc_number
-     'Versión (RCS/CVS) del documento'
-   end
-   def sc_date
-     'Versión (RCS/CVS) del documento'
-   end
-   def last_generated
-     'Última generación (metaverse) del documento'
-   end
-   def sisu_version
-     'Generado por'
-   end
-   def ruby_version
-     'Versión de Ruby'
-   end
-   def suggested_links
-     'enlaces sugeridos de metadatos'
-   end
-   def language_version_list
-     'Document Language Versions, manifests'
-   end
-    def manifest_description
-      'SiSU manifest of document filetypes and metadata'
+    def full_title #dc
+      'Título'
+    end
+    def title
+      'Título'
+    end
+    def subtitle
+      'Subtítulo'
+    end
+    def author #dc
+      'Creador'
+    end
+    def contributor #dc
+      'Contribuidor'
+    end
+    def translator
+      'Traductor'
+    end
+    def illustrator
+      'Ilustrador'
+    end
+    def publisher #dc
+      'Editor'
+    end
+    def prepared_by
+      'Preparado por'
+    end
+    def digitized_by
+      'Digitalizado por'
+    end
+    def subject #dc
+      'Asunto'
+    end
+    def description #dc (watch)
+      'Descripción'
+    end
+    def abstract #dc
+      'Resumen'
+    end
+    def type #dc
+      'Tipo'
+    end
+    def rights #dc
+      'Derechos'
+    end
+    def date #dc
+      'Fecha'
+    end
+    def date_created #dc
+      'Fecha de creación'
+    end
+    def date_issued #dc
+      'Fecha de publicación'
+    end
+    def date_available #dc
+      'Fecha de disponibilidad'
+    end
+    def date_modified #dc
+      'Fecha de modificación'
+    end
+    def date_valid #dc
+      'Fecha de valided'
+    end
+    def language #dc
+      'Idioma'
     end
-   def manifest_description_output
-     'Manifiesto SiSU de salida generada'
-   end
-   def manifest_description_metadata
-     'Manifiesto SiSU de metadatos de documento'
-   end
-   def language_list_translated
-     lang=case @trans_str
-     when /American/i;                  'Inglés Americano'                     # tag depreciated, see iso 639-2
-     when /English/i;                   'Inglés'
-     when /French/i;                    'Francés'
-     when /German/i;                    'Alemán'
-     when /Italian/i;                   'Italiano'
-     when /Spanish/i;                   'Español'
-     when /Brazilian(?: Portuguese)?/i; 'Portugués de Brasil'                  # tag depreciated, see iso 639-2
-     when /Portuguese/i;                'Portugués'
-     when /Swedish/i;                   'Sueco'
-     when /Danish/i;                    'Danés'
-     when /Finnish/i;                   'Finés'
-     when /Norwegian/i;                 'Noruego'
-     when /Icelandic/i;                 'Islandés'
-     when /Dutch/i;                     'Holandés'
-     when /Estonian/i;                  'Estonio'
-     when /Hungarian/i;                 'Húngaro'
-     when /Polish/i;                    'Polaco'
-     when /Romanian/i;                  'Rumano'
-     when /Russian/i;                   'Ruso'
-     when /Greek/i;                     'Griego'
-     when /Ukranian/i;                  'Ucraniano'
-     when /Turkish/i;                   'Turco'
-     when /Slovenian/i;                 'Eslovaco'
-     when /Croatian/i;                  'Croata'
-     when /Slovak(?:ian)?/i;            'Eslovaco'
-     when /Czech/i;                     'Checo'
-     when /Bulgarian/i;                 'Búlgaro'
-     else @trans_str
+    def language_original
+      'Lenguaje original'
+    end
+    def format #dc
+      'Formato'
+    end
+    def identifier #dc
+      'Identificador'
+    end
+    def source #dc
+      'Fuente'
+    end
+    def relation #dc
+      'Relación'
+    end
+    def coverage #dc
+      'Cobertura'
+    end
+    def keywords
+      'Palabras claves'
+    end
+    def comments
+      'Comentarios'
+    end
+    def cls_loc
+      'Clasificación Biblioteca del Congreso'
+    end
+    def cls_dewey
+      'Clasificación Dewey'
+    end
+     def cls_oclc # fix
+       'Classify OCLC number'
+     end
+    def cls_gutenberg
+      'Clasificación Proyecto Gutenberg'
+    end
+    def cls_isbn
+      'Clasificación ISBN'
+    end
+    def prefix_a
+      'Prefijo (a)'
+    end
+    def prefix_b
+      'Prefijo (b)'
+    end
+     def topic_register
+       'Topics Registered'
      end
-   end
+    def sourcefile
+      'Fichero fuente'
+    end
+    def word_count
+      'Número de palabras apróximado'
+    end
+    def sourcefile_digest
+      'Resumen del fichero fuente'
+    end
+    def digest_md5
+      'Resumen del fichero fuente (md5)'
+    end
+    def digest_sha256
+      'Resumen del fichero fuente (sha256)'
+    end
+    def sc_number
+      'Versión (RCS/CVS) del documento'
+    end
+    def sc_date
+      'Versión (RCS/CVS) del documento'
+    end
+    def last_generated
+      'Última generación (metaverse) del documento'
+    end
+    def sisu_version
+      'Generado por'
+    end
+    def ruby_version
+      'Versión de Ruby'
+    end
+    def suggested_links
+      'enlaces sugeridos de metadatos'
+    end
+    def language_version_list
+      'Document Language Versions, manifests'
+    end
+     def manifest_description
+       'SiSU manifest of document filetypes and metadata'
+     end
+    def manifest_description_output
+      'Manifiesto SiSU de salida generada'
+    end
+    def manifest_description_metadata
+      'Manifiesto SiSU de metadatos de documento'
+    end
+    def language_list_translated
+      lang=case @trans_str
+      when /American/i;                  'Inglés Americano'                     # tag depreciated, see iso 639-2
+      when /English/i;                   'Inglés'
+      when /French/i;                    'Francés'
+      when /German/i;                    'Alemán'
+      when /Italian/i;                   'Italiano'
+      when /Spanish/i;                   'Español'
+      when /Portuguese Brazil|Brazilian(?: Portuguese)?/i;
+                                         'Portugués de Brasil'                  # tag depreciated, see iso 639-2
+      when /Portuguese/i;                'Portugués'
+      when /Swedish/i;                   'Sueco'
+      when /Danish/i;                    'Danés'
+      when /Finnish/i;                   'Finés'
+      when /Norwegian/i;                 'Noruego'
+      when /Icelandic/i;                 'Islandés'
+      when /Dutch/i;                     'Holandés'
+      when /Estonian/i;                  'Estonio'
+      when /Hungarian/i;                 'Húngaro'
+      when /Polish/i;                    'Polaco'
+      when /Romanian/i;                  'Rumano'
+      when /Russian/i;                   'Ruso'
+      when /Greek/i;                     'Griego'
+      when /Ukranian/i;                  'Ucraniano'
+      when /Turkish/i;                   'Turco'
+      when /Slovenian/i;                 'Eslovaco'
+      when /Croatian/i;                  'Croata'
+      when /Slovak(?:ian)?/i;            'Eslovaco'
+      when /Czech/i;                     'Checo'
+      when /Bulgarian/i;                 'Búlgaro'
+      else @trans_str
+      end
+    end
   end
   class Italian
     def initialize(md,doc_lang,trans_str)
@@ -1350,7 +1356,8 @@ module SiSU_Translate
       when /German/i;                    'Tedesco'
       when /Italian/i;                   'Italiano'
       when /Spanish/i;                   'Spagnolo'
-      when /Brazilian(?: Portuguese)?/i; 'Portoguese (Brasile)'                # tag depreciated, see iso 639-2
+      when /Portuguese Brazil|Brazilian(?: Portuguese)?/i;
+                                         'Portoguese (Brasile)'                # tag depreciated, see iso 639-2
       when /Portuguese/i;                'Portoguese'
       when /Swedish/i;                   'Svedese'
       when /Danish/i;                    'Danese'
@@ -1561,7 +1568,8 @@ module SiSU_Translate
       when /German/i;                    'Saksa'
       when /Italian/i;                   'Italia'
       when /Spanish/i;                   'Espanja'
-      when /Brazilian(?: Portuguese)?/i; 'Brasilian portugali'                 # tag depreciated, see iso 639-2
+      when /Portuguese Brazil|Brazilian(?: Portuguese)?/i;
+                                         'Brasilian portugali'                 # tag depreciated, see iso 639-2
       when /Portuguese/i;                'Portugali'
       when /Swedish/i;                   'Ruotsi'
       when /Danish/i;                    'Tanska'
@@ -1586,7 +1594,7 @@ module SiSU_Translate
       end
     end
   end
-  class Porguguese            < English
+  class Portuguese            < English
   end
   class Swedish               < English
   end