Hi Eric,
I think the loss of attributes is being caused by the fact you are
actually recreating the complete element when you try to update the
text, without copying the original attributes while doing so. :-)
Pretty simple to fix I guess, but I think it is better to change your
path expressions to include the originating text() node into the path,
recreate a new text node instead of an element node, and replace the
old text node with the new one instead of replacing elements.
You might want to consider adding separate save buttons, one for each
textarea. The top-level save button can handle many updates
simultaniously, but if you want to do just one minor update in a
single field, you are performing a lot of updates anyway. Just sounds
redundant.. :-P
By using a for loop over child nodes instead of addressing text() and
element() nodes directly, you can also fix the lack of support for
mixed content elements.
I replaced your display-element-contents function with this:
define function display-element-contents($elements as element()*)
{
for $element in $elements
return
<ul>
<li>{
open-tag($element),
for $node in $element/node()
return
if (node-kind($node) = "text")
then
if
(normalize-space($node) = '') then
<i
style="color:#DDDDDD">whitespace</i>
else if
(string-length($node) gt 30) then
<textarea
name="__text__{ xdmp:path($node) }" rows="3" cols="30">{ $node
}</textarea>
else
<input
type="text" name="__text__{ xdmp:path($node) }" value="{ $node }"
size="{
min((30, string-length($node))) }" />
else if (node-kind($node) =
"element") then
display-element-contents($node)
else
<i
style="color:#FF0000">{node-kind($node)}</i>,
close-tag($element)
} {
if (not($element = root($element)))
then add-remove-links($element)
else ()
}</li>
</ul>
}
And I replaced you update-element function with:
(:
Called by save-fields, constructs a new text containing
$value, to replace
the text residing at $path in $uri.
:)
define function update-element($uri as xs:string, $path as xs:string,
$value as xs:string)
{
let $old-node := concat("doc('", $uri, "')", $path)
let $new-node := concat("text { '", replace($value, "'",
"''"), "' }")
let $z := xdmp:log(concat("xdmp:node-replace(", $old-node, ",
", $new-node, ")"))
return
xdmp:eval(concat("let $old-node := ", $old-node, "
return if ($old-node) then xdmp:node-replace($old-node, ", $new-node,
") else ()"))
}
You might consider renaming the last to update-text.. ;-)
Anyhow, with these two replacements, the scaffold editor should be
much more robust.
Only thing I wasn't able to solve was how to handle a proper
distinction between files and directories. I was experimenting on a
database in which the uri's of my files don't end with an extension.
Next to this they just reside in the root, but the xdmp:directory
function does not seem to support the uri '/' to refer to the database
root. :-(
Oh, I did found one other anomaly: I have attributes with namespace
prefixes in some of my documents. The xdmp:path function does not
respect the prefixes, just leaves them out. This causes the replace to
fail, because it is unable to resolve the path (returns empty). That
is the reason why I added a wrapping if to the evaluated replace
statement (added it to update-attribute as well of course).
Note: I am NOT an experienced MarkLogic user. In fact, I have only 2
weeks experience. Though I am familiar with Xquery and Xpath much
longer. I mention this because there might be much better ways to do
things like this in MarkLogic, but I am not aware of these. Perhaps
someone of MarkLogic likes to comment as well?
Kind regards,
Geert
Drs. G.P.H. Josten
Consultant
http://www.daidalos.nl/
Daidalos BV
Source of Innovation
Hoekeindsehof 1-4
2665 JZ Bleiswijk
Tel.: +31 (0) 10 850 1200
Fax: +31 (0) 10 850 1199
http://www.daidalos.nl/
KvK 27164984
De informatie - verzonden in of met dit emailbericht - is afkomstig
van Daidalos BV en is uitsluitend bestemd voor de geadresseerde.
Indien u dit bericht onbedoeld hebt ontvangen, verzoeken wij u het te
verwijderen. Aan dit bericht kunnen geen rechten worden ontleend.
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Eric Palmitesta
Sent: woensdag 24 september 2008 23:56
To: ML Developer Mailing List
Subject: [MarkLogic Dev General] Scaffolding
Hi all,
Our website translations reside in xml files, however it
became rather tedious to edit and re-load a local file xml
file into MarkLogic for every small change.
I've put together an xml scaffolding written in xquery. If
you've never heard of a software scaffolding before, it
simply allows temporary front-end access to back-end data,
while the real front-end is still under development. There
are many sql-based scaffolding apps made for php and other
web-based languages.
The basic idea here is: provide a simple interface to quickly
browse and edit xml documents with a web browser.
WARNING: Scaffolding is still very much under construction,
in fact there are still data-destroying bugs present! Don't
use Scaffolding on anything other than throwaway/test xml documents!
To try it out, grab the attached scaffolding.xqy file, drop
it into an http app server, and point your browser to its location.
There is a bug I'm still stumped on, and would appreciate
some help with. When saving a document containing attributes
which are part of an element which has only text-node
children (ex. <sign width="10"
height="5">hello</sign>), those attributes vanish (ex.
<sign>hello</sign>). However, if you grab the command from
the log (line 253) and execute it standalone (in CQ, for
example), given the same document, the attributes are saved
successfully. Attributes which are part of an element which
has only element-node children are also saved successfully.
If you do attempt to browse through the source, I'll
apologize now about the lack of comments and general
messiness, it was put together in half a day last week. To
an xquery vet, however, it should be at least somewhat intuitive.
I'd love to get ANY kind of feedback you've got.
Thanks,
Eric
_______________________________________________
General mailing list
[email protected]
http://xqzone.com/mailman/listinfo/general
