-%# $Id: edit.mc,v 1.18 2006-11-16 17:30:25 mike Exp $
+%# $Id: edit.mc,v 1.20 2006-11-17 22:39:17 mike Exp $
+<%doc>
+Since this form is used in many different situations, some care is
+merited in considering the possibilities:
+
+New? Copy ID? Situation
+--------------------------------------------------------------------------
+Y Blank form for adding a new target.
+Y New target submitted successfully.
+Y Partial new target submitted, requiring more
+
+ Y Existing target to be edited.
+ Y Existing target has been updated.
+
+ Y Y Existing target to be copied.
+ Y New or copied target rejected due to duplicate ID.
+--------------------------------------------------------------------------
+</%doc>
<%args>
+$new => undef
+$copy => undef
$id => undef
</%args>
<%perl>
if (!defined $host || $host eq "" ||
!defined $port || $port eq "" ||
!defined $dbname || $dbname eq "") {
- print qq[<p class="error">You must specify host, port and database name.</p>\n];
+ print qq[<p class="error">
+You must specify host, port and database name.</p>\n];
$r->param(update => 0);
+ } else {
+ my $query = cql_target($host, $port, $dbname);
+ my $rs = $conn->search(new ZOOM::Query::CQL($query));
+ if ($rs->size() > 0) {
+ my $fakeid = xml_encode(uri_escape("$host:$port/$dbname"));
+ print qq[<p class="error">
+There is already
+<a href='?id=$fakeid'>a record</a>
+for this host, port and database name.
+</p>\n];
+ }
}
-
- my $query = cql_target($host, $port, $dbname);
}
my $xc = irspy_xpath_context($rec);
my $nchanges = 0;
my $update = $r->param("update");
-if ($update) {
+
# Update record with submitted data
my %fieldsByKey = map { ( $_->[0], $_) } @fields;
my %data;
next if grep { $key eq $_ } qw(id update new copy);
$data{$key} = $r->param($key);
}
+ my $mynchanges = modify_xml_document($xc, \%fieldsByKey, \%data);
- $nchanges = modify_xml_document($xc, \%fieldsByKey, \%data);
+if ($update) {
+ $nchanges = $mynchanges;
if ($nchanges) {
### Set e:metaInfo/e:dateModified
}
<h2><% xml_encode($xc->find("e:databaseInfo/e:title"), "[Untitled]") %></h2>
% if ($nchanges) {
<p style="font-weight: bold">
- The record has been <% $r->param("new") ? "created" : "updated" %>.<br/>
+ The record has been <% $new ? "created" : "updated" %>.<br/>
Changed <% $nchanges %> field<% $nchanges == 1 ? "" : "s" %>.
</p>
% }
% } else {
<input type="hidden" name="new" value="1"/>
% }
+% if (defined $copy) {
+ <input type="hidden" name="copy" value="<% xml_encode($copy) %>"/>
+% }
</td>
</tr>
</table>