-%# $Id: edit.mc,v 1.25 2006-12-06 10:47:27 mike Exp $
+%# $Id: edit.mc,v 1.28 2007-03-19 18:51:18 mike Exp $
<%args>
$op
$id => undef
die "op = new but id defined" if $op eq "new" && defined $id;
die "op != new but id undefined" if $op ne "new" && !defined $id;
-my $conn = new ZOOM::Connection("localhost:3313/IR-Explain---1", 0,
+my $conn = new ZOOM::Connection("localhost:8018/IR-Explain---1", 0,
user => "admin", password => "fruitbat",
elementSetName => "zeerex");
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);
qw() ],
[ country => [
"",
+ "United States",
"Afghanistan",
"Albania",
"Algeria",
"Ukraine",
"United Arab Emirates",
"United Kingdom",
- "United States",
"Uruguay",
"Uzbekistan",
"Vanuatu",
# awk -F'|' '$3 {print$4}'
# and shortening some of the longer names by hand
"",
+ "English",
"Afar",
"Abkhazian",
"Afrikaans",
"Divehi; Dhivehi; Maldivian",
"Dutch; Flemish",
"Dzongkha",
- "English",
"Esperanto",
"Estonian",
"Ewe",
"e:metaInfo/e:dateModified" ] },
{ dateModified => isodate(time()) });
die "Didn't set dateModified!" if !@x;
- ZOOM::IRSpy::_really_rewrite_record($conn, $xc->getContextNode());
+ ZOOM::IRSpy::_really_rewrite_record($conn, $xc->getContextNode(), $id);
}
</%perl>