From: Mike Taylor <mike@indexdata.com>
Date: Wed, 15 Nov 2006 17:56:23 +0000 (+0000)
Subject: Editing a not-yet-existant ID is now OK.
X-Git-Tag: CPAN-v1.02~792
X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=commitdiff_plain;h=2adbce2a8c3e6a2ec0ba4df2246450f96010c580

Editing a not-yet-existant ID is now OK.
---

diff --git a/web/htdocs/details/edit.mc b/web/htdocs/details/edit.mc
index d6503f5..28f46db 100644
--- a/web/htdocs/details/edit.mc
+++ b/web/htdocs/details/edit.mc
@@ -1,4 +1,4 @@
-%# $Id: edit.mc,v 1.10 2006-11-14 14:54:41 mike Exp $
+%# $Id: edit.mc,v 1.11 2006-11-15 17:56:23 mike Exp $
 <%args>
 $id => undef
 </%args>
@@ -19,8 +19,8 @@ if (!defined $id || $id eq "") {
     my $rs = $conn->search(new ZOOM::Query::CQL($query));
     my $n = $rs->size();
     if ($n == 0) {
-	$m->comp("/details/error.mc",
-		 title => "Error", message => "No such ID '$id'");
+	$m->comp("/details/form.mc", id => undef, conn => $conn,
+		 rec => '<explain xmlns="http://explain.z3950.org/dtd/2.0/"/>');
     } else {
 	my $rec = $rs->record(0);
 	$m->comp("/details/form.mc", id => $id, conn => $conn, rec => $rec);