Changeset 4657

Timestamp:

03/07/14 16:44:39 (10 years ago)

Author:

andmor

Message:

Modified 'NEW' and 'SINK' queries to update the original documents after updating the database

File:

• cats/SCHEMAcat/trunk/urn.org.isocat.schemacat.access.data/access/schemaAuthorizedIDs.dpml (modified) (1 diff)

cats/SCHEMAcat/trunk/urn.org.isocat.schemacat.access.data/access/schemaAuthorizedIDs.dpml

@@ -135 +135 @@
                                                 error(xs:QName('sc:accessSchemaIdNotSupplied'),'ERROR updating schema access: schema ID not supplied!')
                                             else
-                                                (db:output(element sc:response {attribute success {'true'}, element sc:written-data {$newAccessRules} }), replace node /sc:schema[@xml:id = $schemaID]/sc:access with $newAccessRules)
+                                                (
+                                                let $db-name := db:name(/sc:schema[@xml:id = $schemaID])
+                                                return
+                                                    (db:output(element sc:response {attribute success {'true'}, element sc:written-data {$newAccessRules} }), replace node /sc:schema[@xml:id = $schemaID]/sc:access with $newAccessRules,
+                                                    put(/sc:schema[@xml:id = $schemaID], concat(string(db:list-details()[. = $db-name]/@path), file:dir-separator(),db:path(/sc:schema[@xml:id = $schemaID]))))
+                                                )
                                     </query>
                                 </literal>