From b7f13bf99487c79d65300267e82c297d95796d86 Mon Sep 17 00:00:00 2001 From: Jason Etheridge Date: Thu, 1 Aug 2013 12:34:21 -0400 Subject: [PATCH] silence some unitialized warnings Signed-off-by: Jason Etheridge Signed-off-by: Bill Erickson --- Open-ILS/src/perlmods/lib/OpenILS/Utils/Fieldmapper.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Utils/Fieldmapper.pm b/Open-ILS/src/perlmods/lib/OpenILS/Utils/Fieldmapper.pm index 4542e2450c..f8bc724523 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Utils/Fieldmapper.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Utils/Fieldmapper.pm @@ -75,7 +75,7 @@ sub load_fields { my $name = get_attribute( $attribute_list, 'name' ); next if( $name eq 'isnew' || $name eq 'ischanged' || $name eq 'isdeleted' ); - my $required = get_attribute( $attribute_list, 'oils_obj:required' ); + my $required = get_attribute( $attribute_list, 'oils_obj:required' ) || "false"; my $validate = get_attribute( $attribute_list, 'oils_obj:validate' ); my $virtual = get_attribute( $attribute_list, 'oils_persist:virtual' ); if( ! defined( $virtual ) ) { @@ -150,7 +150,7 @@ sub load_class { my $fm = get_attribute( $attribute_list, 'oils_obj:fieldmapper' ); $fm = 'Fieldmapper::' . $fm; my $id = get_attribute( $attribute_list, 'id' ); - my $controller = get_attribute( $attribute_list, 'controller' ); + my $controller = get_attribute( $attribute_list, 'controller' ) || ''; my $virtual = get_attribute( $attribute_list, 'virtual' ); if( ! defined( $virtual ) ) { $virtual = 'false'; -- 2.43.2