<var set = caller.set>
<var D = caller.D>
<var Txt = caller.Txt>
<var Soc = caller.Soc>
<var _balloon = caller._balloon>
<var _color = caller._color>

<var C = GLOBAL.Def.Style.color>


<if set.id EQ client_id>
<!--- you can't follow/friend yourself --->
<goto url="http://#this_domain#/#get.s1#">
<BREAK>
<elseif listFind("#GLOBAL.Def.Friends.intList#,#GLOBAL.Def.Following.intList#",set.id) GT 0>
<!--- you're already following them --->
<goto url="http://#this_domain#/#get.s1#">
<BREAK>
</if>




<if listFind(Soc.Following.intList,client_id) GT 0>

<!--- confirm friend --->

<if get.s3 EQ "yes">


<var _new = "|#set.id#|">
<loop list="#GLOBAL.Def.Client.users#" index="x" delimiters="|#CHR(10)#"><if x NEQ set.id>
<var _new = _new & CHR(10) & "|#x#|">
</if></loop>
<update orb="user" where="user.id = #client_id#" users="#_new#">

<if listFind(GLOBAL.Def.Friends.intList,set.id) EQ 0><span style="display:none;"><!--
<!--- this is hot news. --->
<!--- delete conflicting pings and bullitens --->
<delete orb="bull" where="bull.user_id = #client_id# AND bull.name LIKE ('%|/#set.tbl#-#set.id#|%') AND bull.notes IN ('|unfollow|','|unfollow_accept|')">
<delete orb="ping" where="ping.user_id = #client_id# AND ping.name LIKE ('%|/#set.tbl#-#set.id#|%') AND ping.notes IN ('|unfollow|','|unfollow_accept|')">
<!--- post a bulliten --->
<tag.bn_bull
j='/user-#set.id#,/user-#client_id#'
title='#client_name# - Friend Confirmed'
body='<a href="/#client_id#">#escapeMarkup(client_name)#</a> and <a href="/#set.id#">#D.title#</a> are now friends'
type='follow_accept'
giveto_unsignedint="#set.id#"
uballoon_b="#set.balloon#"
uname_b="#set.name#">
<!--- ping to follower --->
<tag.ping function="post"
type="follow_accept"
jstr="/user-#set.id#"
users_intList="#client_id#"
message="You are now friends with #D.title#"
send_email="1"
user_whereclause_append="user.balloon <> '' AND user.balloon IS NOT null"
email_href="http://#this_domain#/#client_id#/friends"
email_from="balloon@thisisballoon.com"
age_bypass="1"
emailoptout_tag="follow_accept">
<!--- ping to followee --->
<tag.ping function="post"
type="follow_accept_confirm"
jstr="/user-#client_id#"
users_intList="#set.id#"
message="#escapeMarkup(client_name)# accepted your friend request"
send_email="1"
user_whereclause_append="user.balloon <> '' AND user.balloon IS NOT null"
email_href="http://#this_domain#/#set.id#/friends"
email_from="balloon@thisisballoon.com"
age_bypass="1"
emailoptout_tag="follow_accept_confirm"
published_override="1">
<!--- ping to follower's friends (but not the followee) --->
<var _users_intList = "0">
<loop list="#GLOBAL.Def.Friends.intList#" index="x">
<if x NEQ set.id><var _users_intList = _users_intList & "," & x></if>
</loop>
<tag.ping function="post"
type="follow_accept_notify"
jstr="/user-#client_id#"
users_intList="#_users_intList#"
message="#escapeMarkup(client_name)# is friends with #D.title#"
send_email="1"
user_whereclause_append="user.balloon <> '' AND user.balloon IS NOT null"
email_href="http://#this_domain#/#client_id#/friends"
email_from="balloon@thisisballoon.com"
age_bypass="1"
emailoptout_tag="follow_accept_notify">
<!--- ping to followee's friends (but not the follower, and not any of the follower's friends) --->
<var _users_intList2 = "0">
<loop list="#Soc.Friends.intList#" index="x">
<if x NEQ client_id AND listFind(_users_intList,x) EQ 0><var _users_intList2 = _users_intList & "," & x></if>
</loop>
<tag.ping function="post"
type="follow_accept_notify"
jstr="/user-#set.id#"
users_intList="#_users_intList2#"
message="#D.title# is friends with #escapeMarkup(client_name)#"
send_email="1"
user_whereclause_append="user.balloon <> '' AND user.balloon IS NOT null"
email_href="http://#this_domain#/#set.id#/friends"
email_from="balloon@thisisballoon.com"
age_bypass="1"
emailoptout_tag="follow_accept_notify">
--></span></if>


