print dates with certainty specifications

xquery/date.xqm

@@ -222,7 +222,14 @@ declare function date:printDate($date as element()?, $lang as xs:string, $get-la
             else if(normalize-space($date) castable as xs:date) then date:format-date(xs:date(normalize-space($date)),$picture-string, $lang)
             else $get-language-string('dateUnknown', ())
         return 
-            if(exists($myDate)) then string($myDate)
+            if(exists($myDate)) then
+                if(exists($date/@cert)) then
+                    switch($date/@cert)
+                    case 'high' return $get-language-string('prob', (string($myDate), $lang))
+                    case 'medium' return $get-language-string('circa', (string($myDate), $lang))
+                    case 'unknown' return $get-language-string('certUnknown', (string($myDate), $lang))
+                    default return $get-language-string('prob', (string($myDate), $lang))
+                else string($myDate)
             else error($date:DATE_FORMAT_ERROR, string-join(('date:printDate()', 'wrong date format', serialize($date, <output:serialization-parameters><output:method>text</output:method></output:serialization-parameters>)), ' ;; '))
     )
     else ()