From bce4b41cd846fb781665435508f0970ff9fd29da Mon Sep 17 00:00:00 2001
From: Mark Crane <markjcrane@gmail.com>
Date: Mon, 14 Jul 2014 17:57:37 +0000
Subject: [PATCH] Prevent speed dial transfer to page extension as reported at
 https://code.google.com/p/fusionpbx/issues/detail?id=639

---
 .../switch/conf/dialplan/250_page.xml         | 34 +++++++++++++++----
 1 file changed, 28 insertions(+), 6 deletions(-)

diff --git a/app/dialplan/resources/switch/conf/dialplan/250_page.xml b/app/dialplan/resources/switch/conf/dialplan/250_page.xml
index 6d07fa27a3..966e07a0d7 100644
--- a/app/dialplan/resources/switch/conf/dialplan/250_page.xml
+++ b/app/dialplan/resources/switch/conf/dialplan/250_page.xml
@@ -1,11 +1,33 @@
 <context name="{v_context}">
 	<extension name="page" number="*724" app_uuid="2011c518-696d-4878-a9b2-b217b6311311" enabled="false">
-		<condition field="destination_number" expression="^\*724$" >
-			<action application="set" data="caller_id_name=Page" />
-			<action application="set" data="caller_id_number=" />
-			<action application="set" data="pin_number=" />
-			<action application="set" data="extension_list=1001-1003,1005" />
-			<action application="lua" data="page.lua" />
+		<condition field="destination_number" expression="^\*724$" break="never" />
+		<condition field="${sip_h_Referred-By}" expression="sip:(.*)@.*" break="never">
+			<action application="set" data="referred_by_user=$1" inline="true"/>
+			<action application="log" data="INFO referred_by_user is [${referred_by_user}]"/>
+			<action application="log" data="INFO sip_h_Referred-By is [${sip_h_Referred-By}]"/>
+
+			<anti-action application="set" data="referred_by_user=false" inline="true"/>
+			<anti-action application="log" data="INFO referred_by_user is [${referred_by_user}]"/>
+			<anti-action application="log" data="INFO sip_h_Referred-By is [${sip_h_Referred-By}]"/>
+		</condition>
+		<condition field="destination_number" expression="^\*725$" />
+		<condition field="${referred_by_user}" expression="false" break="never">
+			<action application="set" data="was_transfered_to_page=false" inline="true"/>
+			<action application="log" data="INFO was_transfered_to_page is [${was_transfered_to_page}]"/>
+			<anti-action application="set" data="was_transfered_to_page=true" inline="true"/>
+			<anti-action application="log" data="INFO was_transfered_to_page is [${was_transfered_to_page}]"/>
+		</condition>
+		<condition field="destination_number" expression="^\*725$" break="never" >
+			<action application="log" data="INFO was_transfered_to_page is [${was_transfered_to_page}]"/>
+		</condition>
+		<condition field="${was_transfered_to_page}" expression="true" break="never">
+		        <action application="transfer" data="${referred_by_user} XML ${context}"/>
+
+		        <anti-action application="set" data="caller_id_name=Page" />
+		        <anti-action application="set" data="caller_id_number=" />
+		        <anti-action application="set" data="pin_number=" />
+		        <anti-action application="set" data="extension_list=2000-2002" />
+		        <anti-action application="lua" data="page.lua" />
 		</condition>
 	</extension>
 </context>
\ No newline at end of file