added sanity check

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Collections.pm b/Open-ILS/src/perlmods/OpenILS/Application/Collections.pm
index d182816..3e8fb67 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Collections.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Collections.pm
@@ -123,7 +123,7 @@ sub users_of_interest {
                                        select                  => {au => ["profile","id","dob", "card"]}
                                }
                        ]
-               );
+               ) or return $e->event;
 
                $_->{usr} = {
                        id                      => $u->id,