From 8452273e9529abe34c380a513711503969dec5ba Mon Sep 17 00:00:00 2001 From: miker Date: Sat, 6 Dec 2008 04:39:09 +0000 Subject: [PATCH] quiet a needless but annoying warning git-svn-id: svn://svn.open-ils.org/ILS/trunk@11436 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Utils/Fieldmapper.pm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Utils/Fieldmapper.pm b/Open-ILS/src/perlmods/OpenILS/Utils/Fieldmapper.pm index 4b100dbdd8..3e0fd090b0 100644 --- a/Open-ILS/src/perlmods/OpenILS/Utils/Fieldmapper.pm +++ b/Open-ILS/src/perlmods/OpenILS/Utils/Fieldmapper.pm @@ -45,9 +45,10 @@ sub import { return if (keys %$fieldmap); return if (!OpenSRF::System->connected && !$args{IDL}); - # parse the IDL ... - my $file = $args{IDL} || OpenSRF::Utils::SettingsClient->new->config_value( 'IDL' ); - my $idl = XMLin( $file, ForceArray => 0, KeyAttr => ['name', 'id'], ValueAttr => {link =>'key'} )->{class}; + # parse the IDL ... + my $file = $args{IDL} || OpenSRF::Utils::SettingsClient->new->config_value( 'IDL' ); + 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'}; @@ -55,7 +56,7 @@ sub import { $log->debug("Building Fieldmapper class for [$n] from IDL"); $$fieldmap{$n}{hint} = $c; - $$fieldmap{$n}{virtual} = ($idl->{$c}{'oils_persist:virtual'} eq 'true') ? 1 : 0; + $$fieldmap{$n}{virtual} = ($idl->{$c}{'oils_persist:virtual'} && $idl->{$c}{'oils_persist:virtual'} eq 'true') ? 1 : 0; $$fieldmap{$n}{table} = $idl->{$c}{'oils_persist:tablename'}; $$fieldmap{$n}{sequence} = $idl->{$c}{fields}{'oils_persist:sequence'}; $$fieldmap{$n}{identity} = $idl->{$c}{fields}{'oils_persist:primary'}; -- 2.11.0