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

[svn at svn.open-ils.org]

Author: miker
Date: 2008-03-11 13:30:34 -0400 (Tue, 11 Mar 2008)
New Revision: 8973

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
Log:
getAttribute is for elements, not xpath contexts

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm	2008-03-11 17:27:41 UTC (rev 8972)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm	2008-03-11 17:30:34 UTC (rev 8973)
@@ -71,7 +71,7 @@
 
     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 );
+    my $all_perms = $action_node->getAttribute( 'all_perms' );
 
     if (!ref($obj)) {
         my $retrieve_method = 'retrieve_' . $xpc->findvalue( '@oils_obj:fieldmapper', $class_node );