From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 11 Mar 2008 19:32:53 +0000 (+0000)
Subject: making <context> based orgs work
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=55946791423bcf82a811af12e9e38e3d17d067eb;p=Evergreen.git

making <context> based orgs work

git-svn-id: svn://svn.open-ils.org/ILS/trunk@8977 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm b/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
index ea0160a83b..bd3029d426 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
@@ -146,11 +146,11 @@ sub CRUD_action_object_permcheck {
                         my $link_class_hint = $link_node->getAttribute('class');
                         my $remote_field = $link_node->getAttribute('key');
 
-                        my ($remote_class_node) = $xpc->findnodes( "//idl:class[\@id='$self->{class_hint}']", $idl->documentElement );
+                        my ($remote_class_node) = $xpc->findnodes( "//idl:class[\@id='$link_class_hint']", $idl->documentElement );
                         my $search_method = 'search_' . $xpc->findvalue( '@oils_obj:fieldmapper', $remote_class_node );
                         $search_method =~ s/::/_/go;
 
-                        for my $remote_object ( @{$e->$search_method( { $key => $obj->$link_field } )} ) {
+                        for my $remote_object ( @{$e->$search_method( { $remote_field => $obj->$link_field } )} ) {
                             push @context_ous, $remote_object->$context_field;
                         }
                     } else {