Simplify and clarify new/edit/copy code, resolving several bugs.

[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 ca1213a..96a8d15 100644 (file)
--- a/web/htdocs/details/edit.mc
+++ b/web/htdocs/details/edit.mc
@@ -1,4 +1,4 @@
-%# $Id: edit.mc,v 1.29 2007-03-29 16:19:39 mike Exp $
+%# $Id: edit.mc,v 1.32 2007-05-03 09:33:29 mike Exp $
 <%args>
 $op
 $id => undef
@@ -35,43 +35,56 @@ die "op != new but id undefined" if $op ne "new" && !defined $id;
 my $conn = new ZOOM::Connection("localhost:8018/IR-Explain---1", 0,
                                user => "admin", password => "fruitbat",
                                elementSetName => "zeerex");
+
+my $protocol = $r->param("protocol");
+my $host = $r->param("host");
+my $port = $r->param("port");
+my $dbname = $r->param("dbname");
+my $newid;
+if (defined $protocol && $protocol ne "" &&
+    defined $host && $host ne "" &&
+    defined $port && $port ne "" &&
+    defined $dbname && $dbname ne "") {
+    $newid = irspy_make_identifier($protocol, $host, $port, $dbname);
+}
+
 my $rec = '<explain xmlns="http://explain.z3950.org/dtd/2.0/"/>';
-if (defined $id && ($op ne "copy" || !$update)) {
-    # Existing record
-    my $query = cql_target($id);
-    my $rs = $conn->search(new ZOOM::Query::CQL($query));
-    if ($rs->size() > 0) {
-       $rec = $rs->record(0);
-    } else {
-       ### Is this an error?  I don't think the UI will ever provoke it
-       print qq[<p class="error">(New ID specified.)</p>\n];
-       $id = undef;
-    }
 
-} else {
-    # No ID supplied -- this is a brand new record
-    my $host = $r->param("host");
-    my $port = $r->param("port");
-    my $dbname = $r->param("dbname");
-    if (!defined $host || $host eq "" ||
-       !defined $port || $port eq "" ||
-       !defined $dbname || $dbname eq "") {
+if (!defined $id) {
+    if (!$update) {
+       # About to enter data for a new record
+       # Nothing to do at this stage
+    } elsif (!defined $newid) {
+       # Tried to create new record but data is insufficient
        print qq[<p class="error">
-You must specify host, port and database name.</p>\n] if $update;
+               Please specify protocol, host, port and database name.</p>\n];
        undef $update;
     } else {
-       my $query = cql_target($host, $port, $dbname);
-       my $rs = $conn->search(new ZOOM::Query::CQL($query));
+       # Creating new record, all necessary data is present.  Check
+       # that the new record is not a duplicate of an existing one.
+       my $rs = $conn->search(new ZOOM::Query::CQL(cql_target($newid)));
        if ($rs->size() > 0) {
-           my $fakeid = xml_encode(uri_escape("$host:$port/$dbname"));
+           my $qnewid = xml_encode(uri_escape($newid));
            print qq[<p class="error">
-There is already
-<a href='?op=edit&amp;id=$fakeid'>a record</a>
-for this host, port and database name.
-</p>\n];
+               There is already
+               <a href='?op=edit&amp;id=$newid'>a record</a>
+               for this protocol, host, port and database name.
+               </p>\n];
            undef $update;
        }
     }
+} else {
+    # assert(defined $id);
+    # Copying or editing an existing record: fetch it for editing
+    my $query = cql_target($id);
+    my $rs = $conn->search(new ZOOM::Query::CQL($query));
+    if ($rs->size() > 0) {
+       $rec = $rs->record(0);
+    } else {
+       ### Is this an error?  I don't think the UI will ever provoke it
+       print qq[<p class="error">(New ID specified.)</p>\n];
+       $id = undef;
+    }
 }
 
 my $xc = irspy_xpath_context($rec);
@@ -81,7 +94,7 @@ my @fields =
        qw() ],
      [ country      => $m->comp("country-list.mc"),
        "Country", "i:status/i:country" ],
-     [ protocol     => [ qw(Z39.50 SRW SRU SRW/U) ],
+     [ protocol     => [ qw(Z39.50 SRW SRU) ],
        "Protocol", "e:serverInfo/\@protocol" ],
      [ host         => 0, "Host", "e:serverInfo/e:host" ],
      [ port         => 0, "Port", "e:serverInfo/e:port" ],
@@ -320,7 +333,8 @@ 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(), $id);
+    ZOOM::IRSpy::_really_rewrite_record($conn, $xc->getContextNode(),
+                                       $op eq "edit" ? $id : undef);
 }
 
 </%perl>
@@ -367,6 +381,7 @@ foreach my $ref (@fields) {
     <td align="right" colspan="2">
      <input type="submit" name="update" value="Update"/>
      <input type="hidden" name="op" value="<% xml_encode($op) %>"/>
+% $id = $newid if defined $newid;
 % if (defined $id) {
      <input type="hidden" name="id" value="<% xml_encode($id) %>"/>
 % }