From 996e3a7053694bd7e762d168a18df8e3b74cbdfd Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 1 Apr 2009 15:34:06 -0700
Subject: [PATCH] Fix JSON, and ordering in the table.

---
 lib/WebGUI/Account/FriendManager.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/Account/FriendManager.pm b/lib/WebGUI/Account/FriendManager.pm
index 16e67b587..15c10eff7 100644
--- a/lib/WebGUI/Account/FriendManager.pm
+++ b/lib/WebGUI/Account/FriendManager.pm
@@ -143,10 +143,14 @@ sub www_getFriendsAsJson  {
             friends  => $friendsCount,
         };
     }
+    @records = map { $_->[1] }
+              sort { $a->[0] cmp $b->[0] }
+               map { [ $_->{username}, $_ ] } @records;
     my %results;
     $results{totalRecords} = scalar @records;
     $results{records}      = \@records;
-    #$results{'sort'}       = undef;
+    $results{'sort'}       = 'username';
+    $self->bare(1);
     $session->http->setMimeType('application/json');
     my $json = JSON::to_json(\%results);
     return $json;