X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=web%2Fhtdocs%2Fdetails%2Fedit.mc;h=95de51b978e4fce249d6ddda14181d842405b64c;hb=17127b03d4bea2d265c33e7bc38c75217b005c32;hp=9e234e9abca67d5ece338b03b517e9eaa167c6dd;hpb=30ec9820985d5537f1baa1eef4e3905fd5271c50;p=irspy-moved-to-github.git
diff --git a/web/htdocs/details/edit.mc b/web/htdocs/details/edit.mc
index 9e234e9..95de51b 100644
--- a/web/htdocs/details/edit.mc
+++ b/web/htdocs/details/edit.mc
@@ -1,4 +1,4 @@
-%# $Id: edit.mc,v 1.5 2006-10-31 09:26:59 mike Exp $
+%# $Id: edit.mc,v 1.9 2006-11-09 16:32:54 mike Exp $
<%args>
$id
%args>
@@ -49,44 +49,33 @@ if ($n == 0) {
qw(e:title e:description) ],
[ subjects => 2, "Subjects", "e:databaseInfo/e:subjects",
qw(e:title e:description) ],
- ### Remember to set e:metaInfo/e:dateModified
);
- my %fieldsByKey = map { ( $_->[0], $_) } @fields;
+
+ my $nchanges = 0;
my $update = $r->param("update");
if (defined $update) {
# Update record with submitted data
+ my %fieldsByKey = map { ( $_->[0], $_) } @fields;
+ my %data;
foreach my $key ($r->param()) {
next if grep { $key eq $_ } qw(id update);
- my $value = $r->param($key);
- my $ref = $fieldsByKey{$key} or die "no field '$key'";
- my($name, $nlines, $caption, $xpath, @addAfter) = @$ref;
- my @nodes = $xc->findnodes($xpath);
- if (@nodes) {
- warn scalar(@nodes), " nodes match '$xpath'" if @nodes > 1;
- my $node = $nodes[0];
- if ($node->isa("XML::LibXML::Attr")) {
- $node->setValue($value);
- #print "Attr $key <- '$value' ($xpath)
\n";
- } elsif ($node->isa("XML::LibXML::Element")) {
- my $child = $node->firstChild();
- die "element child $child is not text"
- if !ref $child || !$child->isa("XML::LibXML::Text");
- $child->setData($value);
- #print "Elem $key <- '$value' ($xpath)
\n";
- } else {
- warn "unexpected node type $node";
- }
- } else {
- next if !$value;
- my($ppath, $element) = $xpath =~ /(.*)\/(.*)/;
- dom_add_element($xc, $ppath, $element, $value, @addAfter);
- }
+ $data{$key} = $r->param($key);
+ }
+
+ $nchanges = modify_xml_document($xc, \%fieldsByKey, \%data);
+ if ($nchanges) {
+ ### Set e:metaInfo/e:dateModified
}
ZOOM::IRSpy::_really_rewrite_record($conn, $xc->getContextNode());
}
%perl>
-
The record has been updated.
\n" if defined $update; +
+ The record has been updated.
+ Changed <% $nchanges %> field<% $nchanges == 1 ? "" : "s" %>.
+
$x\n"; + } +%perl> % }