diff --git a/modules/intermediate_format/preprocessing.xqm b/modules/intermediate_format/preprocessing.xqm index c6a6fb9e910f5bbcf68ba20a935e8330c76f6c89..54c89ac0d44ca5378819385294ae6d646d70fb09 100644 --- a/modules/intermediate_format/preprocessing.xqm +++ b/modules/intermediate_format/preprocessing.xqm @@ -51,7 +51,9 @@ declare function pre:preprocessing-textNode element{$node/name()}{ $node/@*, pre:preprocessing-textNode($node/node()), - element{"editorial-notes"}{} + element{"editorial-notes"}{ + $node//note[@type eq "editorial-commentary"] + } } ) @@ -141,7 +143,7 @@ declare function pre:default-element : @author Uwe Sikora :) declare function pre:preprocessing - ($nodes as node()*, $replace-whitespace as xs:boolean) + ($nodes as node()*, $replace-whitespace as xs:boolean) as item()* { for $node in $nodes @@ -164,7 +166,11 @@ declare function pre:preprocessing element{$node/name()}{ $node/@*, pre:preprocessing($node/node(), $replace-whitespace), - element{"editorial-notes"}{} + element{"editorial-notes"}{ + for $editorial-note in $node//note[@type eq "editorial-commentary"] + return + pre:default-element( $editorial-note, pre:preprocessing($editorial-note/node(), $replace-whitespace) ) + } } ) @@ -179,26 +185,26 @@ declare function pre:preprocessing $node/@*, attribute id {generate-id($node)}, pre:preprocessing($node/node(), $replace-whitespace) - } + } else if ($node[not(@type)][not(descendant::div)]) then element{$node/name()}{ attribute type {"single-div"}, attribute id {generate-id($node)}, pre:preprocessing($node/node(), $replace-whitespace) - } + } else ( pre:default-element( $node, pre:preprocessing($node/node(), $replace-whitespace) ) ) ) - + case element(app) return if($node/parent::div[@type = "section-group"]) then element{$node/name()}{ attribute type {"standalone"}, attribute id {generate-id($node)}, pre:preprocessing($node/node(), $replace-whitespace) - } + } else pre:default-element( $node, pre:preprocessing($node/node(), $replace-whitespace) ) @@ -219,7 +225,11 @@ declare function pre:preprocessing ) case element(note) return ( - pre:default-element( $node, pre:preprocessing($node/node(), $replace-whitespace) ) + if ( $node[@type != "editorial-commentary"] or $node[ not(@type) ] ) then ( + pre:default-element( $node, pre:preprocessing($node/node(), $replace-whitespace) ) + ) else ( ) + +(: pre:default-element( $node, pre:preprocessing($node/node(), $replace-whitespace) ):) ) case element(pb) return (