Add Friend - Postet den (1037 Views)
Senior Member
MaGraham
Innlegg: 1297
1297
I installed the 4-in-one mod that included the USER SPACE MOD, BOOKMARKS MOD, FRIENDS MOD, and DRAFTS MOD. I was disappointed that the only means of inviting someone to be your friend was if/when that person posted. There's a little icon in the user's post to click on to do an invite. But, some people rarely post so it's difficult to find them. I was wondering if anyone had thought about a possible icon beside each member's name that could be in the MEMBERS area so all you'd have to do is click on the MEMBERS link in the menu, find the member in the list and click on a little icon beside their name to do an invite. That would be SO NEAT! cool
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley
   
 Sidestørrelse 
Postet den
Advanced Member
Carefree
Innlegg: 4224
4224
I'm a bit busy with doctors now again, but if nobody beats me to it, I'll write that for you later this month.
Couldn't sleep, so I wrote that for you tonight. I didn't test this, but it should add the existing "friends" icon after the YM icon (if YM is enabled) on the members' page.
In "members.asp"

Code:

Look for the following lines (appx 417-419):

if strYAHOO = "1" and Trim(Members_MemberYAHOO) <> "" then
Response.Write " <a href=""http://edit.yahoo.com/config/send_webmesg?.target=" & ChkString(Members_MemberYAHOO, "urlpath") & "&.src=pg"" target=""_blank""" & dWStatus("Send " & ChkString(Members_MemberName,"display") & " a Yahoo! Message") & ">" & getCurrentIcon(strIconYahoo,"Send " & ChkString(Members_MemberName,"display") & " a Yahoo! Message","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine
end if

Below those, insert these:

if cLng(strUSFriendSwitch) = 1 then
Response.Write " <a href=""JavaScript:openWindow5('pop_user_space.asp?mode=friends&id=" & Members_MemberID & "&action=add&type=0')"">" & getCurrentIcon(strIconFriends,"Add " & ChkString(Members_MemberName,"display") & " to your friends list","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine
end if
Postet den
Senior Member
MaGraham
Innlegg: 1297
1297
I just now got around to trying this, Carefree. And, it works PERFECT! NO surprised with that though!

Thank you so much for this little add-on, Carefree. LOVE having this as an option! No doubt, others will want it as an add-on, too.

Question - When you add a friend to your friend list like this, would it be something major for that friend to receive a notification and then be allowed to confirm/deny/ignore the friend request?

I hope things are going well with the doctor visits and the tests.



Mission accomplished in now being able to 'add a friend' from the MEMBERS LIST! :)

"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley
 
Du må legge inn en melding