Tadashi Okoshi
slash****@users*****
2005年 6月 26日 (日) 23:20:39 JST
Index: affelio/lib/Affelio/App/Admin/ManageFriend.pm diff -u affelio/lib/Affelio/App/Admin/ManageFriend.pm:1.2 affelio/lib/Affelio/App/Admin/ManageFriend.pm:1.3 --- affelio/lib/Affelio/App/Admin/ManageFriend.pm:1.2 Sat Jun 25 21:14:06 2005 +++ affelio/lib/Affelio/App/Admin/ManageFriend.pm Sun Jun 26 23:20:39 2005 @@ -4,7 +4,7 @@ # http://affelio.jp/ (Japan) # http://affelio.jp/ (USA and other area) # -# $Id: ManageFriend.pm,v 1.2 2005/06/25 12:14:06 slash5234 Exp $ +# $Id: ManageFriend.pm,v 1.3 2005/06/26 14:20:39 slash5234 Exp $ package Affelio::App::Admin::ManageFriend; { @@ -21,7 +21,7 @@ use Exporter; @Affelio::App::Admin::ManageFriend::ISA = "Exporter"; - @Affelio::App::Admin::ManageFriend::EXPORT = qw (manage_top modify_member show_member subscribe_group unsubscribe_group); + @Affelio::App::Admin::ManageFriend::EXPORT = qw (manage_top modify_member show_member subscribe_group unsubscribe_group remove_member); ##################################################################### #modify_member @@ -43,6 +43,33 @@ } ##################################################################### + #remove_member + ##################################################################### + sub remove_member{ + my $af = shift; #arg(1) AF + my $uid = shift; #arg(2) uid + my $cgi = shift; #arg(3) cgi + + debug_print("remove_member uid[$uid] start."); + my $afid = $af->{fm}->get_attribute_by_uid($uid, "af_id"); + + #Remove entry(uid) from AFuser_CORE_friends + #Remove uid from friends of others in AFuser_CORE_friends + #Remove entry(uid) from AFuser_CORE_friendsfriends + #Remove uid from friends of others in AFuser_CORE_friendsfriends + $af->{fm}->remove_friend($uid); + + #Remove uid from groups + $af->{gm}->remove_person_from_all($uid); + + #add uid to erasedfriends + + + + debug_print("remove_member uid[$uid] end."); + } + + ##################################################################### #show_member ##################################################################### sub show_member{ @@ -230,10 +257,12 @@ . "/outgoing.cgi?dest_url=" . $row[1]; my $editlink_URL = 'admin.cgi?mode=manage_friends&mode2=show_member&uid=' . $row[0]; + my $delete_URL = 'admin.cgi?mode=manage_friends&mode2=delete&uid=' . $row[0]; push(@friends_list, {nickname => $row[2], userhome_URL => $userhome_URL, editlink_URL => $editlink_URL, + delete_URL => $delete_URL, tmpl_path => $output_ref->{tmpl_path} }); }
