[open-ils-commits] r8977 -
trunk/Open-ILS/src/perlmods/OpenILS/Application
svn at svn.open-ils.org
svn at svn.open-ils.org
Tue Mar 11 16:06:08 EDT 2008
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 {
More information about the open-ils-commits
mailing list