@@ -493,10 +493,16 @@
   (rmt:send-receive 'get-run-record-ids #f (list target run keynames test-patt)))
 
 (define (rmt:get-changed-record-ids since-time)
   (rmt:send-receive 'get-changed-record-ids #f (list since-time)) )
 
+(define (rmt:drop-all-triggers)
+     (rmt:send-receive 'drop-all-triggers #f '()))
+
+(define (rmt:create-all-triggers)
+     (rmt:send-receive 'create-all-triggers #f '()))
+
 ;;======================================================================
 ;;  T E S T   M E T A 
 ;;======================================================================
 
 (define (rmt:get-tests-tags)
@@ -788,10 +794,13 @@
   (rmt:send-receive 'set-run-status #f (list run-id run-status msg)))
 
 (define (rmt:set-run-state-status run-id state status )
   (rmt:send-receive 'set-run-state-status #f (list run-id state status)))
 
+(define (rmt:update-tesdata-on-repilcate-db old-lt new-lt)
+(rmt:send-receive 'update-tesdata-on-repilcate-db #f (list old-lt new-lt)))
+
 (define (rmt:update-run-event_time run-id)
   (rmt:send-receive 'update-run-event_time #f (list run-id)))
 
 (define (rmt:get-runs-by-patt  keys runnamepatt targpatt offset limit fields last-runs-update  #!key  (sort-order "asc")) ;; fields of #f uses default
   (rmt:send-receive 'get-runs-by-patt #f (list keys runnamepatt targpatt offset limit fields last-runs-update sort-order)))