
infodev:log-progress( $ticket-id as xs:string, $annotation as element(info:annotation), [$documents-processed as xs:nonNegativeInteger?], [$transactions-completed as xs:nonNegativeInteger?], [$error-log-level as xs:string?] ) as empty-sequence()
[DEPRECATED] This function writes log information into a ticket's progress file that is written to the App-Services database.
xquery version "1.0-ml";
import module namespace info = "http://marklogic.com/appservices/infostudio"
at "/MarkLogic/appservices/infostudio/info.xqy";
import module namespace infodev = "http://marklogic.com/appservices/infostudio/dev"
at "/MarkLogic/appservices/infostudio/infodev.xqy";
let $annotation := <info:annotation>Load took longer than 10 minutes</info:annotation>
for $ticket in info:tickets()
let $time := fn:data(info:ticket($ticket)//info:time-consumed)
return
if (fn:minutes-from-duration(xs:duration($time)) gt 10)
then infodev:log-progress($ticket, $annotation)
else ()
(: Change progress annotation on any ticket with a time-consumed value
over 10 minutes. :)