Tadashi Okoshi
slash****@users*****
2005年 7月 3日 (日) 07:46:13 JST
Index: affelio/lib/Affelio/App/FriendRoutines.pm
diff -u affelio/lib/Affelio/App/FriendRoutines.pm:1.4 affelio/lib/Affelio/App/FriendRoutines.pm:1.5
--- affelio/lib/Affelio/App/FriendRoutines.pm:1.4 Fri Jul 1 11:00:06 2005
+++ affelio/lib/Affelio/App/FriendRoutines.pm Sun Jul 3 07:46:12 2005
@@ -14,7 +14,7 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
-# $Id: FriendRoutines.pm,v 1.4 2005/07/01 02:00:06 slash5234 Exp $
+# $Id: FriendRoutines.pm,v 1.5 2005/07/02 22:46:12 slash5234 Exp $
package Affelio::App::FriendRoutines;
{
@@ -148,6 +148,9 @@
$visitor_id = "anonymous";
}
+ debug_print("FriendRoutines: visitor_id=$visitor_id");
+ debug_print("FriendRoutines: visitor_type=$visitor_type");
+
######################################
#Get all friends' table from FriendManager
######################################
@@ -194,12 +197,20 @@
#Generate Hyperlink target URL
my $dest_URL = $af->{site__web_root} . "/outgoing.cgi?dest_url=" . $person[1];
- my $editurl = $af->{site__web_root} . "/admin.cgi?mode=manage_friends&mode2=show_member&uid=" . $person[0];
+ my $editurl="";
+ if($visitor_type eq "self"){
+ $editurl = $af->{site__web_root} . "/admin.cgi?mode=manage_friends&mode2=show_member&uid=" . $person[0];
+ }
+ my $mailurl="";
+ if($visitor_type eq "self"){
+ $mailurl = $af->{site__web_root} . "/admin.cgi?mode=messages&action=compose&reply_to=" . $person[1];
+ }
push(@ret_list, {nickname => $person[2],
URL => $dest_URL,
image_URL => $image_URL,
editurl => $editurl,
+ mailurl => $editurl,
intro => $person[5],
mystatus_URL => $mystatus_URL
}
@@ -276,12 +287,21 @@
#Generate Hyperlink target URL
my $dest_URL = $af->{site__web_root} . "/outgoing.cgi?dest_url=" . $person[1];
- my $editurl = $af->{site__web_root} . "/admin.cgi?mode=manage_friends&mode2=show_member&uid=" . $person[0];
+ my $editurl="";
+ if($visitor_type eq "self"){
+ $editurl = $af->{site__web_root} . "/admin.cgi?mode=manage_friends&mode2=show_member&uid=" . $person[0];
+ }
+
+ my $mailurl="";
+ if($visitor_type eq "self"){
+ $mailurl = $af->{site__web_root} . "/admin.cgi?mode=messages&action=compose&reply_to=" . $person[1];
+ }
push(@ret_list, {nickname => $person[2],
URL => $dest_URL,
image_URL => $image_URL,
editurl => $editurl,
+ mailurl => $mailurl,
intro => $person[5],
mystatus_URL => $mystatus_URL
}