From 16a50a5d423eb82577628cd626f9e2a55d9d3355 Mon Sep 17 00:00:00 2001 From: Mike Rylander Date: Thu, 29 Mar 2012 09:18:33 -0400 Subject: [PATCH] Return raw item hash list Signed-off-by: Mike Rylander --- Open-ILS/src/perlmods/lib/OpenILS/WWW/FlatFielder.pm | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/FlatFielder.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/FlatFielder.pm index 03d8a8be92..f8216c1388 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/FlatFielder.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/FlatFielder.pm @@ -78,13 +78,17 @@ sub data_to_xml { sub data_to_json { my ($args) = @_; - return OpenSRF::Utils::JSON->perl2JSON({ - ($$args{hint} ? (hint => $$args{hint}) : ()), - ($$args{identifier_field} ? (identifier => $$args{identifier_field}) : ()), - ($$args{label_field} ? (label => $$args{label_field}) : ()), - ($$args{key} ? (FS_key => $$args{key}) : ()), - items => $$args{data} - }); + # Turns out we don't want the data structure you'd use to initialize an + # itemfilereadstore or similar. We just want rows. + +# return OpenSRF::Utils::JSON->perl2JSON({ +# ($$args{hint} ? (hint => $$args{hint}) : ()), +# ($$args{id_field} ? (identifier => $$args{id_field}) : ()), +# ($$args{label_field} ? (label => $$args{label_field}) : ()), +# ($$args{key} ? (FS_key => $$args{key}) : ()), +# items => $$args{data} +# }); + return OpenSRF::Utils::JSON->perl2JSON($args->{data}); } # Given data and the Apache request object, this sub picks a sub from a -- 2.11.0