From: miker Date: Tue, 15 Apr 2008 16:42:11 +0000 (+0000) Subject: default to pulling all fields from field_safe classes X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=66a7658dc5d0d8f644bb95a1592106e819fd10b1;p=Evergreen.git default to pulling all fields from field_safe classes git-svn-id: svn://svn.open-ils.org/ILS/trunk@9363 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- diff --git a/Open-ILS/examples/fm_IDL.xml b/Open-ILS/examples/fm_IDL.xml index dba433b47f..0360806fe1 100644 --- a/Open-ILS/examples/fm_IDL.xml +++ b/Open-ILS/examples/fm_IDL.xml @@ -2819,7 +2819,7 @@ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA - + @@ -2831,6 +2831,14 @@ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA + + + + + + + + diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Fielder.pm b/Open-ILS/src/perlmods/OpenILS/Application/Fielder.pm index 32e0a18154..3ca8ea6cd2 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Fielder.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Fielder.pm @@ -61,6 +61,10 @@ sub fielder_fetch { my $query = $obj->{query}; my $fields = $obj->{fields}; + if (!$fields) { + $fields = [ $obj->real_fields ]; + } + $log->debug( 'Field list: '. OpenSRF::Utils::JSON->perl2JSON( $fields ) ); $log->debug( 'Query: '. OpenSRF::Utils::JSON->perl2JSON( $query ) );