Changeset 654 for MDRepository

Timestamp:

08/25/10 14:23:00 (14 years ago)

Author:

ljo

Message:

Added possibility to pass in collection=handle for operation getCollection.

Location:

MDRepository/trunk/xquery

Files:

• cmd-model.xql (modified) (1 diff)
• cmd-model.xqm (modified) (4 diffs)
• cmd-stats.xql (modified) (1 diff)

MDRepository/trunk/xquery/cmd-model.xql

@@ -22 +22 @@
     $format := request:get-parameter("format", $cmd-model:responseFormatXml),
     $collection := "/db/cmdi-mirror",
-    $query-model-collection := fn:concat($collection, "/", if (fn:empty(request:get-parameter("collection", ()))) then "silang_data" else ""),
+    $collection-params := request:get-parameter("collection", ()),
+    $query-model-collection := 
+    if (fn:empty($collection-params)) then fn:concat($collection, "/")
+    else
+      for $coll in $collection-params 
+      return 
+        if (starts-with($coll, "test-")) then
+          $coll
+        else
+          fn:concat($collection, "/", $coll),
     $query-collections := 
-    if (fn:empty(request:get-parameter("collection", ()))) then
+    if (fn:empty($collection-params)) then
       $collection
     else
-      for $coll in request:get-parameter("collection", ()) 
-      return fn:concat($collection, "/", $coll),
+      for $coll in $collection-params 
+      return 
+        if (starts-with($coll, "test-")) then
+          $coll
+        else
+          fn:concat($collection, "/", $coll),
     $max-depth as xs:integer := xs:integer(request:get-parameter("maxdepth", 1))
     return

MDRepository/trunk/xquery/cmd-model.xqm

@@ -84 +84 @@
           let $child-results :=
             for $child in $children
-              let $child-doc := doc(concat(util:collection-name($child/root()), "/", $child/ResourceRef)),
+              let $child-doc := if (empty($child/unresolvable-uri)) then doc(concat(util:collection-name($child/root()), "/", $child/ResourceRef)) else (),
                 $child-name := ($child-doc//Corpus/Name, $child-doc//Session/Name, "UNKNOWN")[1]
-            return if (empty($child-doc)) then <no-target proxy-id="{$child/@id}">{<proxy>{$child}</proxy>, <in-document>{concat(util:collection-name($child/root()), "/", util:document-name($child/root()))}</in-document>}</no-target> else
+            return if (empty($child-doc)) then () (:<no-target proxy-id="{$child/@id}">{<proxy>{$child}</proxy>, <in-document>{concat(util:collection-name($child/root()), "/", util:document-name($child/root()))}</in-document>}</no-target> :) else
               cmd-model:recurse-collections($child-doc, $child-name, $child-doc//Header/MdSelfLink, $child/@id, $depth - 1)
           return
@@ -225 +225 @@
 
 
-
+(:
+  Get the resource by handle or by path. 
+:)
+declare function cmd-model:get-resource-by-handle-or-collection-path($id as xs:string) as node()? {
+  (: fixme! - urldecode $id when we decide to pass them encoded from the client.  :)
+  if (starts-with($id, "test-")) then
+    collection($cmd-model:cmdiMirrorPath)//MdSelfLink[. = $id]/ancestor::CMD
+  else
+    collection($id)//IsPartOf[. = "root"]/ancestor::CMD
+};
 
 (:
@@ -253 +262 @@
   let $names := if (exists($collections[2])) then
     ($cmd-model:commonFreqsPath, cmd-model:make-compound-doc-name($collections, "collection", $max-depth)) 
+  else if (starts-with($collections, "test-")) then 
+    ($cmd-model:commonFreqsPath, cmd-model:make-compound-doc-name($collections, "collection", $max-depth)) 
   else
     ($collections, concat($cmd-model:collectionDocName, xs:string($max-depth))),
@@ -259 +270 @@
         ()
       else
-        let $children := for $collection-item in $collections
-          let $collection-item-docs := collection(concat($collection-item, "/", "Corpusstructure"))
+        let $children := 
+        for $collection-item in $collections
         return
-          for $collection-doc in $collection-item-docs//CMD return
+        for $collection-doc in cmd-model:get-resource-by-handle-or-collection-path($collection-item) return
           cmd-model:recurse-collections($collection-doc, ($collection-doc//Corpus/Name, $collection-doc//Session/Name, "UNKNOWN")[1], $collection-doc//MdSelfLink, "", $max-depth)
           return

MDRepository/trunk/xquery/cmd-stats.xql

@@ -6 +6 @@
 <item label="ResourceProxy - Resource" >count(//ResourceProxy[ResourceType='Resource'])</item>,
 <item label="ResourceProxy - Metadata" >count(//ResourceProxy[ResourceType='Metadata'])</item>,
-<item label="CMD with MD, Res " >count((//CMD[.//ResourceType='Resource'], //CMD[.//ResourceType='Metadata']))</item>,
+<item label="CMD with MD and Res (fixme!)" >count((//CMD[.//ResourceType='Resource'], //CMD[.//ResourceType='Metadata']))</item>,
 <item label="CMD without " >count(//CMD[not(.//ResourceType='Resource')][not(.//ResourceType='Metadata')])</item>,
 <item label="CMD with relative Resource (starts-with('.'))" >count(//CMD[.//ResourceType='Resource'][starts-with(.//ResourceRef,'.')])</item>,