some normalization of whitespace

Edirom · Apr 17, 2014 · cf47363 · cf47363
1 parent d0a364b
commit cf47363
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/webapp/modules/bibl.xqm b/webapp/modules/bibl.xqm
@@ -98,7 +98,7 @@ declare function bibl:printBookCitation($biblStruct as element(tei:biblStruct),
  :)
 declare function bibl:printArticleCitation($biblStruct as element(tei:biblStruct), $wrapperElement as xs:string, $lang as xs:string) as element() {
     let $authors := bibl:printCitationAuthors($biblStruct//tei:author, $lang) 
-    let $articleTitle := <span class="title">{string-join($biblStruct/tei:analytic/tei:title, '. ')}</span>
+    let $articleTitle := <span class="title">{string-join($biblStruct/tei:analytic/tei:title/normalize-space(), '. ')}</span>
     let $journalCitation := bibl:printJournalCitation($biblStruct/tei:monogr, 'wrapper', $lang)
     return 
         element {$wrapperElement} {