From 54bf49cc560a5f4d7561690b4c5e0b4b117d0768 Mon Sep 17 00:00:00 2001
From: Lebbeous Fogle-Weekley <lebbeous@esilibrary.com>
Date: Mon, 11 Apr 2011 12:58:16 -0400
Subject: [PATCH] for testing vmsp trees

---
 Open-ILS/examples/fm_IDL.xml                         |  2 ++
 .../src/perlmods/lib/OpenILS/Application/Vandelay.pm | 20 ++++++++++++++++++++
 2 files changed, 22 insertions(+)

diff --git a/Open-ILS/examples/fm_IDL.xml b/Open-ILS/examples/fm_IDL.xml
index 3b36a64626..ae41a471e6 100644
--- a/Open-ILS/examples/fm_IDL.xml
+++ b/Open-ILS/examples/fm_IDL.xml
@@ -558,11 +558,13 @@ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA
 			<field reporter:label="Tag" name="tag" reporter:datatype="text"/>
 			<field reporter:label="Subfield" name="subfield" reporter:datatype="text"/>
 			<field reporter:label="Importance" name="quality" reporter:datatype="int"/>
+			<field reporter:label="Expression Tree Children" name="children" oils_persist:virtual="true" reporter:datatype="link"/>
 		</fields>
 		<links>
 			<link field="parent" reltype="has_a" key="id" map="" class="vmsp"/>
 			<link field="match_set" reltype="has_a" key="id" map="" class="vms"/>
 			<link field="svf" reltype="has_a" key="id" map="" class="crad"/>
+			<link field="children" reltype="has_many" key="parent" map="" class="vmsp"/>
 		</links>
 		<permacrud xmlns="http://open-ils.org/spec/opensrf/IDL/permacrud/v1">
 			<actions>
diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm
index 119e766349..ca6963cfc5 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm
@@ -1107,5 +1107,25 @@ sub respond_with_status {
         success_count => $success_count, %args }) if $err or ($try_count % 5 == 0);
 }
 
+__PACKAGE__->register_method(  
+    api_name    => "open-ils.vandelay.match_set_point.get_tree",
+    method      => "match_set_point_get_tree",
+    api_level   => 1,
+    argc        => 1
+);
+
+sub match_set_point_get_tree {
+    my ($self, $conn, $parent_id) = @_;
+
+    $parent_id = int($parent_id) or return;
+
+    my $tree = new_editor->search_vandelay_match_set_point([
+        {"parent" => $parent_id},
+        {"flesh" => -1, "flesh_fields" => ["children"]}
+    ]) or return $e->die_event;
+
+    return $tree;
+}
+
 
 1;
-- 
2.11.0