Flattener stores might_have links as arrays

E.g. "aou", {"addrs" : "addresses.id"}

{ "addrs" : [ 1,2,3 ] }

Signed-off-by: Bill Erickson <berick@esilibrary.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Flattener.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Flattener.pm
index 09e20b1..73d73be 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Flattener.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Flattener.pm
@@ -371,7 +371,12 @@ sub process_result {
             last unless ref $obj;
         }
 
-        $flatrow->{$key} = ref $obj ? $obj->$field : undef;
+        if (ref $obj eq 'ARRAY') {
+            # might_have links return arrays
+            $flatrow->{$key} = [ map {$_->$field} @$obj ];
+        } else {
+            $flatrow->{$key} = ref $obj ? $obj->$field : undef;
+        }
     }
 
     return $flatrow;