<var _pw = 84>

<div>
<div style="float:left; width:#_pw#px;">
<tag.balloon picwidth="#_pw#" bg="#_balloon#" color="#_color#">
</div>
<div style="margin-left:#_pw+8#px;">
<div style="margin-right:2em;">
<h3 style="margin:0px; margin-bottom:1em;">
Friend Confirmed
</h3>
<p>
You have confirmed #D.title# as
a friend on Balloon.
</p>
</div>
</div>
</div>

<div>&nbsp;</div>

<tag.bn_btn val="Finished With This" slash="">


<else>

<var _pw = 50>

<tag.bn_subprofile_layout label="Confirm #Txt.fname#">

<div>
<div style="float:left; width:#_pw#px;">
<tag.balloon picwidth="#_pw#" bg="#_balloon#" color="#_color#">
</div>
<div style="margin-left:#_pw+8#px;">
<div style="margin-right:2em;">
Do you want to confirm #D.title# as a
friend on Balloon?
</div>
</div>
</div>

<div>&nbsp;</div>

<tag.bn_btn val="Yes, Confirm #Txt.Fname#" slash="#get.s1#/#get.s2#/yes">

</tag.bn_subprofile_layout>

</if>

<else>

<!--- send friend request --->

<if get.s3 EQ "yes">


<var _new = "|#set.id#|">
<loop list="#GLOBAL.Def.Client.users#" index="x" delimiters="|#CHR(10)#"><if x NEQ set.id>
<var _new = _new & CHR(10) & "|#x#|">
</if></loop>
<update orb="user" where="user.id = #client_id#" users="#_new#">

<if listFind(GLOBAL.Def.Following.intList,set.id) EQ 0><span style="display:none;"><!--
<!--- this is hot news. --->
<!--- delete conflicting pings and bullitens --->
<delete orb="bull" where="bull.user_id = #client_id# AND bull.name LIKE ('%|/#set.tbl#-#set.id#|%') AND bull.notes IN ('|unfollow|','|unfollow_accept|')">
<delete orb="ping" where="ping.user_id = #client_id# AND ping.name LIKE ('%|/#set.tbl#-#set.id#|%') AND ping.notes IN ('|unfollow|','|unfollow_accept|')">
<!--- ping to followee --->
<tag.ping function="post"
type="follow"
jstr="/user-#client_id#"
users_intList="#set.id#"
message="#escapeMarkup(client_name)# wants to be your friend on Balloon"
send_email="1"
user_whereclause_append=""
email_href="http://#this_domain#/"
email_from="balloon@thisisballoon.com"
age_bypass="1"
emailoptout_tag="follow"
published_override="1">
--></span></if>


<var _pw = 84>

<div>
<div style="float:left; width:#_pw#px;">
<tag.balloon picwidth="#_pw#" bg="#_balloon#" color="#_color#">
</div>
<div style="margin-left:#_pw+8#px;">
<div style="margin-right:2em;">
<h3 style="margin:0px; margin-bottom:1em;">
Friend Request Sent
</h3>
<p>
A friend request has been sent to
#D.title#.
</p>
</div>
</div>
</div>

<div>&nbsp;</div>

<tag.bn_btn val="Finished With This" slash="">

<else>

<var _pw = 50>

<tag.bn_subprofile_layout label="Add #Txt.fname#">

<div>
<div style="float:left; width:#_pw#px;">
<tag.balloon picwidth="#_pw#" bg="#_balloon#" color="#_color#">
</div>
<div style="margin-left:#_pw+8#px;">
<div style="margin-right:2em;">
Do you want to add #D.title# as a
friend on Balloon?
</div>
</div>
</div>

<div>&nbsp;</div>

<tag.bn_btn val="Yes, Add #Txt.Fname#" slash="#get.s1#/#get.s2#/yes">

</tag.bn_subprofile_layout>

</if>

</if>


<if isDefined("get.s4") AND listLen(get.s4,":") EQ 2 AND left(get.s4,4) EQ "rdr:">
<var _cmd = gutitleFormat(listLast(get.s4,":"))>
<if _cmd NEQ "">
<goto url="http://#this_domain#/#_cmd#">
<BREAK>
</if>
</if>