src, index, cover "ok"-like cases

DHBern/presentation_parzival#18

TODO: run, commit and push data

src/util/build-index.xsl

@@ -68,7 +68,7 @@
                                 <string key="id">{@xml:id}</string>
                                 <string key="sigla">{$sigil}</string>
                                 <string key="verse">{@xml:id => tokenize('\.') => tail()}</string>
-                                <string key="d">{@xml:id => replace('^(?:fr\d{1,2})?._*(\d{1,3})\..*$','$1')}</string>
+                                <string key="d">{@xml:id => replace('^(?:fr\d{1,2})?.k?_*(\d{1,3})\..*$','$1')}</string>
                                 <string key="content">
                                     <xsl:apply-templates mode="janus"/>
                                 </string>