marklogic-community#109 implement "clean triggers"

dmcassel · Mar 4, 2016 · cc2e2ee · cc2e2ee
1 parent e28e9ff
commit cc2e2ee
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 2 deletions.
diff --git a/deploy/lib/server_config.rb b/deploy/lib/server_config.rb
@@ -1896,8 +1896,8 @@ def deploy_triggers
   end
 
   def clean_triggers
-    cpf_code = File.read ServerConfig.expand_path("#{@@path}/lib/xquery/triggers.xqy")
-    r = execute_query %Q{#{cpf_code} cpf:clean-triggers()}, :db_name => @properties["ml.triggers-db"]
+    triggers_code = File.read ServerConfig.expand_path("#{@@path}/lib/xquery/triggers.xqy")
+    r = execute_query %Q{#{triggers_code} triggers:clean-triggers()}, :db_name => @properties["ml.triggers-db"]
   end
 
   def xcc

diff --git a/deploy/lib/xquery/triggers.xqy b/deploy/lib/xquery/triggers.xqy
@@ -88,3 +88,10 @@ declare function triggers:resolve-permissions($perms as element(sec:permission)*
       <sec:role-id>{xdmp:role($perm/sec:role-name)}</sec:role-id>
     </sec:permission>
 };
+
+declare function triggers:clean-triggers()
+{
+  for $trigger in /trgr:trigger
+  return
+    xdmp:document-delete(fn:base-uri($trigger))
+};