Pass old ID into _really_rewrite_record()

[irspy-moved-to-github.git] / web / htdocs / details / edit.mc

diff --git a/web/htdocs/details/edit.mc b/web/htdocs/details/edit.mc
index ab9d64e..d437ec0 100644 (file)
--- a/web/htdocs/details/edit.mc
+++ b/web/htdocs/details/edit.mc
@@ -1,4 +1,4 @@
-%# $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
@@ -32,13 +32,13 @@ duplicate ID.
 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);
@@ -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>