Language of records now chosen from a dropdown.

diff --git a/web/htdocs/details/edit.mc b/web/htdocs/details/edit.mc
index 1208599..ab9d64e 100644 (file)
--- a/web/htdocs/details/edit.mc
+++ b/web/htdocs/details/edit.mc
@@ -1,4 +1,4 @@
-%# $Id: edit.mc,v 1.24 2006-12-06 10:37:23 mike Exp $
+%# $Id: edit.mc,v 1.25 2006-12-06 10:47:27 mike Exp $
 <%args>
 $op
 $id => undef
@@ -345,7 +345,200 @@ my @fields =
        qw(e:title e:description) ],
      [ history      => 5, "History", "e:databaseInfo/e:history",
        qw(e:title e:description) ],
-     [ language     => 0, "Language of Records", "e:databaseInfo/e:langUsage",
+     [ language     => [
+# This list was produced by feeding
+#      http://www.loc.gov/standards/iso639-2/ISO-639-2_values_8bits.txt
+# through the filter
+#      awk -F'|' '$3 {print$4}'
+# and shortening some of the longer names by hand
+                       "",
+                       "Afar",
+                       "Abkhazian",
+                       "Afrikaans",
+                       "Akan",
+                       "Albanian",
+                       "Amharic",
+                       "Arabic",
+                       "Aragonese",
+                       "Armenian",
+                       "Assamese",
+                       "Avaric",
+                       "Avestan",
+                       "Aymara",
+                       "Azerbaijani",
+                       "Bashkir",
+                       "Bambara",
+                       "Basque",
+                       "Belarusian",
+                       "Bengali",
+                       "Bihari",
+                       "Bislama",
+                       "Bosnian",
+                       "Breton",
+                       "Bulgarian",
+                       "Burmese",
+                       "Catalan; Valencian",
+                       "Chamorro",
+                       "Chechen",
+                       "Chinese",
+                       "Church Slavic; Old Slavonic",
+                       "Chuvash",
+                       "Cornish",
+                       "Corsican",
+                       "Cree",
+                       "Czech",
+                       "Danish",
+                       "Divehi; Dhivehi; Maldivian",
+                       "Dutch; Flemish",
+                       "Dzongkha",
+                       "English",
+                       "Esperanto",
+                       "Estonian",
+                       "Ewe",
+                       "Faroese",
+                       "Fijian",
+                       "Finnish",
+                       "French",
+                       "Western Frisian",
+                       "Fulah",
+                       "Georgian",
+                       "German",
+                       "Gaelic; Scottish Gaelic",
+                       "Irish",
+                       "Galician",
+                       "Manx",
+                       "Greek, Modern (1453-)",
+                       "Guarani",
+                       "Gujarati",
+                       "Haitian; Haitian Creole",
+                       "Hausa",
+                       "Hebrew",
+                       "Herero",
+                       "Hindi",
+                       "Hiri Motu",
+                       "Hungarian",
+                       "Igbo",
+                       "Icelandic",
+                       "Ido",
+                       "Sichuan Yi",
+                       "Inuktitut",
+                       "Interlingue",
+                       "Interlingua",
+                       "Indonesian",
+                       "Inupiaq",
+                       "Italian",
+                       "Javanese",
+                       "Japanese",
+                       "Kalaallisut; Greenlandic",
+                       "Kannada",
+                       "Kashmiri",
+                       "Kanuri",
+                       "Kazakh",
+                       "Khmer",
+                       "Kikuyu; Gikuyu",
+                       "Kinyarwanda",
+                       "Kirghiz",
+                       "Komi",
+                       "Kongo",
+                       "Korean",
+                       "Kuanyama; Kwanyama",
+                       "Kurdish",
+                       "Lao",
+                       "Latin",
+                       "Latvian",
+                       "Limburgan; Limburger; Limburgish",
+                       "Lingala",
+                       "Lithuanian",
+                       "Luxembourgish; Letzeburgesch",
+                       "Luba-Katanga",
+                       "Ganda",
+                       "Macedonian",
+                       "Marshallese",
+                       "Malayalam",
+                       "Maori",
+                       "Marathi",
+                       "Malay",
+                       "Malagasy",
+                       "Maltese",
+                       "Moldavian",
+                       "Mongolian",
+                       "Nauru",
+                       "Navajo; Navaho",
+                       "Ndebele, South; South Ndebele",
+                       "Ndebele, North; North Ndebele",
+                       "Ndonga",
+                       "Nepali",
+                       "Norwegian Nynorsk",
+                       "Norwegian Bokmål",
+                       "Norwegian",
+                       "Chichewa; Chewa; Nyanja",
+                       "Occitan (post 1500); Provençal",
+                       "Ojibwa",
+                       "Oriya",
+                       "Oromo",
+                       "Ossetian; Ossetic",
+                       "Panjabi; Punjabi",
+                       "Persian",
+                       "Pali",
+                       "Polish",
+                       "Portuguese",
+                       "Pushto",
+                       "Quechua",
+                       "Raeto-Romance",
+                       "Romanian",
+                       "Rundi",
+                       "Russian",
+                       "Sango",
+                       "Sanskrit",
+                       "Serbian",
+                       "Croatian",
+                       "Sinhala; Sinhalese",
+                       "Slovak",
+                       "Slovenian",
+                       "Northern Sami",
+                       "Samoan",
+                       "Shona",
+                       "Sindhi",
+                       "Somali",
+                       "Sotho, Southern",
+                       "Spanish; Castilian",
+                       "Sardinian",
+                       "Swati",
+                       "Sundanese",
+                       "Swahili",
+                       "Swedish",
+                       "Tahitian",
+                       "Tamil",
+                       "Tatar",
+                       "Telugu",
+                       "Tajik",
+                       "Tagalog",
+                       "Thai",
+                       "Tibetan",
+                       "Tigrinya",
+                       "Tonga (Tonga Islands)",
+                       "Tswana",
+                       "Tsonga",
+                       "Turkmen",
+                       "Turkish",
+                       "Twi",
+                       "Uighur; Uyghur",
+                       "Ukrainian",
+                       "Urdu",
+                       "Uzbek",
+                       "Venda",
+                       "Vietnamese",
+                       "Volapük",
+                       "Welsh",
+                       "Walloon",
+                       "Wolof",
+                       "Xhosa",
+                       "Yiddish",
+                       "Yoruba",
+                       "Zhuang; Chuang",
+                       "Zulu",
+                       ],
+       "Language of Records", "e:databaseInfo/e:langUsage",
        qw(e:title e:description) ],
      [ restrictions => 2, "Restrictions", "e:databaseInfo/e:restrictions",
        qw(e:title e:description) ],