acceptance-summaries.xq

for $x in collection('articles')//*:article/*:sub-article[1]//*:p
let $no := substring-before(substring-after($x/base-uri(),'/articles/elife-'),'-v')
return
if (matches($x,'^[Aa]cceptance summary[:]?$')) then 
  if (matches($x/following-sibling::*:p[2],'^Decision letter after peer review[:]?$')) 
      then (
            ($no||' - '||('https://elifesciences.org/articles/'||$no||'#'||$x/ancestor::*:sub-article/@id)),
            '
',
            $x/following-sibling::*:p[1]/data(),
            '
',
            '  ----  ',
            '
'
           )
  else if (matches($x/following-sibling::*:p[3],'^Decision letter after peer review[:]?$'))
      then (
            ($no||' - '||('https://elifesciences.org/articles/'||$no||'#'||$x/ancestor::*:sub-article/@id)),
            '
',
            $x/following-sibling::*:p[1]/data(),
            $x/following-sibling::*:p[2]/data(),
            '
',
            '  ----  ',
            '
'
           )
  else if (matches($x/following-sibling::*:p[4],'^Decision letter after peer review[:]?$'))
     then (
            ($no||' - '||('https://elifesciences.org/articles/'||$no||'#'||$x/ancestor::*:sub-article/@id)),
            '
',
            $x/following-sibling::*:p[1]/data(),
            $x/following-sibling::*:p[2]/data(),
            $x/following-sibling::*:p[3]/data(),
            '
',
            '  ----  ',
            '
'
           )
    else if (matches($x/following-sibling::*:p[5],'^Decision letter after peer review[:]?$'))
     then (
            ($no||' - '||('https://elifesciences.org/articles/'||$no||'#'||$x/ancestor::*:sub-article/@id)),
            '
',
            $x/following-sibling::*:p[1]/data(),
            $x/following-sibling::*:p[2]/data(),
            $x/following-sibling::*:p[3]/data(),
            $x/following-sibling::*:p[4]/data(),
            '
',
            '  ----  ',
            '
'
           )

    else if (matches($x/following-sibling::*:p[6],'^Decision letter after peer review[:]?$'))
     then (
            ($no||' - '||('https://elifesciences.org/articles/'||$no||'#'||$x/ancestor::*:sub-article/@id)),
            '
',
            $x/following-sibling::*:p[1]/data(),
            $x/following-sibling::*:p[2]/data(),
            $x/following-sibling::*:p[3]/data(),
            $x/following-sibling::*:p[4]/data(),
            $x/following-sibling::*:p[5]/data(),
            '
',
            '  ----  ',
            '
'
           )
     else if (matches($x/following-sibling::*:p[7],'^Decision letter after peer review[:]?$'))
     then (
            ($no||' - '||('https://elifesciences.org/articles/'||$no||'#'||$x/ancestor::*:sub-article/@id)),
            '
',
            $x/following-sibling::*:p[1]/data(),
            $x/following-sibling::*:p[2]/data(),
            $x/following-sibling::*:p[3]/data(),
            $x/following-sibling::*:p[4]/data(),
            $x/following-sibling::*:p[5]/data(),
            $x/following-sibling::*:p[6]/data(),
            '
',
            '  ----  ',
            '
'
           )
   else if (count($x/following-sibling::*:p)lt 3) 
       then (
            ($no||' - '||('https://elifesciences.org/articles/'||$no||'#'||$x/ancestor::*:sub-article/@id)),
            '
',
            for $y in $x/following-sibling::*:p
            return $y/data(),
            '
',
            '  ----  ',
            '
'
           )  
   else (($no||' - '||'ERROR'))
else ()