User, Session

JSON

declare 
      %restxq:GET
      %restxq:path("/json/ap-kp/list/{$meeting-id}/{$institute-id}")
      %output:method("json")
      %output:json("lax=yes")
      function _:list(
      $meeting-id as xs:string,
      $institute-id as xs:string
      )
      {
      if(not(session:logged-in-role('ap-kp'))) then error(xs:QName('err:permission')) else
      
      let $users-nom := ex:get(odata:get-url( map { })

return
      <json objects="json" arrays="users" booleans="checked canComplete mailsend complete">
        <users>{
          for $user in $users-nom
          return
          <_ type="object">
            <id>{$user/*:ID/string()}</id>
            <personId>{$user/*:ID_YR/string()}</personId>
            
            <checked>false</checked>
            <mail>{$user/*:C_EmailPrivate/string()}</mail>
            <status>
              {
              if ($complete) then "..."
              else "..."
              }
            </status>
          </_>
          }</users>
      </json>
      };

Templating

declare function _:wrap-master($content as item()) 
      as element(html){
      
      let $v := "37"
      let $controller := $content("ng-controller")
      return
      <html xmlns:ng="http://angularjs.org" id="ng-app" ng-app="{$content("ng-app")}">
        <head>
          <title>{$content("title")}</title>
          {_:global-head()}
        </head>
        <body>
          {layout:top-nav()}
          <div class="main container" id="maincontentwrapper">
            
            <div style="min-height: 100%;" id="maincontent">
              {if($controller != "") then attribute{"ng-controller"}{$controller} else ()}
       
              
           
              { $content("body") }
          
            </div>
          </div>
          {_:global-js($v)}
          
          {$content("scripts") ! <script src="/static/js/{.}?v={$v}"></script>}
          
          {$content("ng-module")}
          
          {layout:footer()}
        </body>
      </html>
      
      
      tmpl:wrap-master(map {
      "ng-app" := "oaApp",
      "ng-controller" := "OpenApplicationCtrl",
      "ng-module" := <script>// <![CDATA[
       angular.module('oaApp', ['ngRoute', 'ngSanitize', 'oa', 'account']);
       // ]]></script>,
      "scripts" := ("open-application/oa.js"),
      "title" := $title,
      "body"  := (
      <div class="row">
      </div>

File Handling

declare
      %restxq:GET
      %restxq:path("/file/{$id}/{$name}")
      function _:get-file($id as xs:string, $name as xs:string)
      {
      if(not(session:logged-in())) then error(xs:QName('err:no-login')) else
      
      let $f := ex:get(odata:get-url( map { })
      let $path := "WEB-INF/" || $f/*:ServerPath/string()
      return (
      <rest:response>
        <output:serialization-parameters>
          <output:media-type value="{$media-type}" />
          <output:method>raw</output:method>
        </output:serialization-parameters>
      </rest:response>,
      file:read-binary($path)
      )
      };
      
      declare
      %restxq:POST("{$post}")
      %restxq:path("/json/apkp/file/{$type}")
      %restxq:form-param("files", "{$files}")
      (: make IE happy :)
      %output:media-type("text/plain")
      %output:method("json")
      %output:json("lax=yes")
      function _:file-upload-apkp(
      $type as xs:string,
      $post,
      $files
      )
      {
      if (not(session:logged-in())) then error(xs:QName('err:no-login')) else
      
      (: ... :)
      
      let $create-dir :=
      if (file:exists("WEB-INF/" || $path)) then ()
      else file:create-dir("WEB-INF/" || $path)
      
      for $name in map:keys($files)
      let $content := $files($name)
      let $save := file:write-binary("WEB-INF/" || $serverpath, $content)
   
      (: ... :)
      
      return
      <json objects="json">{doc:get-document($file-id)}</json>