11 lines
307 B
Plaintext
11 lines
307 B
Plaintext
xquery version "1.0";
|
|
|
|
module namespace dnet="http://namespace.dnetlib.eu/xquery/dnet";
|
|
declare namespace xmldb="http://exist-db.org/xquery/xmldb";
|
|
|
|
declare function dnet:deleteDocument($x as element()) {
|
|
|
|
xmldb:remove(replace($x/base-uri(),'/[^/]*$', ''), replace($x/base-uri(),'^.*/([^/]*)$', '$1'))
|
|
|
|
};
|