xquery version "1.0";

declare namespace session="http://exist-db.org/xquery/session";
declare namespace request="http://exist-db.org/xquery/request";
declare namespace util="http://exist-db.org/xquery/util";
declare namespace i18n="http://apache.org/cocoon/i18n/2.1";

declare option exist:serialize "expand-xincludes=no";

import module namespace ristenutil="http://www.risten.no/shared/util" at "../xquery/ristenutil.xqm";
import module namespace buildquery="http://www.risten.no/shared/xqueryfactory" at "../xquery/xqueryfactory.xqm";


(: Create filter expression from query term :)
declare function local:filter-expr($term  as xs:string) as xs:string
{
    let $class    := request:get-parameter("class", "")

    let $c := if ($class = 'all') then ""
              else if (contains($class, '-') ) then
                   concat(".//@botm &= '", substring-after($class, '-'), "'" )
                   else if ( string-length($class) = 1) then
                          concat(".//@top &= '", $class, "'" )
                        else
                          concat(".//@mid &= '", $class, "'" )

    let $f := ".//@xpointer",  (: Search the @xpointer for the search term -
                              it is in the ID of the referenced entry :)
        $t := concat("'", $term, "'")
    return
        if ($term = '*' or $term = '' ) then
          $c
        else if ( $class = 'all') then
            concat($f, " &= ", $t)
          else
            concat($f, " &= ", $t, " and ", $c)
};

(: Assemble the query string :)
declare function local:build-query($term as xs:string, $doc as xs:string)
							    as xs:string
{
    let $expr := local:filter-expr($term),
		$t    := session:set-attribute("query", $expr)
    return
        concat("for $r in document('", $doc, "')//entry[",
            $expr, "]  return $r")
};

(: Present an overview of query results :)
declare function local:displayHitlist($hits as node()+)
as element()
{
    let $count   := count($hits),
        $max     := request:get-parameter("howmany", "10") cast as xs:int,
        $start   := request:get-parameter("start", "1") cast as xs:int,
        $end     := if ($start + $max - 1 < $count) then $start + $max - 1 else $count,
        $reqlang := request:get-parameter("showlang", ""),
        $t       := if ( $reqlang != '' ) then
                        session:set-attribute("showlang", $reqlang)
                    else (),
        $lang    := if ( $reqlang != '' ) then $reqlang
                    else session:get-attribute("showlang"),
        $collID  := session:get-attribute("collection")
    return
        <query-results hits="{$count}" start="{$start}" 
            next="{$end + 1}" max="{$max}" showlang="{$lang}" collID="{$collID}">
            {
                for $p in $start to $end
                let $current := item-at($hits, $p)
                return $current
            }
        </query-results>
};

(: Main function - retrieves some request and session attributes,
   forks further processing to other defined functions depending
   on the retrieved values :)
declare function local:main() as element()+
{
	let $term     := request:get-parameter("term", ""),
        $class    := request:get-parameter("class", ""),
        $previous := session:get-attribute("results"),
		$queryOld := session:get-attribute("query"),
		$session  := session:get-attribute-names(),
		$request  := request:get-parameter-names(),
		$collID   := if ( request:get-parameter("collection", "") ) then
		               request:get-parameter("collection", "")
		             else
		               session:get-attribute("collection")
	return
		if ( string-length($term) = 0 and ($class eq '' ) ) then
			if (exists($previous)) then (
(: DEBUG:             <p class="searchterm">
                      Previous!<br/>
                      <i18n:text>UrSrchTrm</i18n:text>:
                      «{$term}» / «{$class}»!<br/>
                      Request: «{$request}»<br/>
                      Prev. Query: «{$queryOld}»<br/>
                      </p>,   :)
                <form action="create-termc-entry.xq" >
                  <input type="submit" value="NewTRecord" i18n:attr="value"/>
                </form>,
                local:displayHitlist($previous)
                )
			else (
				<p>Your query has timed out, or was too unspecific.
				  Please hit the «Find» button
				 again, or enter a new search query.</p>,
                <form action="create-termc-entry.xq" >
                  <input type="submit" value="NewTRecord" i18n:attr="value"/>
                </form> )
		else
            if ($term = "*" and ($class eq 'all' )) then (
				<p>Sorry, you cannot search for the whole db. Please
				   enter a slightly more specific search - adding one
				   character or specifying a class is enough.</p>,
                <form action="create-termc-entry.xq" >
                  <input type="submit" value="NewTRecord" i18n:attr="value"/>
                </form> )
            else
              let $doc 	  := ristenutil:get-doc($collID,'center'),
                $query := local:build-query($term, $doc),
                $hits  := util:eval( $query ),
                $s     := session:set-attribute("results", $hits) 
              return
                if (empty($hits)) then (
(: DEBUG:             <p class="searchterm">
                      No Hits!<br/>
                      <i18n:text>NoHit</i18n:text>
                      «{$term}» / «{$class}»!<br/>
                      Document: «{$doc}»<br/>
                      Request: «{$request}»<br/>
                      Curr Query: «{$query}»<br/>
                      Prev Query: «{$queryOld}»<br/>
                      </p>,   :)
                      <form action="create-termc-entry.xq" >
                        <input type="submit" value="NewTRecord"
                               i18n:attr="value"/>
                      </form> )
                else (
(: DEBUG:             <p class="searchterm">
                      Hits!<br/>
                      <i18n:text>UrSrchTrm</i18n:text>:
                      «{$term}» / «{$class}»!<br/>
                      Document: «{$doc}»<br/>
                      Request: «{$request}»<br/>
                      Curr Query: «{$query}»<br/>
                      Prev Query: «{$queryOld}»<br/>
                      </p>,   :)
                      <form action="create-termc-entry.xq" >
                        <input type="submit" value="NewTRecord" i18n:attr="value"/>
                      </form>,
                      local:displayHitlist($hits)
					 )
};

<document>
	<body>
        <header>
          <style href="risten_edit_terms_SD-terms_search-coll-entries.css"/>
          <title>Hits!</title>
        </header>
        <section title="HitTitle">
            { let $start := util:system-time() return
				(
					local:main(),
                     <p class="srchtime">
                        <i18n:translate>
                          <i18n:text>SearchTime</i18n:text>
                          <i18n:param type="number" pattern="#.##" >
                            { round-half-to-even( seconds-from-duration(
                              util:system-time()-$start) , 3)}
                          </i18n:param>
             	       </i18n:translate>
                     </p>
				)
			}
        </section>
    </body>
</document>