xquery for cfregisters comedie

xquery version "3.1";

let $csv :=
  element csv {
  for $play in fn:collection("cfregisters")//play
  where $play/date
  let $date := fn:tokenize($play/date/text(), "-")
  let $year := $date[1]
  let $month := $date[2]
  let $day := $date[3]
  order by $year, $month, $day
  return

    <record>
      <Year>{$year}</Year>
      <Month>{$month}</Month>
      <Day>{$day}</Day>
      <Time/>
      <End_Year/>
      <End_Month/>
      <End_Day/>
      <End_Time/>
      <Display_Date>{$date}</Display_Date> 
      <Headline>{$play/title/text()}</Headline>
      <Text>{"by " || $play/author/text()}  </Text>
      <Media/>
      <Media_Credit/>
      <Media_Caption/>
      <Media_Thumbnail/>
      <Type/>
      <Group/>
      <Background/>
    </record>
  }
return csv:seria