From b3131b1fc7f1a37e362f1ac342f3bf5833f049a0 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Fri, 27 Oct 2006 00:47:24 +0000 Subject: [PATCH] Generate nice form for editing. Doesn't yet recognise submissions. --- web/htdocs/details/edit.mc | 73 ++++++++++++++++++++++++++------------------ 1 file changed, 43 insertions(+), 30 deletions(-) diff --git a/web/htdocs/details/edit.mc b/web/htdocs/details/edit.mc index 5107d08..38737df 100644 --- a/web/htdocs/details/edit.mc +++ b/web/htdocs/details/edit.mc @@ -1,4 +1,4 @@ -%# $Id: edit.mc,v 1.1 2006-10-20 16:57:40 mike Exp $ +%# $Id: edit.mc,v 1.2 2006-10-27 00:47:24 mike Exp $ <%args> $id @@ -19,39 +19,52 @@ if ($n == 0) { } else { my $rec = $rs->record(0); my $xc = irspy_xpath_context($rec); - my @fields = ( - [ Protocol => "e:serverInfo/\@protocol" ], - [ Host => "e:serverInfo/e:host" ], - [ Port => "e:serverInfo/e:port" ], - [ "Database Name" => "e:serverInfo/e:database" ], - [ "Username (if needed)" => - "e:serverInfo/e:authentication/e:user" ], - [ "Password (if needed)" => - "e:serverInfo/e:authentication/e:password" ], - [ Title => "e:databaseInfo/e:title", - lang => "en", primary => "true" ], - [ Description => "e:databaseInfo/e:description", - lang => "en", primary => "true" ], - [ Author => "e:databaseInfo/e:author" ], - [ Contact => "e:databaseInfo/e:contact" ], - [ Extent => "e:databaseInfo/e:extent" ], - [ History => "e:databaseInfo/e:history" ], - [ "Language of Records" => "e:databaseInfo/e:langUsage" ], - [ Restrictions => "e:databaseInfo/e:restrictions" ], - [ Subjects => "e:databaseInfo/e:subjects" ], - ### Remember to set e:metaInfo/e:dateModified - ); + 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" ], + [ username => 0, "Username (if needed)", "e:serverInfo/e:authentication/e:user" ], + [ password => 0, "Password (if needed)", "e:serverInfo/e:authentication/e:password" ], + [ title => 0, "title", "e:databaseInfo/e:title", lang => "en", primary => "true" ], + [ description => 5, "Description", "e:databaseInfo/e:description", lang => "en", primary => "true" ], + [ author => 0, "Author", "e:databaseInfo/e:author" ], + [ contact => 0, "Contact", "e:databaseInfo/e:contact" ], + [ extent => 3, "Extent", "e:databaseInfo/e:extent" ], + [ history => 5, "History", "e:databaseInfo/e:history" ], + [ language => 0, "Language of Records", "e:databaseInfo/e:langUsage" ], + [ restrictions => 2, "Restrictions", "e:databaseInfo/e:restrictions" ], + [ subjects => 2, "Subjects", "e:databaseInfo/e:subjects" ], + ### Remember to set e:metaInfo/e:dateModified + );

<% xml_encode($id) %>

- + +
<%perl> foreach my $ref (@fields) { - my($caption, $xpath, %attrs) = @$ref; + my($name, $nlines, $caption, $xpath, %attrs) = @$ref; - - - - + + + + % } -
<% $caption %><% $xc->find($xpath) %>
<% $caption %> +% my $data = xml_encode($xc->find($xpath)); +% if ($nlines) { + +% } else { + +% } +
+ + + + + + + + + % } -- 1.7.10.4