Change format of LibraryREST user object

Change format of LibraryREST user object to match that of the Mock
driver, which we have previously prototyped against.

Signed-off-by: Jeff Godin <jgodin@tadl.org>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/LibraryREST.pm b/Open-ILS/src/perlmods/lib/OpenILS/LibraryREST.pm
index 94477a8..70c19f3 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/LibraryREST.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/LibraryREST.pm
@@ -90,13 +90,16 @@ sub get_user {
     my $name = join(' ', @$name_parts);
 
     return {
-        user => {
-                name => $name,
-                name_parts => $name_parts,
-            },
-        checkouts => $user_summary->{checkouts},
-        holds => $user_summary->{holds},
-        balance => $user_summary->{fines}->{balance_owed},
+        id => $target_user,
+        name => $name,
+        name_parts => $name_parts,
+        summary => {
+            checkouts => $user_summary->{checkouts}->{total_out},
+            checkouts_detail => $user_summary->{checkouts},
+            holds => $user_summary->{holds}->{total},
+            holds_detail =>  $user_summary->{holds},
+            balance => $user_summary->{fines}->{balance_owed},
+        }
     }
 }