retrieve_all now makes sure the item key is defined .. no longer assumes id

git-svn-id: svn://svn.open-ils.org/ILS/trunk@4848 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm b/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm
index 71ce84b..d8f0929 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm
@@ -376,7 +376,10 @@ sub runmethod {
        } elsif( $action eq 'retrieve_all' ) {
                $action = 'search';
                $method =~ s/retrieve_all/search/o;
-               @arg = ( { id => { '!=' => undef } } );
+               my $tt = $type;
+               $tt =~ s/\./::/og;
+               my $fmobj = "Fieldmapper::$tt";
+               @arg = ( { $fmobj->Identity => { '!=' => undef } } );
                $method = "$method.atomic";
        }