From 9b749bc2ffc0a9c07db18e52954a8d3c63f28a54 Mon Sep 17 00:00:00 2001
From: Paul Driver <paul@plainblack.com>
Date: Thu, 29 Jan 2009 20:35:05 +0000
Subject: [PATCH] Delete friends now removes both sides of the friendship.

---
 lib/WebGUI/Friends.pm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI/Friends.pm b/lib/WebGUI/Friends.pm
index a78a32e15..0d46d7fef 100644
--- a/lib/WebGUI/Friends.pm
+++ b/lib/WebGUI/Friends.pm
@@ -105,7 +105,7 @@ sub approveAddRequest {
 
 =head2 delete ( \@userIds )
 
-Remove friends.
+Remove friends.  Also removes the reciprocal relationship.
 
 =head3 userIds
 
@@ -116,7 +116,13 @@ An array reference of userIds to remove from friends list.
 sub delete {
     my $self = shift;
     my $userIds = shift;
-    $self->user->friends->deleteUsers($userIds);
+    my $me = $self->user;
+
+    $me->friends->deleteUsers($userIds);
+    foreach my $userId (@{$userIds}) {
+        my $friend = WebGUI::User->new($self->session, $userId);
+        $friend->friends->deleteUsers([$me->userId]);
+    }
 }
 
 #-------------------------------------------------------------------