[open-ils-commits] r9793 - trunk/Open-ILS/src/perlmods/OpenILS/Utils

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-06-09 12:35:17 -0400 (Mon, 09 Jun 2008)
New Revision: 9793

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Utils/Fieldmapper.pm
Log:
moved key attribute from the set of KeyAttrs to a ValueAttr.  XML::Simple as of version 2.18 forces uniquesness on KeyAttrs

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Utils/Fieldmapper.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Utils/Fieldmapper.pm	2008-06-09 16:35:03 UTC (rev 9792)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Utils/Fieldmapper.pm	2008-06-09 16:35:17 UTC (rev 9793)
@@ -47,7 +47,7 @@
 
         # parse the IDL ...
         my $file = $args{IDL} || OpenSRF::Utils::SettingsClient->new->config_value( 'IDL' );
-        my $idl = XMLin( $file, ForceArray => 0, KeyAttr => ['name', 'key', 'id'] )->{class};
+        my $idl = XMLin( $file, ForceArray => 0, KeyAttr => ['name', 'id'], ValueAttr => {link =>'key'} )->{class};
 	for my $c ( keys %$idl ) {
 		next unless ($idl->{$c}{'oils_obj:fieldmapper'});
 		my $n = 'Fieldmapper::'.$idl->{$c}{'oils_obj:fieldmapper'};