X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=web%2Fhtdocs%2Fdetails%2Fedit.mc;h=d437ec02eabfd139b5d798819bfcdb2ee54b1c21;hp=8bab7b22e5b18537ab85db6fe5ab95da59da99cd;hb=acfeb1b0ef864a801e45eb7281819877997a8d07;hpb=e8a3ce9f6d7d213621575e8923ed07dfab35885b

diff --git a/web/htdocs/details/edit.mc b/web/htdocs/details/edit.mc
index 8bab7b2..d437ec0 100644
--- a/web/htdocs/details/edit.mc
+++ b/web/htdocs/details/edit.mc
@@ -1,4 +1,4 @@
-%# $Id: edit.mc,v 1.26 2007-01-24 09:28:02 mike Exp $
+%# $Id: edit.mc,v 1.28 2007-03-19 18:51:18 mike Exp $
 <%args>
 $op
 $id => undef
@@ -38,7 +38,7 @@ my $conn = new ZOOM::Connection("localhost:8018/IR-Explain---1", 0,
 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);
@@ -81,6 +81,7 @@ my @fields =
        qw() ],
      [ country      => [
 			"",
+			"United States",
 			"Afghanistan",
 			"Albania",
 			"Algeria",
@@ -304,7 +305,6 @@ my @fields =
 			"Ukraine",
 			"United Arab Emirates",
 			"United Kingdom",
-			"United States",
 			"Uruguay",
 			"Uzbekistan",
 			"Vanuatu",
@@ -352,6 +352,7 @@ my @fields =
 #	awk -F'|' '$3 {print$4}'
 # and shortening some of the longer names by hand
 			"",
+			"English",
 			"Afar",
 			"Abkhazian",
 			"Afrikaans",
@@ -391,7 +392,6 @@ my @fields =
 			"Divehi; Dhivehi; Maldivian",
 			"Dutch; Flemish",
 			"Dzongkha",
-			"English",
 			"Esperanto",
 			"Estonian",
 			"Ewe",
@@ -561,7 +561,7 @@ if ($update && @changedFields) {
 					     "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>