From 7682b6a3d6003315243be1940843a6bc26774649 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 7 Apr 2009 10:29:04 -0700
Subject: [PATCH] Friends relationships are reciprocal.

Fix manageUrl to really work in edit screen.
---
 lib/WebGUI/Account/FriendManager.pm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/lib/WebGUI/Account/FriendManager.pm b/lib/WebGUI/Account/FriendManager.pm
index 4d737b0e3..92f2f5b85 100644
--- a/lib/WebGUI/Account/FriendManager.pm
+++ b/lib/WebGUI/Account/FriendManager.pm
@@ -3,6 +3,7 @@ package WebGUI::Account::FriendManager;
 use strict;
 
 use WebGUI::Exception;
+use WebGUI::Friends;
 use WebGUI::International;
 use WebGUI::Pluggable;
 use WebGUI::Utility;
@@ -192,6 +193,7 @@ sub www_editFriends {
     $var->{formFooter}   = WebGUI::Form::formFooter($session);
     $var->{username}     = $user->username;
     $var->{userId}       = $user->userId;
+    $var->{manageUrl}    = $self->getUrl('module=friendManager;do=view');
     return $self->processTemplate($var,$session->setting->get("fmEditTemplateId"));
 }
 
@@ -213,15 +215,16 @@ sub www_editFriendsSave () {
     my $form    = $session->form;
     my $userId    = $form->process('userId', 'guid');
     my $user      = WebGUI::User->new($session, $userId);
-    my $userToAdd = $form->process('userToAdd', 'guid');
+    my $ufriend   = WebGUI::Friends->new($session, $user);
 
+    my $userToAdd = $form->process('userToAdd', 'guid');
     if ($userToAdd) {
-        $user->friends->addUsers([$userToAdd]);
+        $ufriend->add([$userToAdd]);
     }
 
     my @usersToRemove = $form->process('friendToAxe', 'checkList');
     if (scalar @usersToRemove) {
-        $user->friends->deleteUsers(\@usersToRemove);
+        $ufriend->delete(\@usersToRemove);
     }
 
     return $self->www_editFriends($userId);