From: Mike Taylor <mike@indexdata.com>
Date: Wed, 6 Dec 2006 10:37:23 +0000 (+0000)
Subject: Country now chosen from a dropdown.
X-Git-Tag: CPAN-v1.02~711
X-Git-Url: http://sru.miketaylor.org.uk/cgi-bin?a=commitdiff_plain;h=14d5be6edf2be05e728f4f497bfc0131f80ca224;p=irspy-moved-to-github.git

Country now chosen from a dropdown.
---

diff --git a/web/htdocs/details/edit.mc b/web/htdocs/details/edit.mc
index a22e811..1208599 100644
--- a/web/htdocs/details/edit.mc
+++ b/web/htdocs/details/edit.mc
@@ -1,4 +1,4 @@
-%# $Id: edit.mc,v 1.23 2006-12-05 17:37:18 mike Exp $
+%# $Id: edit.mc,v 1.24 2006-12-06 10:37:23 mike Exp $
 <%args>
 $op
 $id => undef
@@ -79,7 +79,249 @@ my @fields =
     (
      [ title        => 0, "Name", "e:databaseInfo/e:title",
        qw() ],
-     [ country      => 0, "Country", "i:status/i:country" ],
+     [ country      => [
+			"",
+			"Afghanistan",
+			"Albania",
+			"Algeria",
+			"American Samoa",
+			"Andorra",
+			"Angola",
+			"Anguilla",
+			"Antarctica",
+			"Antigua and Barbuda",
+			"Argentina",
+			"Armenia",
+			"Aruba",
+			"Australia",
+			"Austria",
+			"Azerbaijan",
+			"Bahamas",
+			"Bahrain",
+			"Bangladesh",
+			"Barbados",
+			"Belarus",
+			"Belgium",
+			"Belize",
+			"Benin",
+			"Bermuda",
+			"Bhutan",
+			"Bolivia",
+			"Bosnia and Herzegowina",
+			"Botswana",
+			"Bouvet Island",
+			"Brazil",
+			"British Indian Ocean Terr.",
+			"Brunei Darussalam",
+			"Bulgaria",
+			"Burkina Faso",
+			"Burundi",
+			"Cambodia",
+			"Cameroon",
+			"Canada",
+			"Cape Verde",
+			"Cayman Islands",
+			"Central African Republic",
+			"Chad",
+			"Chile",
+			"China",
+			"Christmas Island",
+			"Cocos (Keeling) Islands",
+			"Colombia",
+			"Comoros",
+			"Congo",
+			"Cook Islands",
+			"Costa Rica",
+			"Cote d'Ivoire",
+			"Croatia (Hrvatska)",
+			"Cuba",
+			"Cyprus",
+			"Czech Republic",
+			"Denmark",
+			"Djibouti",
+			"Dominica",
+			"Dominican Republic",
+			"East Timor",
+			"Ecuador",
+			"Egypt",
+			"El Salvador",
+			"Equatorial Guinea",
+			"Eritrea",
+			"Estonia",
+			"Ethiopia",
+			"Falkland Islands/Malvinas",
+			"Faroe Islands",
+			"Fiji",
+			"Finland",
+			"France",
+			"France, Metropolitan",
+			"French Guiana",
+			"French Polynesia",
+			"French Southern Terr.",
+			"Gabon",
+			"Gambia",
+			"Georgia",
+			"Germany",
+			"Ghana",
+			"Gibraltar",
+			"Greece",
+			"Greenland",
+			"Grenada",
+			"Guadeloupe",
+			"Guam",
+			"Guatemala",
+			"Guinea",
+			"Guinea-Bissau",
+			"Guyana",
+			"Haiti",
+			"Heard & McDonald Is.",
+			"Honduras",
+			"Hong Kong",
+			"Hungary",
+			"Iceland",
+			"India",
+			"Indonesia",
+			"Iran",
+			"Iraq",
+			"Ireland",
+			"Israel",
+			"Italy",
+			"Jamaica",
+			"Japan",
+			"Jordan",
+			"Kazakhstan",
+			"Kenya",
+			"Kiribati",
+			"Korea, North",
+			"Korea, South",
+			"Kuwait",
+			"Kyrgyzstan",
+			"Lao People's Dem. Rep.",
+			"Latvia",
+			"Lebanon",
+			"Lesotho",
+			"Liberia",
+			"Libyan Arab Jamahiriya",
+			"Liechtenstein",
+			"Lithuania",
+			"Luxembourg",
+			"Macau",
+			"Macedonia",
+			"Madagascar",
+			"Malawi",
+			"Malaysia",
+			"Maldives",
+			"Mali",
+			"Malta",
+			"Marshall Islands",
+			"Martinique",
+			"Mauritania",
+			"Mauritius",
+			"Mayotte",
+			"Mexico",
+			"Micronesia",
+			"Moldova",
+			"Monaco",
+			"Mongolia",
+			"Montserrat",
+			"Morocco",
+			"Mozambique",
+			"Myanmar",
+			"Namibia",
+			"Nauru",
+			"Nepal",
+			"Netherlands",
+			"Netherlands Antilles",
+			"New Caledonia",
+			"New Zealand",
+			"Nicaragua",
+			"Niger",
+			"Nigeria",
+			"Niue",
+			"Norfolk Island",
+			"Northern Mariana Is.",
+			"Norway",
+			"Oman",
+			"Pakistan",
+			"Palau",
+			"Panama",
+			"Papua New Guinea",
+			"Paraguay",
+			"Peru",
+			"Philippines",
+			"Pitcairn",
+			"Poland",
+			"Portugal",
+			"Puerto Rico",
+			"Qatar",
+			"Reunion",
+			"Romania",
+			"Russian Federation",
+			"Rwanda",
+			"S.Georgia & S.Sandwich Is.",
+			"Saint Kitts and Nevis",
+			"Saint Lucia",
+			"Samoa",
+			"San Marino",
+			"Sao Tome & Principe",
+			"Saudi Arabia",
+			"Senegal",
+			"Seychelles",
+			"Sierra Leone",
+			"Singapore",
+			"Slovakia (Slovak Republic)",
+			"Slovenia",
+			"Solomon Islands",
+			"Somalia",
+			"South Africa",
+			"Spain",
+			"Sri Lanka",
+			"St. Helena",
+			"St. Pierre & Miquelon",
+			"St. Vincent & Grenadines",
+			"Sudan",
+			"Suriname",
+			"Svalbard & Jan Mayen Is.",
+			"Swaziland",
+			"Sweden",
+			"Switzerland",
+			"Syrian Arab Republic",
+			"Taiwan",
+			"Tajikistan",
+			"Tanzania",
+			"Thailand",
+			"Togo",
+			"Tokelau",
+			"Tonga",
+			"Trinidad and Tobago",
+			"Tunisia",
+			"Turkey",
+			"Turkmenistan",
+			"Turks & Caicos Islands",
+			"Tuvalu",
+			"U.S. Minor Outlying Is.",
+			"Uganda",
+			"Ukraine",
+			"United Arab Emirates",
+			"United Kingdom",
+			"United States",
+			"Uruguay",
+			"Uzbekistan",
+			"Vanuatu",
+			"Vatican (Holy See)",
+			"Venezuela",
+			"Viet Nam",
+			"Virgin Islands (British)",
+			"Virgin Islands (U.S.)",
+			"Wallis & Futuna Is.",
+			"Western Sahara",
+			"Yemen",
+			"Yugoslavia",
+			"Zaire",
+			"Zambia",
+			"Zimbabwe",
+			 ],
+       "Country", "i:status/i:country" ],
      [ protocol     => [ qw(Z39.50 SRW SRU SRW/U) ],
        "Protocol", "e:serverInfo/\@protocol" ],
      [ host         => 0, "Host", "e:serverInfo/e:host" ],