From fa83098b494846c6384904d8938c5774e4c6aae5 Mon Sep 17 00:00:00 2001
From: Adam Zammit <adam.zammit@acspri.org.au>
Date: Mon, 25 Mar 2013 16:04:34 +1100
Subject: [PATCH] Added appointment and outcome codes to list with comment

---
 include/limesurvey/qanda.php | 27 ++++++++++++++++++++++++++-
 1 file changed, 26 insertions(+), 1 deletion(-)

diff --git a/include/limesurvey/qanda.php b/include/limesurvey/qanda.php
index 580d81da..6d9c22f0 100644
--- a/include/limesurvey/qanda.php
+++ b/include/limesurvey/qanda.php
@@ -1886,8 +1886,33 @@ function do_listwithcomment($ia)
             {
                 $check_ans = CHECKED;
             }
+
+		//queXS check if this is designed to set an outcome:
+		$quexs_outcome = false;
+		$quexs_outcome_code = 0;
+		if (strncasecmp($ansrow['answer'],"{OUTCOME:",9) == 0)
+		{
+			$quexs_pos = strrpos($ansrow['answer'],"}",8);
+			if ($quexs_pos != false)
+			{
+				$quexs_outcome_code = substr($ansrow['answer'],9,$quexs_pos - 9);
+				$quexs_outcome = true;
+				include_once(dirname(__FILE__) . '/quexs.php');
+				$ansrow['answer'] = quexs_template_replace($ansrow['answer']);
+			}
+		}	
+
+		//queXS check if this is designed to schedule an appointment:
+		$quexs_appointment = false;
+		if (strncasecmp($ansrow['answer'],"{SCHEDULEAPPOINTMENT}",21) == 0)
+		{
+			$ansrow['answer'] = $clang->gT("Schedule Appointment");
+			$quexs_appointment = true;
+		}
+
+
             $answer .= '		<li>
-			<input type="radio" name="'.$ia[1].'" id="answer'.$ia[1].$ansrow['code'].'" value="'.$ansrow['code'].'" class="radio" '.$check_ans.' onclick="'.$checkconditionFunction.'(this.value, this.name, this.type)" />
+			<input type="radio" name="'.$ia[1].'" id="answer'.$ia[1].$ansrow['code'].'" value="'.$ansrow['code'].'" class="radio" '.$check_ans.' onclick="'.$checkconditionFunction.'(this.value, this.name, this.type)' . quexs_submit_on_click(!$quexs_outcome && !$quexs_appointment).quexs_outcome($quexs_outcome_code).quexs_appointment($quexs_appointment)  . '" />
 			<label for="answer'.$ia[1].$ansrow['code'].'" class="answertext">'.$ansrow['answer'].'</label>
 		</li>
             ';