Merge branch 'master' of gitlab.utc.fr:crozatst/hdoc

hdoc_to_basex/basex/xquery/searchDocByAuthor.hq

 (: This script will return documents by searching its author :)
 (: We can assign a Regular Expression to the variable $author :)
-(: For example, $author := '^Baptiste Montangé$', to search for an exact name:)
+(: For example, $name := '^Baptiste Montangé$', to search for an exact name:)
 (: For example, $name := 'Montangé', to search for documents whose author named Coutant:)
-(: Remark : Accents in the authors' names have been taken care of :)
+(: Remark : case and accents in author's name have been taken care of :)
 
 declare function local:searchDocByAuthor($name as xs:string, $docs as node()*) as node()*
 {
-  let $name_noAcc := translate($name, 'áàâäéèêëíìîïóòôöúùûü','aaaaeeeeiiiioooouuuu')
+  let $name_noAcc := translate($name, 'áàâäéèêëíìîïóòôöúùûüABCDEFGHIJKLMNOPQRSTUVWXYZ','aaaaeeeeiiiioooouuuuabcdefghijklmnopqrstuvwxyz')
   for $doc in $docs
   return
     for $author in $doc/authors/author
     let $titre := $doc/titre
-    let $author_noAcc := translate($author, 'áàâäéèêëíìîïóòôöúùûü','aaaaeeeeiiiioooouuuu')
+    let $author_noAcc := translate($author, 'áàâäéèêëíìîïóòôöúùûüABCDEFGHIJKLMNOPQRSTUVWXYZ','aaaaeeeeiiiioooouuuuabcdefghijklmnopqrstuvwxyz')
     where matches($author_noAcc, $name_noAcc)
     group by $titre (: Avoid duplications of documents by their titre:)
     return $doc

hdoc_to_basex/basex/xquery/searchSectionByTitle.hq

+(: This script will return a section by searching keyword in its title :)
+(: We can assign a Regular Expression to the variable $keyword :)
+(: For example, $keyword := '^Objectifs$', to search for sections whose titles are exactly "Objectifs":)
+(: For example, $keyword := 'Syntax', to search for sections whose titles containing "Syntax" :)
+(: Remark : case and accents in the keyword have been taken care of  :)
+
+declare function local:searchSectionByTitle($keyword as xs:string, $docs as node()*) as node()*
+{
+  let $keyword_noAcc := translate($keyword, 'áàâäéèêëíìîïóòôöúùûüABCDEFGHIJKLMNOPQRSTUVWXYZ','aaaaeeeeiiiioooouuuuabcdefghijklmnopqrstuvwxyz')
+  for $doc in $docs
+  return
+    for $section in $doc/sections/section
+    let $title_noAcc := translate($section/titresection, 'áàâäéèêëíìîïóòôöúùûüABCDEFGHIJKLMNOPQRSTUVWXYZ','aaaaeeeeiiiioooouuuuabcdefghijklmnopqrstuvwxyz')
+    where matches($title_noAcc, $keyword_noAcc)
+    return $section
+};
+
+(: Example :)
+local:searchSectionByTitle('contenu', //document)
\ No newline at end of file