From 1f5a83d0c6f38f44fa68a0a3423b2cda839ac87b Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 9 Apr 2009 16:43:41 -0700
Subject: [PATCH] Maintain group filter setting after saving.

---
 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 ff37b33cb..571a127fe 100644
--- a/lib/WebGUI/Account/FriendManager.pm
+++ b/lib/WebGUI/Account/FriendManager.pm
@@ -191,6 +191,9 @@ sub www_editFriends {
                             action => $self->getUrl('module=friendManager;do=editFriendsSave'),
                           })
                         . WebGUI::Form::hidden($session, { name => 'userId', value => $user->userId } );
+    if ($groupName) {
+        $var->{formHeader} .= WebGUI::Form::hidden($session, { name => 'groupName', value => $groupName });
+    }
     $var->{addUserForm} = WebGUI::Form::selectBox($session, {
         name        => 'userToAdd',
         options     => \%usersToAdd,
@@ -249,7 +252,8 @@ sub www_editFriendsSave () {
         $ufriend->delete(\@usersToRemove);
     }
 
-    return $self->www_editFriends($userId);
+    my $groupName = $form->process('groupName');
+    return $self->www_editFriends($userId, $groupName);
 }
 
 #-------------------------------------------------------------------