[open-ils-commits] r9791 - branches/rel_1_2_2/Open-ILS/src/perlmods/OpenILS/Utils

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-06-09 12:26:59 -0400 (Mon, 09 Jun 2008)
New Revision: 9791

Modified:
   branches/rel_1_2_2/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: branches/rel_1_2_2/Open-ILS/src/perlmods/OpenILS/Utils/Fieldmapper.pm
===================================================================
--- branches/rel_1_2_2/Open-ILS/src/perlmods/OpenILS/Utils/Fieldmapper.pm	2008-06-09 03:29:40 UTC (rev 9790)
+++ branches/rel_1_2_2/Open-ILS/src/perlmods/OpenILS/Utils/Fieldmapper.pm	2008-06-09 16:26:59 UTC (rev 9791)
@@ -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'};