Add Friend

Snitz™ Forums 2000
https://forum.snitz.com/forumTopic/Posts/70078?pagenum=1
05 November 2025, 14:11

Topic

MaGraham
Add Friend
18 January 2012, 21:22


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

 

Replies ...

Carefree
18 January 2012, 22:57


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
MaGraham
21 January 2012, 01:09


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! :)

© 2000-2021 Snitz™ Communications