From 41e8e402317d8e89f25824c78d48fbd3a431822b Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 11 Mar 2008 16:14:17 +0000
Subject: [PATCH 1/1] search method

git-svn-id: svn://svn.open-ils.org/ILS/trunk@8967 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 .../perlmods/OpenILS/Application/PermaCrud.pm | 64 ++++++++++++++++---
 1 file changed, 55 insertions(+), 9 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm b/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
index b9bce964d7..e3315925dc 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
@@ -1,3 +1,5 @@
+# vim:et:ts=4:sw=4:
+
 package OpenILS::Application::PermaCrud;
 use OpenILS::Application;
 use base qw/OpenILS::Application/;
@@ -63,13 +65,20 @@ sub CRUD_action_object_permcheck {
         );
     }
 
-    my $action = $self->api_name =~ s/^open-ils\.admin\.([^\.])\..+$/$1/o;
-    my $o_type = $obj->cdbi =~ s/::/./go;
-
     my ($class_node) = $xpc->findnodes( "//idl:class[\@id='$self->{class_hint}']", $idl->documentElement );
     my ($action_node) = $xpc->findnodes( "perm:permacrud/perm:actions/perm:$action", $class_node );
     my $all_perms = $xpc->getAttribute( 'all_perms', $action_node );
 
+    if (!ref($obj)) {
+        my $retrieve_method = 'retrieve_' . $xpc->findvalue( '@oils_obj:fieldmapper', $class_node );
+        $retrieve_method =~ s/::/_/go;
+        $obj = $e->retrieve_method( $obj )->gather(1);
+    }
+
+    my $action = $self->api_name =~ s/^open-ils\.admin\.([^\.])\..+$/$1/o;
+    my $o_type = $obj->cdbi =~ s/::/./go;
+    my $id_field = $obj->Identity;
+
     my $perm_field_value = $aciton_node->getAttribute('permission');
 
     if (defined($perm_field_value)) {
@@ -119,8 +128,7 @@ sub CRUD_action_object_permcheck {
                     }
                 }
             } else {
-                $pok++ if ($e->allowed($perm => undef => $obj));
-                next;
+                $pok++ if ($e->allowed($perm => undef => $obj)) {
             }
         }
 
@@ -131,20 +139,58 @@ sub CRUD_action_object_permcheck {
             );
         }
     }
+
+    return $obj if ($action eq 'retrieve');
+
+    return $e->session->request("open-ils.cstore.direct.$o_type.$action" => $obj )->gather(1);
 }
 
-for my $class_node ( $xpc->findnodes( "perm:permacrud/perm:actions/perm:$action", $class_node ) ) {
+sub search_permacrud {
+    my $self = shift;
+    my $client = shift;
+    my $auth = shift;
+    my @args = @_;
+
+    my $e = new_editor(authtoken => $auth);
+    return $e->event unless $e->checkauth;
+ 
+    my ($class_node) = $xpc->findnodes( "//idl:class[\@id='$self->{class_hint}']", $idl->documentElement );
+    my $search_method = 'search_' . $xpc->findvalue( '@oils_obj:fieldmapper', $remote_class_node );
+    $search_method =~ s/::/_/go;
+
+    my $retriever = $self->method_lookup( $self->{retriever} );
+    my $obj_list = $e->$search_method( @args );
+
+    for my $o ( @$obj_list ) {
+        my ($o) = $retriever->run( $o );
+        $client->respond( $o ) if ($o);
+    }
+
+    return undef;
+}
+
+for my $class_node ( $xpc->findnodes( '//idl:class[perm:permacrud]', $class_node ) ) {
     my $hint = $class_node->getAttribute('id');
 
     for my $action_node ( $xpc->findnodes( "perm:permacrud/perm:actions/perm:*", $class_node ) ) {
         my $method = $action_node->localname =~ s/^.+:(.+)$/$1/o;
 
         __PACKAGE__->register_method(
-            method      => 'CRUD_action_object_permcheck',
-            api_name    => 'open-ils.permacrud.' . $method . '.' . $hint,
-            class_hint  => $hint,
+            method          => 'CRUD_action_object_permcheck',
+            api_name        => 'open-ils.permacrud.' . $method . '.' . $hint,
+            authoritative   => 1,
+            class_hint      => $hint,
         );
 
+        if ($method eq 'retrieve') {
+            __PACKAGE__->register_method(
+                method      => 'search_permcheck',
+                api_name    => 'open-ils.permacrud.search.' . $hint,
+                class_hint  => $hint,
+                retriever   => 'open-ils.permacrud.retrieve.' . $hint,
+                stream      => 1
+            );
+        }
     }
 }
     
-- 
2.43.2