summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
9000754)
Move United States to the top of the country list.
Move English to the top of the language list.
-%# $Id: edit.mc,v 1.26 2007-01-24 09:28:02 mike Exp $
+%# $Id: edit.mc,v 1.27 2007-03-19 13:36:51 mike Exp $
my $rec = '<explain xmlns="http://explain.z3950.org/dtd/2.0/"/>';
if (defined $id && ($op ne "copy" || !$update)) {
# Existing record
my $rec = '<explain xmlns="http://explain.z3950.org/dtd/2.0/"/>';
if (defined $id && ($op ne "copy" || !$update)) {
# Existing record
- my $query = 'rec.id="' . cql_quote($id) . '"';
+ my $query = cql_target($id);
my $rs = $conn->search(new ZOOM::Query::CQL($query));
if ($rs->size() > 0) {
$rec = $rs->record(0);
my $rs = $conn->search(new ZOOM::Query::CQL($query));
if ($rs->size() > 0) {
$rec = $rs->record(0);
qw() ],
[ country => [
"",
qw() ],
[ country => [
"",
"Afghanistan",
"Albania",
"Algeria",
"Afghanistan",
"Albania",
"Algeria",
"Ukraine",
"United Arab Emirates",
"United Kingdom",
"Ukraine",
"United Arab Emirates",
"United Kingdom",
"Uruguay",
"Uzbekistan",
"Vanuatu",
"Uruguay",
"Uzbekistan",
"Vanuatu",
# awk -F'|' '$3 {print$4}'
# and shortening some of the longer names by hand
"",
# awk -F'|' '$3 {print$4}'
# and shortening some of the longer names by hand
"",
"Afar",
"Abkhazian",
"Afrikaans",
"Afar",
"Abkhazian",
"Afrikaans",
"Divehi; Dhivehi; Maldivian",
"Dutch; Flemish",
"Dzongkha",
"Divehi; Dhivehi; Maldivian",
"Dutch; Flemish",
"Dzongkha",
"Esperanto",
"Estonian",
"Ewe",
"Esperanto",
"Estonian",
"Ewe",