From 55946791423bcf82a811af12e9e38e3d17d067eb Mon Sep 17 00:00:00 2001 From: miker Date: Tue, 11 Mar 2008 19:32:53 +0000 Subject: [PATCH] making based orgs work git-svn-id: svn://svn.open-ils.org/ILS/trunk@8977 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 { -- 2.11.0