[open-ils-commits] r8977 - trunk/Open-ILS/src/perlmods/OpenILS/Application

[svn at svn.open-ils.org]

Author: miker
Date: 2008-03-11 15:32:53 -0400 (Tue, 11 Mar 2008)
New Revision: 8977

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
Log:
making <context> based orgs work

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm	2008-03-11 18:55:37 UTC (rev 8976)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm	2008-03-11 19:32:53 UTC (rev 8977)
@@ -146,11 +146,11 @@
                         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 {