Changed a form display

Changed a form display

xquery version "3.0";
declare namespace tei = "http://www.tei-c.org/ns/1.0";
declare namespace output = "http://www.w3.org/2010/xslt-xquery-serialization";
declare option output:method "xhtml";
declare option output:indent "yes";
declare option output:encoding "UTF-8";
let $authors := doc('/db/VTLGP/ancillary/corpus-autores.xml')//tei:person[concat('#', @xml:id) = collection('/db/VTLGP/edition')//tei:name[@role eq 'author']/@ref]
let $periods := $authors/tei:floruit/@period
let $copyists := collection('/db/VTLGP/edition')//tei:div//tei:title//tei:rdg/substring(@hand, 2)
let $authorsImpar := doc('/db/VTLGP/ancillary/corpus-autores.xml')//tei:person[concat('#', @xml:id) = collection('/db/VTLGP/edition')//tei:name[@role eq 'author']/@ref][tei:persName/matches(., '^[A-J]')]
let $authorsPar := doc('/db/VTLGP/ancillary/corpus-autores.xml')//tei:person[concat('#', @xml:id) = collection('/db/VTLGP/edition')//tei:name[@role eq 'author']/@ref][tei:persName/matches(., '^[L-Z]')]
return

    (<form class="authors"
        method="GET"
        action="edition.php">

        {
            for $i in 1 to (count($authorsImpar))
            let $author := $authorsImpar[$i]
            let $songs := collection('/db/VTLGP/edition')//tei:name[@role eq 'author'][@ref = $author/concat('#', @xml:id)]/ancestor::tei:div
            order by $author
            return
                <fieldset>
                    <legend id="{$author/@xml:id/string()}">{$author/tei:persName/string()}</legend>

                        <input
                            type="radio"
                            name="author[{$i}]"
                            class="all"
                            id="none{$i}"
                            checked="checked"/>
                        None
                            NenhumaNingunha
                        <input
                            type="radio"
                            name="author[{$i}]"
                            value="{$author/@xml:id}"
                            id="author{$i}"
                            class="all"/>
                        Todas
                            All ({count($songs)})
                        <input
                            type="radio"
                            name="author[{$i}]"
                            class="show"
                            id="select{$i}"/>
                        Seleccionar
                            Select

                            {
                                for $song in $songs
                                order by $song/number(substring-before(substring(@corresp, 3), 'B'))
                                return

<input
                                            type="checkbox"
                                            id="{$song/substring(@corresp, 2)}"
                                            name="song[]"
                                            value="{$song/substring(@corresp, 2)}"/>
                                        {string-join($song//tei:title//tei:idno, ', ')}

                            }

                </fieldset>
        }

         {
            for $x in 1 to (count($authorsPar))
            let $author := $authorsPar[$x]
            let $i := $x + 14
            let $songs := collection('/db/VTLGP/edition')//tei:name[@role eq 'author'][@ref = $author/concat('#', @xml:id)]/ancestor::tei:div
            order by $author
            return
                <fieldset>
                    <legend id="{$author/@xml:id/string()}">{$author/tei:persName/string()}</legend>

                        <input
                            type="radio"
                            name="author[{$i}]"
                            class="all"
                            id="none{$i}"
                            checked="checked"/>
                        None
                            NenhumaNingunha
                        <input
                            type="radio"
                            name="author[{$i}]"
                            value="{$author/@xml:id}"
                            id="author{$i}"
                            class="all"/>
                        Todas
                            All ({count($songs)})
                        <input
                            type="radio"
                            name="author[{$i}]"
                            class="show"
                            id="select{$i}"/>
                        Seleccionar
                            Select

                            {
                                for $song in $songs
                                order by $song/number(substring-before(substring(@corresp, 3), 'B'))
                                return

<input
                                            type="checkbox"
                                            id="{$song/substring(@corresp, 2)}"
                                            name="song[]"
                                            value="{$song/substring(@corresp, 2)}"/>
                                        {string-join($song//tei:title//tei:idno, ', ')}

                            }

                </fieldset>
        }

        <button
            class="submit"
            type="submit">PesquisaSearch</button>
    </form>,
   (:
Por períodoBy period
,
    <form
        method="GET"
        action="edition.php">
        {
            for $period in distinct-values($periods)
            let $songs := collection('/db/VTLGP/edition')//tei:name[@role eq 'author'][@ref = $authors[tei:floruit/@period eq $period]/concat('#', @xml:id)]/ancestor::tei:div
            order by number($period)
            return
                <fieldset>
                    <legend>Período {$period}Period {$period}</legend>

                        <input
                            type="radio"
                            name="period[{$period}]"
                            class="all"
                            id="none{$period}"
                            checked="checked"/>
                        None
                            Nenhuma
                        <input
                            type="radio"
                            name="period[{$period}]"
                            value="{$period}"
                            id="{$period}"
                            class="all"/>
                        Todas
                            All ({count($songs)})
                        <input
                            type="radio"
                            name="period[{$period}]"
                            id="select{$period}"
                            class="show"/>
                        Seleccionar
                            Select

                            {
                                for $song in $songs
                                order by $song/number(substring-before(substring(@corresp, 3), 'B'))
                                return

<input
                                            type="checkbox"
                                            id="{$song/substring(@corresp, 2)}"
                                            name="song[]"
                                            value="{$song/substring(@corresp, 2)}"/>
                                        {string-join($song//tei:title//tei:idno, ', ')}

                            }

                </fieldset>
        }
        <button
            class="submit"
            type="submit">PesquisaSearch</button>
    </form>,:)

Por copistaBy scribe
,
    <form
        method="GET"
        action="edition.php">
        {
            for $hand in distinct-values($copyists)
            let $songs := collection('/db/VTLGP/edition')//tei:div[@type eq 'poem'][.//tei:title//tei:rdg/substring(@hand, 2) = $hand]
            order by $hand
            return
                <fieldset>
                    <legend>Copista {$hand} (manuscrito{
                                (if ($hand = ('b', 'c', 'a', 'd', 'e')) then
                                    ' B'
                                else
                                    (if ($hand = 'v') then
                                        ' V'
                                    else
                                        ' A'))
                            })
                        Scribe {$hand} (witness{
                                (if ($hand = ('b', 'c', 'a', 'd', 'e')) then
                                    ' B'
                                else
                                    (if ($hand = 'v') then
                                        ' V'
                                    else
                                        ' A'))
                            })</legend>

                        <input
                            type="radio"
                            name="scribe[{$hand}]"
                            class="all"
                            id="none{$hand}"
                            checked="checked"/>
                        None
                            NenhumaNingunha
                        <input
                            type="radio"
                            name="scribe[{$hand}]"
                            value="{$hand}"
                            id="{$hand}"
                            class="all"/>
                        Todas
                            All ({count($songs)})
                        <input
                            type="radio"
                            name="scribe[{$hand}]"
                            class="show"
                            id="select{$hand}"/>
                        Seleccionar
                            Select

                            {
                                for $song in $songs
                                order by $song/number(substring-before(substring(@corresp, 3), 'B'))
                                return

<input
                                            type="checkbox"
                                            id="{$song/substring(@corresp, 2)}"
                                            name="song[]"
                                            value="{$song/substring(@corresp, 2)}"/>
                                        {string-join($song//tei:title//tei:idno, ', ')}

                            }

                </fieldset>
        }
        <button
            class="submit"
            type="submit">PesquisaSearch</button>
    </form>
    )

xquery version "3.0";
declare namespace tei = "http://www.tei-c.org/ns/1.0";
declare namespace output = "http://www.w3.org/2010/xslt-xquery-serialization";
declare option output:method "xhtml";
declare option output:indent "yes";
declare option output:encoding "UTF-8";
let $authors := doc('/db/VTLGP/ancillary/corpus-autores.xml')//tei:person[concat('#', @xml:id) = collection('/db/VTLGP/edition')//tei:name[@role eq 'author']/@ref]
let $periods := $authors/tei:floruit/@period
let $copyists := collection('/db/VTLGP/edition')//tei:div//tei:title//tei:rdg/substring(@hand, 2)
return

    (<form
        method="GET"
        action="edition.php">
        {
            for $i in 1 to (count($authors))
            let $author := $authors[$i]
            let $songs := collection('/db/VTLGP/edition')//tei:name[@role eq 'author'][@ref = $author/concat('#', @xml:id)]/ancestor::tei:div
            order by $author
            return
                <fieldset>
                    <legend
                        id="{$author/@xml:id/string()}">{$author/tei:persName/string()}</legend>

                        <input
                            type="radio"
                            name="author[{$i}]"
                            class="all"
                            id="none{$i}"
                            checked="checked"/>
                        None
                            NenhumaNingunha
                        <input
                            type="radio"
                            name="author[{$i}]"
                            value="{$author/@xml:id}"
                            id="author{$i}"
                            class="all"/>
                        Todas
                            All ({count($songs)})
                        <input
                            type="radio"
                            name="author[{$i}]"
                            class="show"
                            id="select{$i}"/>
                        Seleccionar
                            Select

                            {
                                for $song in $songs
                                order by $song/number(substring-before(substring(@corresp, 3), 'B'))
                                return

<input
                                            type="checkbox"
                                            id="{$song/substring(@corresp, 2)}"
                                            name="song[]"
                                            value="{$song/substring(@corresp, 2)}"/>
                                        {string-join($song//tei:title//tei:idno, ', ')}

                            }

                </fieldset>
        }
        <button
            class="submit"
            type="submit">PesquisaSearch</button>
    </form>,
    (:
Por períodoBy period
,
    <form
        method="GET"
        action="edition.php">
        {
            for $period in distinct-values($periods)
            let $songs := collection('/db/VTLGP/edition')//tei:name[@role eq 'author'][@ref = $authors[tei:floruit/@period eq $period]/concat('#', @xml:id)]/ancestor::tei:div
            order by number($period)
            return
                <fieldset>
                    <legend>Período {$period}Period {$period}</legend>

                        <input
                            type="radio"
                            name="period[{$period}]"
                            class="all"
                            id="none{$period}"
                            checked="checked"/>
                        None
                            Nenhuma
                        <input
                            type="radio"
                            name="period[{$period}]"
                            value="{$period}"
                            id="{$period}"
                            class="all"/>
                        Todas
                            All ({count($songs)})
                        <input
                            type="radio"
                            name="period[{$period}]"
                            id="select{$period}"
                            class="show"/>
                        Seleccionar
                            Select

                            {
                                for $song in $songs
                                order by $song/number(substring-before(substring(@corresp, 3), 'B'))
                                return

<input
                                            type="checkbox"
                                            id="{$song/substring(@corresp, 2)}"
                                            name="song[]"
                                            value="{$song/substring(@corresp, 2)}"/>
                                        {string-join($song//tei:title//tei:idno, ', ')}

                            }

                </fieldset>
        }
        <button
            class="submit"
            type="submit">PesquisaSearch</button>
    </form>,:)

Por copistaBy scribe
,
    <form
        method="GET"
        action="edition.php">
        {
            for $hand in distinct-values($copyists)
            let $songs := collection('/db/VTLGP/edition')//tei:div[@type eq 'poem'][.//tei:title//tei:rdg/substring(@hand, 2) = $hand]
            order by $hand
            return
                <fieldset>
                    <legend>Copista {$hand} (manuscrito{
                                (if ($hand = ('b', 'c', 'a', 'd', 'e')) then
                                    ' B'
                                else
                                    (if ($hand = 'v') then
                                        ' V'
                                    else
                                        ' A'))
                            })
                        Scribe {$hand} (witness{
                                (if ($hand = ('b', 'c', 'a', 'd', 'e')) then
                                    ' B'
                                else
                                    (if ($hand = 'v') then
                                        ' V'
                                    else
                                        ' A'))
                            })</legend>

                        <input
                            type="radio"
                            name="scribe[{$hand}]"
                            class="all"
                            id="none{$hand}"
                            checked="checked"/>
                        None
                            NenhumaNingunha
                        <input
                            type="radio"
                            name="scribe[{$hand}]"
                            value="{$hand}"
                            id="{$hand}"
                            class="all"/>
                        Todas
                            All ({count($songs)})
                        <input
                            type="radio"
                            name="scribe[{$hand}]"
                            class="show"
                            id="select{$hand}"/>
                        Seleccionar
                            Select

                            {
                                for $song in $songs
                                order by $song/number(substring-before(substring(@corresp, 3), 'B'))
                                return

<input
                                            type="checkbox"
                                            id="{$song/substring(@corresp, 2)}"
                                            name="song[]"
                                            value="{$song/substring(@corresp, 2)}"/>
                                        {string-join($song//tei:title//tei:idno, ', ')}

                            }

                </fieldset>
        }
        <button
            class="submit"
            type="submit">PesquisaSearch</button>
    </form>
    )


*	Now works behind a proxy :-)

*	Now works behind a proxy :-)

git-svn-id: b46a086423077f2361295c5ec15b0f9cbe8e278c@1840 b091869f-ef14-0410-ae3d-fae7310851ef

(:
	guiManagement.xqm
:)
xquery version "1.0" encoding "UTF-8";

module namespace gui="http://www.cnio.es/scombio/xcesc/1.0/xquery/guiManagement";

declare namespace xhtml="http://www.w3.org/1999/xhtml";
declare namespace xcesc="http://www.cnio.es/scombio/xcesc/1.0";

import module namespace request="http://exist-db.org/xquery/request";
import module namespace util="http://exist-db.org/xquery/util";

import module namespace core = 'http://www.cnio.es/scombio/xcesc/1.0/xquery/core' at 'xmldb:exist:///db/XCESC-logic/core.xqm';
import module namespace mgmt="http://www.cnio.es/scombio/xcesc/1.0/xquery/systemManagement" at "xmldb:exist:///db/XCESC-logic/systemManagement.xqm";

(: Don't forget the starting slash! :)
declare variable $gui:guiDoc as element(gui:guiManagement) := collection($core:configColURI)//gui:guiManagement[1];
declare variable $gui:AtomicRoot as xs:string := concat('/',$gui:guiDoc/@AtomicWiki-logic/string());
declare variable $gui:AtomicVirtualRoot as xs:string := concat('/',$gui:guiDoc/@AtomicWiki-VirtualRoot/string());
declare variable $gui:realm as xs:string := concat('/',$gui:guiDoc/@realm/string());
declare variable $gui:template-document as document-node() := collection(xmldb:encode($gui:guiDoc/@style-col/string()))/id($gui:guiDoc/@template-id/string())/root();
declare variable $gui:template-document-uri as xs:anyURI := document-uri($gui:template-document);
declare variable $gui:template-content as element(xhtml:html) := $gui:template-document/xhtml:html;

declare function gui:get-template($template-id as xs:string)
	as document-node()
{
	collection(xmldb:encode($gui:guiDoc/@style-col/string()))/id($template-id)/root()
};

declare function gui:get-template-uri($template-id as xs:string)
	as xs:anyURI
{
	document-uri(gui:get-template($template-id))
};

declare function gui:integrate-contents($title as xs:string, $content as node()*)
	as document-node(element(xhtml:html))
{
	document {
		$gui:template-document/processing-instruction()
		,

				<title>{$title}</title>
				{ $gui:template-content/head/node() }

			{$gui:template-content/body/@*}
			{
				for $child in $gui:template-content/body/node()
				return
					if($child/@id eq 'contents') then

{$content}

					else if($child/@id eq 'title') then

{$title}

					else
						$child
			}

	}
};

declare function gui:extract-path($uri as xs:string) as xs:string {
	let $cp := request:get-context-path()
	let $path := substring-after($uri, $cp)
	return if ($cp = '' and starts-with($uri,$gui:AtomicVirtualRoot)) then
		substring-after($path, $gui:AtomicVirtualRoot)
	else
		$path
};

(: Getting the base path of the Atomic Wiki installation :)
declare function gui:get-gui-path() as xs:string {
	(:
	let $retval := concat(request:get-context-path(),$gui:AtomicVirtualRoot)
	let $alert := util:log-system-err(("GUI PATH IS ",$retval))
	return $retval
	:)
	concat(request:get-context-path(),$gui:AtomicVirtualRoot)
};

(: Getting the relative base path of the Atomic Wiki installation :)
declare function gui:get-rel-gui-path() as xs:string {
	(:
	let $retval := concat(request:get-context-path(),$gui:AtomicVirtualRoot)
	let $alert := util:log-system-err(("GUI PATH IS ",$retval))
	return $retval
	:)
	substring(gui:get-gui-path(),1)
};

(: Getting the relative base path of the Atomic Wiki installation :)
declare function gui:get-public-base-URI() as xs:string {
	if(request:exists()) then (
		let $forwarded-host-port := tokenize(request:get-header('X-Forwarded-Host'),', *')[last()]
		let $host := if(exists($forwarded-host-port)) then tokenize($forwarded-host-port,':')[1] else request:get-server-name()
		let $port0 := if(exists($forwarded-host-port)) then tokenize($forwarded-host-port,':')[last()] else string(request:get-server-port())
		let $port := if(empty($port0)) then $mgmt:publicServerPort else $port0
		return concat(if($port eq '443') then 'https' else 'http','://',$host,if(not($port = ('80','443'))) then concat(':',$port) else '',$mgmt:publicBasePath)
	) else
		$mgmt:publicBaseURI
};

(:
	guiManagement.xqm
:)
xquery version "1.0" encoding "UTF-8";

module namespace gui="http://www.cnio.es/scombio/xcesc/1.0/xquery/guiManagement";

declare namespace xhtml="http://www.w3.org/1999/xhtml";
declare namespace xcesc="http://www.cnio.es/scombio/xcesc/1.0";

import module namespace request="http://exist-db.org/xquery/request";
import module namespace util="http://exist-db.org/xquery/util";

import module namespace core = 'http://www.cnio.es/scombio/xcesc/1.0/xquery/core' at 'xmldb:exist:///db/XCESC-logic/core.xqm';
import module namespace mgmt="http://www.cnio.es/scombio/xcesc/1.0/xquery/systemManagement" at "xmldb:exist:///db/XCESC-logic/systemManagement.xqm";

(: Don't forget the starting slash! :)
declare variable $gui:guiDoc as element(gui:guiManagement) := collection($core:configColURI)//gui:guiManagement[1];
declare variable $gui:AtomicRoot as xs:string := concat('/',$gui:guiDoc/@AtomicWiki-logic/string());
declare variable $gui:AtomicVirtualRoot as xs:string := concat('/',$gui:guiDoc/@AtomicWiki-VirtualRoot/string());
declare variable $gui:realm as xs:string := concat('/',$gui:guiDoc/@realm/string());
declare variable $gui:template-document as document-node() := collection(xmldb:encode($gui:guiDoc/@style-col/string()))/id($gui:guiDoc/@template-id/string())/root();
declare variable $gui:template-document-uri as xs:anyURI := document-uri($gui:template-document);
declare variable $gui:template-content as element(xhtml:html) := $gui:template-document/xhtml:html;

declare function gui:get-template($template-id as xs:string)
	as document-node()
{
	collection(xmldb:encode($gui:guiDoc/@style-col/string()))/id($template-id)/root()
};

declare function gui:get-template-uri($template-id as xs:string)
	as xs:anyURI
{
	document-uri(gui:get-template($template-id))
};

declare function gui:integrate-contents($title as xs:string, $content as node()*)
	as document-node(element(xhtml:html))
{
	document {
		$gui:template-document/processing-instruction()
		,

				<title>{$title}</title>
				{ $gui:template-content/head/node() }

			{$gui:template-content/body/@*}
			{
				for $child in $gui:template-content/body/node()
				return
					if($child/@id eq 'contents') then

{$content}

					else if($child/@id eq 'title') then

{$title}

					else
						$child
			}

	}
};

declare function gui:extract-path($uri as xs:string) as xs:string {
	let $cp := request:get-context-path()
	let $path := substring-after($uri, $cp)
	return if ($cp = '' and starts-with($uri,$gui:AtomicVirtualRoot)) then
		substring-after($path, $gui:AtomicVirtualRoot)
	else
		$path
};

(: Getting the base path of the Atomic Wiki installation :)
declare function gui:get-gui-path() as xs:string {
	(:
	let $retval := concat(request:get-context-path(),$gui:AtomicVirtualRoot)
	let $alert := util:log-system-err(("GUI PATH IS ",$retval))
	return $retval
	:)
	concat(request:get-context-path(),$gui:AtomicVirtualRoot)
};

(: Getting the relative base path of the Atomic Wiki installation :)
declare function gui:get-rel-gui-path() as xs:string {
	(:
	let $retval := concat(request:get-context-path(),$gui:AtomicVirtualRoot)
	let $alert := util:log-system-err(("GUI PATH IS ",$retval))
	return $retval
	:)
	substring(gui:get-gui-path(),1)
};

(: Getting the relative base path of the Atomic Wiki installation :)
declare function gui:get-public-base-URI() as xs:string {
	$mgmt:publicBaseURI
};


added required comments to the xquts submission script

(: Schema for results :)
import schema default element namespace "http://www.w3.org/2005/02/query-test-XQTSResult" at "w3c_update_reportingresults/XQTSResult.xsd";

(: Test.xml file from ctest :)
declare variable $ctests as document-node() external;

if(fn:empty($ctests)) then
  fn:error()
else
  validate {
    <test-suite-result>
       <implementation name="Zorba"
         version='0.9.9 (svn rev. 7489)'
         anonymous-result-column="false">

         <organization
            name='FLWOR Foundation'
            website="http://zorba-xquery.com/"
            anonymous="false" />

         <submittor
            name="Zorba Team"
            email="contact@zorba-xquery.com" />

         <description>

Zorba is a general purpose XQuery processor implementing in C++
            the W3C family of specifications. It is not an XML database.
            The query processor has been designed to be embeddable in a
            variety of environments such as other programming languages
            extended with XML processing capabilities, browsers,
            database servers, XML message dispatchers, or smartphones.
            Its architecture employes a modular design, which allows customizing
            the Zorba query processor to the environment’s needs.
            In particular the architecture of the query processor allows a
            pluggable XML store (e.g. main memory, DOM stores, persistent
            disk-based large stores, S3 stores). Zorba runs on most platforms
            and is available under the Apache license v2. Currently, Zorba
            implements the following W3C specifications: XQuery 1.0, XQuery Update
            Facility 1.0, XQuery Scripting Extension 1.0, and XSLT 2.0 and XQuery 1.0
            Serialization.

         </description>

         <implementation-defined-items>
           <implementation-defined-item
              name="The revalidation modes that are supported by this implementation."
              value="lax, skip, strict" />

          <implementation-defined-item
             name="The default revalidation mode for this implementation."
             value="lax" />

         </implementation-defined-items>

         <features>
            <feature name='Minimum Conformance' supported='true' />
            <feature name="Full Axis Feature" supported='true' />
         </features>

         <context-properties>
           <context-property
             name="Revalidation mode"
             value="lax"
             context-type="static"/>
         </context-properties>

       </implementation>

       <syntax>XQuery</syntax>

       <test-run dateRun="2009-11-16">
          <test-suite version="1.0.0"/>
          <transformation>
Standard
</transformation>
          <comparison>
Standard
</comparison>
          <otherComments>
None
</otherComments>
       </test-run>

       {
         for $test in $ctests/*:Site/*:Testing/*:Test
         let $testname := fn:tokenize(fn:data($test/*:Name), "/")[last()]
         return
           <test-case
             name="{$testname}"
             result="{fn:substring(fn:data($test/@Status), 0, 5)}"
           />
       }
    </test-suite-result>
  }

(: Schema for results :)
import schema default element namespace "http://www.w3.org/2005/02/query-test-XQTSResult" at "w3c_update_reportingresults/XQTSResult.xsd";

(: Test.xml file from ctest :)
declare variable $ctests as document-node() external;

if(fn:empty($ctests)) then
  fn:error()
else
  validate {
    <test-suite-result>
       <implementation name="Zorba"
         version='1.0 beta'
         anonymous-result-column="false">

         <organization
            name='FLWOR Foundation'
            website="http://zorba-xquery.com"
            anonymous="false" />

         <submittor
            name="Zorba team"
            email="contact@zorba-xquery.com" />

         <description>

An open source XQuery processor that is fast and spec compliant.
               Implements XQuery 1.0, XQuery Update, XQueryX, XQuery Script.

         </description>

         <implementation-defined-items>
         </implementation-defined-items>

         <features>
            <feature name='Minimum Conformance' supported='true' />
            <feature name="Update Facility Static Typing Feature" supported='true' />
         </features>

         <context-properties>
         </context-properties>

       </implementation>

       <syntax>XQuery</syntax>

       <test-run dateRun="2009-11-16">
          <test-suite version="1.0.0"/>
          <transformation>
No transformations.
</transformation>
          <comparison>
Text or xml comparison.
</comparison>
       </test-run>

       {
         for $test in $ctests/*:Site/*:Testing/*:Test
         let $testname := fn:tokenize(fn:data($test/*:Name), "/")[last()]
         return
           <test-case
             name="{$testname}"
             result="{fn:substring(fn:data($test/@Status), 0, 5)}"
           />
       }
    </test-suite-result>
  }