From: Mike Taylor <mike@indexdata.com>
Date: Wed, 6 Dec 2006 10:47:27 +0000 (+0000)
Subject: Language of records now chosen from a dropdown.
X-Git-Tag: CPAN-v1.02~54^2~655
X-Git-Url: http://lists.indexdata.dk/?a=commitdiff_plain;h=e96b8cef727133ad334158cd91770b557025dbf2;p=irspy-moved-to-github.git

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
--- 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) ],