From e51d6ab65ff3f7e040bca1242eb47f614447ef8b Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Tue, 14 Nov 2006 14:54:06 +0000 Subject: [PATCH] New --- web/htdocs/details/form.mc | 98 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 98 insertions(+) create mode 100644 web/htdocs/details/form.mc diff --git a/web/htdocs/details/form.mc b/web/htdocs/details/form.mc new file mode 100644 index 0000000..73536b7 --- /dev/null +++ b/web/htdocs/details/form.mc @@ -0,0 +1,98 @@ +%# $Id: form.mc,v 1.1 2006-11-14 14:54:06 mike Exp $ +<%args> +$id => undef +$conn +$rec + +<%perl> +my $xc = irspy_xpath_context($rec); +my @fields = + ( + [ protocol => 0, "Protocol", "e:serverInfo/\@protocol" ], + [ host => 0, "Host", "e:serverInfo/e:host" ], + [ port => 0, "Port", "e:serverInfo/e:port" ], + [ dbname => 0, "Database Name", "e:serverInfo/e:database", + qw(e:host e:port) ], + [ username => 0, "Username (if needed)", "e:serverInfo/e:authentication/e:user", + qw() ], + [ password => 0, "Password (if needed)", "e:serverInfo/e:authentication/e:password", + qw(e:user) ], + [ title => 0, "title", "e:databaseInfo/e:title", + qw() ], + [ description => 5, "Description", "e:databaseInfo/e:description", + qw(e:title) ], + [ author => 0, "Author", "e:databaseInfo/e:author", + qw(e:title e:description) ], + [ contact => 0, "Contact", "e:databaseInfo/e:contact", + qw(e:title e:description) ], + [ extent => 3, "Extent", "e:databaseInfo/e:extent", + qw(e:title e:description) ], + [ history => 5, "History", "e:databaseInfo/e:history", + qw(e:title e:description) ], + [ language => 0, "Language of Records", "e:databaseInfo/e:langUsage", + qw(e:title e:description) ], + [ restrictions => 2, "Restrictions", "e:databaseInfo/e:restrictions", + qw(e:title e:description) ], + [ subjects => 2, "Subjects", "e:databaseInfo/e:subjects", + qw(e:title e:description) ], + ); + +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); + $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()); +} + +

<% xml_encode($xc->find("e:databaseInfo/e:title")) %>

+% if ($nchanges) { +

+ The record has been updated.
+ Changed <% $nchanges %> field<% $nchanges == 1 ? "" : "s" %>. +

+% } +
+ +<%perl> +foreach my $ref (@fields) { + my($name, $nlines, $caption, $xpath, @addAfter) = @$ref; + + + + + +% } + + + +
<% $caption %> +% my $data = xml_encode($xc->find($xpath)); +% if ($nlines) { + +% } else { + +% } +
+ + +
+
+<%perl> + if ($nchanges && 0) { + my $x = $xc->getContextNode()->toString(); + $x = xml_encode($x); + #$x =~ s/$//gm; + print "
$x
\n"; + } + -- 1.7.10.4