get notebook title by GET param "nb"

modules/fontane/misc.xqm

@@ -16,7 +16,12 @@ declare
     %test:arg("baseUri","") %test:assertEquals("")
 function f-misc:get-title-by-baseUri($baseUri as xs:string) as xs:string? {
     if($baseUri = "") then () else
-    $f-misc:metadata-collection//tgmd:object[tgmd:generic/tgmd:generated/tgmd:textgridUri[starts-with(., $baseUri)]]//tgmd:title/string()
+    $f-misc:metadata-collection//tgmd:textgridUri[starts-with(string(.), $baseUri)]/ancestor::tgmd:object//tgmd:title/string()
+};
+
+declare function f-misc:nb-param-to-title($node as node(), $model as map(*), $nb)
+as xs:string? {
+    f-misc:get-title-by-baseUri( "textgrid:" || $nb )
 };
 
 declare function f-misc:cite($node as node(), $model as map(*)) {