adding barcode to returned data

git-svn-id: svn://svn.open-ils.org/ILS/trunk@4922 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 0dc24b6..1b28f0a 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Collections.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Collections.pm
@@ -101,8 +101,8 @@ sub users_of_interest {
                                $_->{usr},
                                {
                                        flesh                           => 1,
-                                       flesh_fields    => {au => ["groups","profile"]},
-                                       select                  => {au => ["profile","id","dob"]}
+                                       flesh_fields    => {au => ["groups","profile", "card"]},
+                                       select                  => {au => ["profile","id","dob", "card"]}
                                }
                        ]
                );
@@ -111,6 +111,7 @@ sub users_of_interest {
                        id                      => $u->id,
                        dob             => $u->dob,
                        profile => $u->profile->name,
+                       barcode => $u->card->barcode,
                        groups  => [ map { $_->name } @{$u->groups} ],
                };
        }