';
			//print_r($data);
			//echo '
';
	
			// displaying the table: headers
			echo '';
			echo '	';
			echo '		';
			echo '		';
			echo '		';
			echo '		';
			echo '	';
	
	
			// displaying the table: the content
			foreach ($options as $key=>$value)
			{
				$absolute_number = $data[$value['question_option_id']]['total'];
				if($number_of_answers == 0)
				{
					$answers_number = 0;
				}
				else
				{
					$answers_number = $absolute_number/$number_of_answers*100;
				}
				echo '	';
				echo '		';
				echo '		';
				echo '		';
				echo '		';
				echo '	';
			}
	
			// displaying the table: footer (totals)
			echo '	';
			echo '		';
			echo '		';
			echo '		';
			echo '		';
			echo '	';
	
			echo '
 
'.get_lang('AbsoluteTotal').'
'.get_lang('Percentage').'
'.get_lang('VisualRepresentation').'
'.$value['option_text'].'
'.$absolute_number.'
'.round($answers_number, 2).' %
';
				$size = $answers_number*2;
				if ($size > 0)
				{
					echo '
 
';
				}
				echo '		
'.get_lang('Total').'
'.($number_of_answers==0?'0':$number_of_answers).'
 
 
';
		}
	
		if (isset($_GET['viewoption']))
		{
			echo get_lang('PeopleWhoAnswered').': '.$options[$_GET['viewoption']]['option_text'].'
';
	
			if (is_numeric($_GET['value']))
			{
				$sql_restriction = "AND value='".Database::escape_string($_GET['value'])."'";
			}
	
			$sql = "SELECT user FROM $table_survey_answer WHERE option_id = '".Database::escape_string($_GET['viewoption'])."' $sql_restriction";
			$result = api_sql_query($sql, __FILE__, __LINE__);
			while ($row = Database::fetch_array($result))
			{
				echo ''.$row['user'].'
';
			}
		}
	}
	/**
	 * Display score data about a survey question
	 * @param	array	Question info
	 * @param	integer	The offset of results shown
	 * @return	void 	(direct output)
	 */
	function display_question_report_score($survey_data, $question, $offset)
	{
		// Database table definitions
		$table_survey_question 			= Database :: get_course_table(TABLE_SURVEY_QUESTION);
		$table_survey_question_option 	= Database :: get_course_table(TABLE_SURVEY_QUESTION_OPTION);
		$table_survey_answer 			= Database :: get_course_table(TABLE_SURVEY_ANSWER);
	
		// getting the options
		$sql = "SELECT * FROM $table_survey_question_option
					WHERE survey_id='".Database::escape_string($_GET['survey_id'])."'
					AND question_id = '".Database::escape_string($question['question_id'])."'
					ORDER BY sort ASC";
		$result = api_sql_query($sql, __FILE__, __LINE__);
		while ($row = Database::fetch_array($result))
		{
			$options[$row['question_option_id']] = $row;
		}
	
		// getting the answers
		$sql = "SELECT *, count(answer_id) as total FROM $table_survey_answer
					WHERE survey_id='".Database::escape_string($_GET['survey_id'])."'
					AND question_id = '".Database::escape_string($question['question_id'])."'
					GROUP BY option_id, value";
		$result = api_sql_query($sql, __FILE__, __LINE__);
		while ($row = Database::fetch_array($result))
		{
			$number_of_answers += $row['total'];
			$data[$row['option_id']][$row['value']] = $row;
		}
		// displaying the table: headers
		echo '';
		echo '	';
		echo '		';
		echo '		';
		echo '		';
		echo '		';
		echo '		';
		echo '	';
		// displaying the table: the content
		foreach ($options as $key=>$value)
		{
			for ($i=1; $i<=$question['max_value']; $i++)
			{
				$absolute_number = $data[$value['question_option_id']][$i]['total'];
	
				echo '	';
				echo '		';
				echo '		';
				echo '		';
				echo '		';
				echo '		';
				echo '	';
			}
		}
			// displaying the table: footer (totals)
			echo '	';
			echo '		';
			echo '		';
			echo '		';
			echo '		';
			echo '		';
			echo '	';
	
			echo '
 
'.get_lang('Score').'
'.get_lang('AbsoluteTotal').'
'.get_lang('Percentage').'
'.get_lang('VisualRepresentation').'
'.$value['option_text'].'
'.$i.'
'.$absolute_number.'
'.round($absolute_number/$number_of_answers*100, 2).' %
';
				$size = ($absolute_number/$number_of_answers*100*2);
				if ($size > 0)
				{
					echo '			
 
';
				}
				echo '		
'.get_lang('Total').'
 
'.$number_of_answers.'
 
 
';
	}
	
	/**
	 * This functions displays the complete reporting
	 * @return	string	HTML code
	 * @todo open questions are not in the complete report yet.
	 * @author Patrick Cool , Ghent University
	 * @version February 2007
	 */
	function display_complete_report()
	{
		// Database table definitions
		$table_survey_question 			= Database :: get_course_table(TABLE_SURVEY_QUESTION);
		$table_survey_question_option 	= Database :: get_course_table(TABLE_SURVEY_QUESTION_OPTION);
		$table_survey_answer 			= Database :: get_course_table(TABLE_SURVEY_ANSWER);
	
		// the form
		echo '';
		echo '';
		echo '';
		echo '';
		echo '
';
		echo '';
		echo '';
		echo '
';
		echo '
';
		echo ' '.get_lang('ExportAsCSV').'';
		echo ' '.get_lang('ExportAsXLS').'';
		// the table
		echo '
';
		// getting the number of options per question
		echo '	';
		echo '		';
		
		$display_extra_user_fields = false;
		if (!($_POST['submit_question_filter'] OR $_POST['export_report']) OR !empty($_POST['fields_filter']))
		{
			//show user fields section with a big th colspan that spans over all fields
			$extra_user_fields = UserManager::get_extra_fields(0,0,5,'ASC',false);
			$num = count($extra_user_fields);
			if($num > 0)
			{
				echo '';		
				$display_extra_user_fields = true;
			}
		}

		// Get all the questions ordered by the "sort" column 
		$sql = "SELECT q.question_id, q.type, q.survey_question, count(o.question_option_id) as number_of_options
				FROM $table_survey_question q LEFT JOIN $table_survey_question_option o
				ON q.question_id = o.question_id
				WHERE q.question_id = o.question_id
				AND q.survey_id = '".Database::escape_string($_GET['survey_id'])."'
				GROUP BY q.question_id 
				ORDER BY q.sort ASC";
		$result = api_sql_query($sql, __FILE__, __LINE__);
		while ($row = Database::fetch_array($result))
		{
			// we show the questions if
			// 1. there is no question filter and the export button has not been clicked
			// 2. there is a quesiton filter but the question is selected for display
			if (!($_POST['submit_question_filter']  OR $_POST['export_report']) OR in_array($row['question_id'], $_POST['questions_filter']))
			{
				// we do not show comment and pagebreak question types
				if ($row['type'] <> 'comment' AND $row['type'] <> 'pagebreak')
				{
					echo '		0)
					{
						echo ' colspan="'.$row['number_of_options'].'"';
					}
					echo '>';
	
					echo ' ';
					echo $row['survey_question'];
					echo '';
					echo '';
				}
				//no column at all if it's not a question
			}
			$questions[$row['question_id']] = $row;
		}
		echo '	';
		// getting all the questions and options
		echo '	';
		echo '		'; // the user column
		
		if (!($_POST['submit_question_filter'] OR $_POST['export_report']) OR !empty($_POST['fields_filter']))
		{
			//show the fields names for user fields
			foreach($extra_user_fields as $field)
			{
				echo '';
			}
		}
		
		$sql = "SELECT 	sq.question_id, sq.survey_id, 
						sq.survey_question, sq.display,
						sq.sort, sq.type, sqo.question_option_id,
						sqo.option_text, sqo.sort as option_sort
				FROM $table_survey_question sq
				LEFT JOIN $table_survey_question_option sqo
				ON sq.question_id = sqo.question_id
				WHERE sq.survey_id = '".Database::escape_string($_GET['survey_id'])."'
				ORDER BY sq.sort ASC, sqo.sort ASC";
		$result = api_sql_query($sql, __FILE__, __LINE__);
		while ($row = Database::fetch_array($result))
		{
			// we show the options if
			// 1. there is no question filter and the export button has not been clicked
			// 2. there is a question filter but the question is selected for display
			if (!($_POST['submit_question_filter'] OR $_POST['export_report']) OR in_array($row['question_id'], $_POST['questions_filter']))
			{
				// we do not show comment and pagebreak question types
				if ($row['type'] <> 'comment' AND $row['type'] <> 'pagebreak' AND $row['type'] <> 'open')
				{
					echo '			';
					$possible_answers[$row['question_id']][$row['question_option_id']] =$row['question_option_id'];
				}
				//no column at all if the question was not a question
			}
		}
		echo '	';
	
		// getting all the answers of the users
		$old_user='';
		$answers_of_user = array();
		$sql = "SELECT * FROM $table_survey_answer WHERE survey_id='".Database::escape_string($_GET['survey_id'])."' ORDER BY user ASC";
		$result = api_sql_query($sql, __FILE__, __LINE__);
		while ($row = Database::fetch_array($result))
		{
			if ($old_user <> $row['user'] AND $old_user<>'')
			{
				SurveyUtil::display_complete_report_row($possible_answers, $answers_of_user, $old_user, $questions, $display_extra_user_fields);
				$answers_of_user=array();
			}
			if ($questions[$row['question_id']]['type']<> 'open')
			{
				$answers_of_user[$row['question_id']][$row['option_id']] = $row;
			}
			else 
			{
				$answers_of_user[$row['question_id']][0] = $row;
			}
			$old_user = $row['user'];
		}
		SurveyUtil::display_complete_report_row($possible_answers, $answers_of_user, $old_user, $questions, $display_extra_user_fields); // this is to display the last user
	
		echo '
';
		if ($_POST['submit_question_filter'] OR $_POST['export_report'])
		{
			echo '			';
		}
		echo '			';
		echo '
0?' colspan="'.$num.'"':'').'>';
				echo ' ';
				echo get_lang('UserFields');
				echo '';
				echo '
 
'.$field[3].'
';
					echo $row['option_text'];
					echo '
';
	
		echo '
';
	}
	
	
	/**
	 * This function displays a row (= a user and his/her answers) in the table of the complete report.
	 *
	 * @param 	array	Possible options
	 * @param 	array 	User answers
	 * @param	mixed	User ID or user details string
	 * @param	boolean	Whether to show extra user fields or not
	 * @author Patrick Cool , Ghent University
	 * @version February 2007 - Updated March 2008
	 */
	function display_complete_report_row($possible_options, $answers_of_user, $user, $questions, $display_extra_user_fields=false)
	{
		global $survey_data;
		
		$table_survey_question = Database :: get_course_table(TABLE_SURVEY_QUESTION);
		echo '';
		if ($survey_data['anonymous'] == 0)
		{
			if(intval($user)!==0)
			{
				$sql = 'SELECT firstname, lastname FROM '.Database::get_main_table(TABLE_MAIN_USER).' WHERE user_id='.intval($user);
				$rs = api_sql_query($sql, __FILE__, __LINE__);
				if($row = Database::fetch_array($rs))
				{
					$user_displayed = $row['lastname'].' '.$row['firstname'];
				}
				else
				{
					$user_displayed = '-';
				}
				echo '		'.$user_displayed.''; // the user column
			}
			else
			{
				echo '		'.$user.''; // the user column
			}
		}
		else
		{ 
			echo '-';
		}
		
		if ($display_extra_user_fields)
		{
			//show user fields data, if any, for this user
			$user_fields_values = UserManager::get_extra_user_data(intval($user),false,false);
			foreach($user_fields_values as $value)
			{
				echo ''.$value.'';
			}
		}
	
		foreach ($possible_options as $question_id=>$possible_option)
		{
			if ($questions[$question_id]['type'] == 'open')
			{
				echo '';
				echo $answers_of_user[$question_id]['0']['option_id'];
				echo '';
			}
			else 
			{		
				foreach ($possible_option as $option_id=>$value)
				{
					echo '';
					if (!empty($answers_of_user[$question_id][$option_id]))
					{
						if ($answers_of_user[$question_id][$option_id]['value']<>0)
						{
							echo $answers_of_user[$question_id][$option_id]['value'];
						}
						else
						{
							echo 'v';
						}
					}
				}
			}
			
		}
		echo '';
	}
	
	
	/**
	 * Quite similar to display_complete_report(), returns an HTML string 
	 * that can be used in a csv file
	 * @todo consider merging this function with display_complete_report
	 * @return	string	The contents of a csv file
	 * @author Patrick Cool , Ghent University
	 * @version February 2007
	 */
	function export_complete_report($user_id=0)
	{
		// Database table definitions
		$table_survey_question 			= Database :: get_course_table(TABLE_SURVEY_QUESTION);
		$table_survey_question_option 	= Database :: get_course_table(TABLE_SURVEY_QUESTION_OPTION);
		$table_survey_answer 			= Database :: get_course_table(TABLE_SURVEY_ANSWER);
	
		// the first column
		$return = ';';
	
		//show extra fields blank space (enough for extra fields on next line)
		$display_extra_user_fields = false;
		if (!($_POST['submit_question_filter'] OR $_POST['export_report']) OR !empty($_POST['fields_filter']))
		{
			//show user fields section with a big th colspan that spans over all fields
			$extra_user_fields = UserManager::get_extra_fields(0,0,5,'ASC',false);
			$num = count($extra_user_fields);
			$return .= str_repeat(';',$num);
			$display_extra_user_fields = true;
		}
		
	
		$sql = "SELECT questions.question_id, questions.type, questions.survey_question, count(options.question_option_id) as number_of_options
				FROM $table_survey_question questions LEFT JOIN $table_survey_question_option options
				ON questions.question_id = options.question_id "
				." WHERE questions.survey_id = '".Database::escape_string($_GET['survey_id'])."'
				GROUP BY questions.question_id "
				." ORDER BY questions.sort ASC";
		$result = api_sql_query($sql, __FILE__, __LINE__);
		while ($row = Database::fetch_array($result))
		{
			// we show the questions if
			// 1. there is no question filter and the export button has not been clicked
			// 2. there is a quesiton filter but the question is selected for display
			if (!($_POST['submit_question_filter']) OR (is_array($_POST['questions_filter']) && in_array($row['question_id'], $_POST['questions_filter'])))
			{
				// we do not show comment and pagebreak question types
				if ($row['type'] <> 'comment' AND $row['type'] <> 'pagebreak')
				{
					if($row['number_of_options'] == 0 && $row['type']=='open')
					{
							$return .= str_replace("\r\n",'  ',html_entity_decode(strip_tags($row['survey_question']))).';';					
					}
					else
					{
						for ($ii = 0; $ii < $row['number_of_options']; $ii ++)
						{
							$return .= str_replace("\r\n",'  ',html_entity_decode(strip_tags($row['survey_question']))).';';
						}
					}
				}
			}
		}
		$return .= "\n";
	
		// getting all the questions and options
		$return .= ';';
		
		//show extra field values
		if (!($_POST['submit_question_filter'] OR $_POST['export_report']) OR !empty($_POST['fields_filter']))
		{
			//show the fields names for user fields
			foreach($extra_user_fields as $field)
			{
				$return .= '"'.str_replace("\r\n",'  ',html_entity_decode(strip_tags($field[3]))).'";';
			}
		}
		
		$sql = "SELECT 	survey_question.question_id, survey_question.survey_id, survey_question.survey_question, survey_question.display, survey_question.sort, survey_question.type,
						survey_question_option.question_option_id, survey_question_option.option_text, survey_question_option.sort as option_sort
				FROM $table_survey_question survey_question
				LEFT JOIN $table_survey_question_option survey_question_option
				ON survey_question.question_id = survey_question_option.question_id
				WHERE survey_question.survey_id = '".Database::escape_string($_GET['survey_id'])."'
				ORDER BY survey_question.sort ASC, survey_question_option.sort ASC";
		$result = api_sql_query($sql, __FILE__, __LINE__);
		$possible_answers = array();
		$possible_answers_type = array();
		while ($row = Database::fetch_array($result))
		{
			// we show the options if
			// 1. there is no question filter and the export button has not been clicked
			// 2. there is a quesiton filter but the question is selected for display
			if (!($_POST['submit_question_filter']) OR (is_array($_POST['questions_filter']) && in_array($row['question_id'], $_POST['questions_filter'])))
			{
				// we do not show comment and pagebreak question types
				if ($row['type'] <> 'comment' AND $row['type'] <> 'pagebreak')
				{
					$row['option_text'] = str_replace(array("\r","\n"),array('',''),$row['option_text']);
					$return .= html_entity_decode(strip_tags($row['option_text'])).';';
					$possible_answers[$row['question_id']][$row['question_option_id']] =$row['question_option_id'];
					$possible_answers_type[$row['question_id']] = $row['type'];
				}
			}
		}
		$return .= "\n";
	
		// getting all the answers of the users
		$old_user='';
		$answers_of_user = array();
		$sql = "SELECT * FROM $table_survey_answer WHERE survey_id='".Database::escape_string($_GET['survey_id'])."'";
		if ($user_id<>0)
		{
			$sql .= "AND user='".Database::escape_string($user_id)."' ";
		}
		$sql .= "ORDER BY user ASC";
		
		$open_question_iterator = 1;
		$result = api_sql_query($sql, __FILE__, __LINE__);
		while ($row = Database::fetch_array($result))
		{
			if ($old_user <> $row['user'] AND $old_user <> '')
			{
				$return .= SurveyUtil::export_complete_report_row($possible_answers, $answers_of_user, $old_user, $display_extra_user_fields);
				$answers_of_user=array();
			}
			if($possible_answers_type[$row['question_id']] == 'open')
			{
				$temp_id = 'open'.$open_question_iterator;
				$answers_of_user[$row['question_id']][$temp_id] = $row;
				$open_question_iterator++;
			}
			else
			{
				$answers_of_user[$row['question_id']][$row['option_id']] = $row;
			}
			$old_user = $row['user'];
		}
		$return .= SurveyUtil::export_complete_report_row($possible_answers, $answers_of_user, $old_user, $display_extra_user_fields); // this is to display the last user
		return $return;
	}
	
	
	/**
	 * Add a line to the csv file
	 *
	 * @param	array	Possible answers
	 * @param	array	User's answers
	 * @param 	mixed	User ID or user details as string - Used as a string in the result string
	 * @param	boolean	Whether to display user fields or not
	 * @return	string	One line of the csv file
	 * @author Patrick Cool , Ghent University
	 * @version February 2007
	 */
	function export_complete_report_row($possible_options, $answers_of_user, $user, $display_extra_user_fields=false)
	{
		global $survey_data;
		$return = '';
		if ($survey_data['anonymous'] == 0)
		{
			if(intval($user)!==0)
			{
				$sql = 'SELECT firstname, lastname FROM '.Database::get_main_table(TABLE_MAIN_USER).' WHERE user_id='.intval($user);
				$rs = api_sql_query($sql, __FILE__, __LINE__);
				if($row = Database::fetch_array($rs))
				{
					$user_displayed = $row['lastname'].' '.$row['firstname'];
				}
				else
				{
					$user_displayed = '-';
				}
				//echo '		'.$user_displayed.''; // the user column
				$return .= $user_displayed.';';
			}
			else
			{
				//echo '		'.$user.''; // the user column
				$return .= $user.';';
			}
		}
		else
		{
			$return .= '-;'; // the user column
		}

		if($display_extra_user_fields)
		{
			//show user fields data, if any, for this user
			$user_fields_values = UserManager::get_extra_user_data(intval($user),false,false);
			foreach($user_fields_values as $value)
			{
				$return .= '"'.str_replace('"','""',html_entity_decode(strip_tags($value))).'";';
			}
		}
	
	
		if(is_array($possible_options))
		{
			foreach ($possible_options as $question_id=>$possible_option)
			{
				if(is_array($possible_option) && count($possible_option)>0)
				{
					foreach ($possible_option as $option_id=>$value)
					{
						$my_answer_of_user=($answers_of_user[$question_id]==null) ? array() : $answers_of_user[$question_id];
						$key = array_keys($my_answer_of_user);
						if(substr($key[0],0,4)=='open')
						{
							$return .= '"'.str_replace('"','""',html_entity_decode(strip_tags($answers_of_user[$question_id][$key[0]]['option_id']))).'"';
						}
						elseif (!empty($answers_of_user[$question_id][$option_id]))
						{
							//$return .= 'v';
							if ($answers_of_user[$question_id][$option_id]['value']<>0)
							{
								$return .= $answers_of_user[$question_id][$option_id]['value'];
							}
							else
							{
							$return .= 'v';
						}
						}
						$return .= ';';
					}
				}
			}
		}
		$return .= "\n";
		return $return;
	}
	/**
	 * Quite similar to display_complete_report(), returns an HTML string 
	 * that can be used in a csv file
	 * @todo consider merging this function with display_complete_report
	 * @return	string	The contents of a csv file
	 * @author Patrick Cool , Ghent University
	 * @version February 2007
	 */
	function export_complete_report_xls($filename, $user_id=0)
	{
		require_once(api_get_path(LIBRARY_PATH).'pear/Spreadsheet_Excel_Writer/Writer.php');
		$workbook = new Spreadsheet_Excel_Writer();
		$workbook->send($filename);
		$worksheet =& $workbook->addWorksheet('Report 1');
		$line = 0;
		$column = 1; //skip the first column (row titles)

		//show extra fields blank space (enough for extra fields on next line)
		$display_extra_user_fields = false;
		if (!($_POST['submit_question_filter'] OR $_POST['export_report']) OR !empty($_POST['fields_filter']))
		{
			//show user fields section with a big th colspan that spans over all fields
			$extra_user_fields = UserManager::get_extra_fields(0,0,5,'ASC',false);
			$num = count($extra_user_fields);
			for($i=0;$i<$num;$i++)
			{
				$worksheet->write($line,$column,'');
				$column ++;
			}
			$display_extra_user_fields = true;
		}
		
		// Database table definitions
		$table_survey_question 			= Database :: get_course_table(TABLE_SURVEY_QUESTION);
		$table_survey_question_option 	= Database :: get_course_table(TABLE_SURVEY_QUESTION_OPTION);
		$table_survey_answer 			= Database :: get_course_table(TABLE_SURVEY_ANSWER);
	
		// First line (questions)
		$sql = "SELECT questions.question_id, questions.type, questions.survey_question, count(options.question_option_id) as number_of_options
				FROM $table_survey_question questions LEFT JOIN $table_survey_question_option options
				ON questions.question_id = options.question_id "
				." WHERE questions.survey_id = '".Database::escape_string($_GET['survey_id'])."'
				GROUP BY questions.question_id "
				." ORDER BY questions.sort ASC";
		$result = api_sql_query($sql, __FILE__, __LINE__);
		while ($row = Database::fetch_array($result))
		{
			// we show the questions if
			// 1. there is no question filter and the export button has not been clicked
			// 2. there is a quesiton filter but the question is selected for display
			if (!($_POST['submit_question_filter']) OR (is_array($_POST['questions_filter']) && in_array($row['question_id'], $_POST['questions_filter'])))
			{
				// we do not show comment and pagebreak question types
				if ($row['type'] <> 'comment' AND $row['type'] <> 'pagebreak')
				{
					if($row['number_of_options'] == 0 && $row['type']=='open')
					{
							$worksheet->write($line,$column,html_entity_decode(strip_tags($row['survey_question'])));
							$column ++;					
					}
					else
					{
						for ($ii = 0; $ii < $row['number_of_options']; $ii ++)
						{
							$worksheet->write($line,$column,html_entity_decode(strip_tags($row['survey_question'])));
							$column ++;
						}
					}
				}
			}
		}
		$line++;
		$column = 1;

		//show extra field values
		if ($display_extra_user_fields)
		{
			//show the fields names for user fields
			foreach($extra_user_fields as $field)
			{
				$worksheet->write($line,$column,html_entity_decode(strip_tags($field[3])));
				$column++;
			}
		}
	
		// getting all the questions and options (second line)
		$sql = "SELECT 	survey_question.question_id, survey_question.survey_id, survey_question.survey_question, survey_question.display, survey_question.sort, survey_question.type,
						survey_question_option.question_option_id, survey_question_option.option_text, survey_question_option.sort as option_sort
				FROM $table_survey_question survey_question
				LEFT JOIN $table_survey_question_option survey_question_option
				ON survey_question.question_id = survey_question_option.question_id
				WHERE survey_question.survey_id = '".Database::escape_string($_GET['survey_id'])."'
				ORDER BY survey_question.sort ASC, survey_question_option.sort ASC";
		$result = api_sql_query($sql, __FILE__, __LINE__);
		$possible_answers = array();
		$possible_answers_type = array();
		while ($row = Database::fetch_array($result))
		{
			// we show the options if
			// 1. there is no question filter and the export button has not been clicked
			// 2. there is a quesiton filter but the question is selected for display
			if (!($_POST['submit_question_filter']) OR (is_array($_POST['questions_filter']) && in_array($row['question_id'], $_POST['questions_filter'])))
			{
				// we do not show comment and pagebreak question types
				if ($row['type'] <> 'comment' AND $row['type'] <> 'pagebreak')
				{
					$worksheet->write($line,$column,html_entity_decode(strip_tags($row['option_text'])));
					$possible_answers[$row['question_id']][$row['question_option_id']] =$row['question_option_id'];
					$possible_answers_type[$row['question_id']] = $row['type'];
					$column++;
				}
			}
		}

		// getting all the answers of the users
		$line ++;
		$column = 0;
		$old_user='';
		$answers_of_user = array();
		$sql = "SELECT * FROM $table_survey_answer " .
				"WHERE survey_id='".Database::escape_string($_GET['survey_id'])."' ";
		if ($user_id<>0)
		{
			$sql .= "AND user='".Database::escape_string($user_id)."' ";
		}
		$sql .=	"ORDER BY user ASC";


		$open_question_iterator = 1;
		$result = api_sql_query($sql, __FILE__, __LINE__);
		while ($row = Database::fetch_array($result))
		{
			if ($old_user <> $row['user'] AND $old_user <> '')
			{
				$return = SurveyUtil::export_complete_report_row_xls($possible_answers, $answers_of_user, $old_user, $display_extra_user_fields);
				foreach($return as $elem)
				{
					$worksheet->write($line,$column,$elem);
					$column++;
				}
				$answers_of_user=array();
				$line++;
				$column=0;
			}
			if($possible_answers_type[$row['question_id']] == 'open')
			{
				$temp_id = 'open'.$open_question_iterator;
				$answers_of_user[$row['question_id']][$temp_id] = $row;
				$open_question_iterator++;
			}
			else
			{
				$answers_of_user[$row['question_id']][$row['option_id']] = $row;
			}
			$old_user = $row['user'];
		}
		$return = SurveyUtil::export_complete_report_row_xls($possible_answers, $answers_of_user, $old_user); // this is to display the last user
		foreach($return as $elem)
		{
			$worksheet->write($line,$column,$elem);
			$column++;
		}
		$workbook->close();
		return null;
	}
	
	
	/**
	 * Add a line to the csv file
	 *
	 * @param	array	Possible answers
	 * @param	array	User's answers
	 * @param 	mixed	User ID or user details as string - Used as a string in the result string
	 * @param	boolean	Whether to display user fields or not
	 * @return	string	One line of the csv file
	 */
	function export_complete_report_row_xls($possible_options, $answers_of_user, $user, $display_extra_user_fields=false)
	{
		$return = array();
		global $survey_data;
		if ($survey_data['anonymous'] == 0)
		{
			if(intval($user)!==0)
			{
				$sql = 'SELECT firstname, lastname FROM '.Database::get_main_table(TABLE_MAIN_USER).' WHERE user_id='.intval($user);
				$rs = api_sql_query($sql, __FILE__, __LINE__);
				if($row = Database::fetch_array($rs))
				{
					$user_displayed = $row['lastname'].' '.$row['firstname'];
				}
				else
				{
					$user_displayed = '-';
				}
				//echo '		'.$user_displayed.''; // the user column
				$return[] = $user_displayed;
			}
			else
			{
				//echo '		'.$user.''; // the user column
				$return[] = $user;
			}
		}
		else
		{
			$return[] = '-'; // the user column
		}
	
		if($display_extra_user_fields)
		{
			//show user fields data, if any, for this user
			$user_fields_values = UserManager::get_extra_user_data(intval($user),false,false);
			foreach($user_fields_values as $value)
			{
				$return[] = html_entity_decode(strip_tags($value));
			}
		}

		if(is_array($possible_options))
		{
			foreach ($possible_options as $question_id=>$possible_option)
			{
				if(is_array($possible_option) && count($possible_option)>0)
				{
					foreach ($possible_option as $option_id=>$value)
					{
						$my_answers_of_user=($answers_of_user[$question_id]==null) ? array() : $answers_of_user[$question_id];
						$key = array_keys($my_answers_of_user);
						if(substr($key[0],0,4)=='open')
						{
							$return[] = html_entity_decode(strip_tags($answers_of_user[$question_id][$key[0]]['option_id']));
						}
						elseif (!empty($answers_of_user[$question_id][$option_id]))
						{
							//$return .= 'v';
							if ($answers_of_user[$question_id][$option_id]['value']<>0)
							{
								$return[] = $answers_of_user[$question_id][$option_id]['value'];
							}
							else
							{
								$return[] = 'v';
							}
						}
						else
						{
							$return[] = '';
						}
					}
				}
			}
		}
		return $return;
	}
	
	/**
	 * This function displays the comparative report which allows you to compare two questions
	 * A comparative report creates a table where one question is on the x axis and a second question is on the y axis.
	 * In the intersection is the number of people who have answerd positive on both options.
	 *
	 * @return	string	HTML code
	 *
	 * @author Patrick Cool , Ghent University
	 * @version February 2007
	 */
	function display_comparative_report()
	{
		// allowed question types for comparative report
		$allowed_question_types = array('yesno', 'multiplechoice', 'multipleresponse', 'dropdown', 'percentage', 'score');
	
		// getting all the questions
		$questions = survey_manager::get_questions($_GET['survey_id']);
	
		// displaying an information message that only the questions with predefined answers can be used in a comparative report
		Display::display_normal_message(get_lang('OnlyQuestionsWithPredefinedAnswers'), false);
	
		// The form for selecting the axis of the table
		echo '
';
		// survey_id
		echo '';
		echo '';
		// X axis
		echo get_lang('SelectXAxis').': ';
		echo '';
		echo '---';
		foreach ($questions as $key=>$question)
		{
			if (is_array($allowed_question_types))
			{
				if (in_array($question['type'], $allowed_question_types))
				{
					echo ''.substr(strip_tags($question['question']), 0, 50).'';
				}
			}
			
		}
		echo '

';
		// Y axis
		echo get_lang('SelectYAxis').': ';
		echo '';
		echo '---';
		foreach ($questions as $key=>$question)
		{
			if (in_array($question['type'], $allowed_question_types))
			{
				echo ''.substr(strip_tags($question['question']), 0, 50).'';
			}
		}
		echo '

';
		echo '';
		echo '
';
	
		// getting all the information of the x axis
		if (isset($_GET['xaxis']) AND is_numeric($_GET['xaxis']))
		{
			$question_x = survey_manager::get_question($_GET['xaxis']);
		}
	
		// getting all the information of the y axis
		if (isset($_GET['yaxis']) AND is_numeric($_GET['yaxis']))
		{
			$question_y = survey_manager::get_question($_GET['yaxis']);
		}
	
		if (isset($_GET['xaxis']) AND is_numeric($_GET['xaxis']) AND isset($_GET['yaxis']) AND is_numeric($_GET['yaxis']))
		{
			// getting the answers of the two questions
			$answers_x = SurveyUtil::get_answers_of_question_by_user($_GET['survey_id'], $_GET['xaxis']);
			$answers_y = SurveyUtil::get_answers_of_question_by_user($_GET['survey_id'], $_GET['yaxis']);
	
			// displaying the table
			echo '';
	
			// the header
			echo '	';
			for ($ii=0; $ii<=count($question_x['answers']); $ii++)
			{
				if ($ii == 0)
				{
					echo '		';
				}
				else
				{
					if ($question_x['type']=='score')
					{
						for($x=1; $x<=$question_x['maximum_score']; $x++)
						{
							echo '		';
						}
						$x='';
					}
					else
					{
						echo '		';
					}
				}
			}
			echo '	';
	
			// the main part
			for ($ij=0; $ij';
						for ($ii=0; $ii<=count($question_x['answers']); $ii++)
						{
							if ($question_x['type']=='score')
							{
								for($x=1; $x<=$question_x['maximum_score']; $x++)
								{
									if ($ii == 0)
									{
										echo '		';
										break;
									}
									else
									{
										echo '		';
									}
								}
							}
							else
							{
								if ($ii == 0)
								{
									echo '		';
								}
								else
								{
									echo '		';
								}
							}
						}
						echo '	';
					}
				}
				// The Y axis is NOT a score question type so the number of rows = the number of options
				else
				{
					echo '	';
					for ($ii=0; $ii<=count($question_x['answers']); $ii++)
					{
							if ($question_x['type']=='score')
							{
								for($x=1; $x<=$question_x['maximum_score']; $x++)
								{
									if ($ii == 0)
									{
										echo '		';
										break;
									}
									else
									{
										echo '		';
									}
								}
							}
							else
							{
								if ($ii == 0)
								{
									echo '		';
								}
								else
								{
									echo '		';
								}
							}
					}
					echo '	';
				}
			}
			echo '
 
'.$question_x['answers'][($ii-1)].'
'.$x.'
'.$question_x['answers'][($ii-1)].'
'.$question_y['answers'][($ij)].' '.$y.'
';
										echo SurveyUtil::comparative_check($answers_x, $answers_y, $question_x['answersid'][($ii-1)], $question_y['answersid'][($ij)], $x, $y);
										echo '
'.$question_y['answers'][($ij)].' '.$y.'
';
									echo SurveyUtil::comparative_check($answers_x, $answers_y, $question_x['answersid'][($ii-1)], $question_y['answersid'][($ij)], 0, $y);
									echo '
'.$question_y['answers'][($ij)].'
';
										echo SurveyUtil::comparative_check($answers_x, $answers_y, $question_x['answersid'][($ii-1)], $question_y['answersid'][($ij)], $x, 0);
										echo '
'.$question_y['answers'][($ij)].'
';
									echo SurveyUtil::comparative_check($answers_x, $answers_y, $question_x['answersid'][($ii-1)], $question_y['answersid'][($ij)]);
									echo '
';
		}
	}
	
	/**
	 * Get all the answers of a question grouped by user
	 *
	 * @param	integer	Survey ID
	 * @param	integer	Question ID
	 * @return 	Array	Array containing all answers of all users, grouped by user
	 *
	 * @author Patrick Cool , Ghent University
	 * @version February 2007 - Updated March 2008
	 */
	function get_answers_of_question_by_user($survey_id, $question_id)
	{
		// Database table definitions
		$table_survey_question 			= Database :: get_course_table(TABLE_SURVEY_QUESTION);
		$table_survey_question_option 	= Database :: get_course_table(TABLE_SURVEY_QUESTION_OPTION);
		$table_survey_answer 			= Database :: get_course_table(TABLE_SURVEY_ANSWER);
	
		$sql = "SELECT * FROM $table_survey_answer
					WHERE survey_id='".Database::escape_string($survey_id)."'
					AND question_id='".Database::escape_string($question_id)."'
					ORDER BY USER ASC";
		$result = api_sql_query($sql, __FILE__, __LINE__);
		while ($row = Database::fetch_array($result))
		{
			if ($row['value'] == 0)
			{
				$return[$row['user']][] = $row['option_id'];
			}
			else
			{
				$return[$row['user']][] = $row['option_id'].'*'.$row['value'];
			}
	
		}
		return $return;
	}
	
	
	/**
	 * Count the number of users who answer positively on both options
	 *
	 * @param	array	All answers of the x axis
	 * @param	array	All answers of the y axis
	 * @param	integer x axis value (= the option_id of the first question)
	 * @param	integer y axis value (= the option_id of the second question)
	 * @return	integer Number of users who have answered positively to both options
	 *
	 * @author Patrick Cool , Ghent University
	 * @version February 2007
	 */
	function comparative_check($answers_x, $answers_y, $option_x, $option_y, $value_x=0, $value_y=0)
	{
		if ($value_x==0)
		{
			$check_x = $option_x;
		}
		else
		{
			$check_x = $option_x.'*'.$value_x;
		}
		if ($value_y==0)
		{
			$check_y = $option_y;
		}
		else
		{
			$check_y = $option_y.'*'.$value_y;
		}

		$counter = 0;
		foreach ($answers_x as $user => $answers)
		{
			// check if the user has given $option_x as answer
			if (in_array($check_x, $answers))
			{
				// check if the user has given $option_y as an answer
				if (in_array($check_y, $answers_y[$user]))
				{
					$counter++;
				}
			}
		}
		return $counter;
	}
	/**
	 * Get all the information about the invitations of a certain survey
	 *
	 * @return	array	Lines of invitation [user, code, date, empty element]
	 *
	 * @author Patrick Cool , Ghent University
	 * @version January 2007
	 *
	 * @todo use survey_id parameter instead of $_GET
	 */
	function get_survey_invitations_data()
	{
		// Database table definition
		$table_survey_invitation 		= Database :: get_course_table(TABLE_SURVEY_INVITATION);
		$table_user 					= Database :: get_main_table(TABLE_MAIN_USER);
	
		$sql = "SELECT
					survey_invitation.user as col1,
					survey_invitation.invitation_code as col2,
					survey_invitation.invitation_date as col3,
					'' as col4
					FROM $table_survey_invitation survey_invitation
			LEFT JOIN $table_user user ON  survey_invitation.user = user.user_id
			WHERE survey_invitation.survey_id = '".Database::escape_string($_GET['survey_id'])."'";
		$res = api_sql_query($sql, __FILE__, __LINE__);
		while ($row = Database::fetch_array($res))
		{
			$survey_invitation_data[] = $row;
		}
		return $survey_invitation_data;
	}
	
	/**
	 * Get the total number of survey invitations for a given survey (through $_GET['survey_id'])
	 *
	 * @return	integer	Total number of survey invitations
	 *
	 * @todo use survey_id parameter instead of $_GET
	 *
	 * @author Patrick Cool , Ghent University
	 * @version January 2007
	 */
	function get_number_of_survey_invitations()
	{
		// Database table definition
		$table_survey_invitation 		= Database :: get_course_table(TABLE_SURVEY_INVITATION);
	
		$sql = "SELECT count(user) AS total FROM $table_survey_invitation WHERE survey_id='".Database::escape_string($_GET['survey_id'])."'";
		$res = api_sql_query($sql, __FILE__, __LINE__);
		$row = Database::fetch_array($res,'ASSOC');
		return $row['total'];
	}
	/**
	 * Save the invitation mail
	 *
	 * @param string 	Text of the e-mail
	 * @param integer	Whether the mail contents are for invite mail (0, default) or reminder mail (1)
	 *
	 * @author Patrick Cool , Ghent University
	 * @version January 2007
	 */
	function save_invite_mail($mailtext, $mail_subject, $reminder=0)
	{
		// Database table definition
		$table_survey 					= Database :: get_course_table(TABLE_SURVEY);
	
		// reminder or not
		if ($reminder == 0)
		{
			$mail_field = 'invite_mail';
		}
		else
		{
			$mail_field = 'reminder_mail';
		}
	
		$sql = "UPDATE $table_survey SET mail_subject='".Database::escape_string($mail_subject)."', $mail_field = '".Database::escape_string($mailtext)."' WHERE survey_id = '".Database::escape_string($_GET['survey_id'])."'";
		$result = api_sql_query($sql, __FILE__, __LINE__);
	}
	
	/**
	 * This function saves all the invitations of course users and additional users in the
	 *
	 * @param	array	Users array
	 * @param 	string	Title of the invitation, used as the title of the mail
	 * @param 	string	Text of the invitation, used as the text of the mail.
	 * 				 The text has to contain a **link** string or this will automatically be added to the end
	 *
	 * @author Patrick Cool , Ghent University
	 * @version January 2007
	 *
	 * @todo create the survey link
	 */
	function save_invitations($users_array, $invitation_title, $invitation_text, $reminder=0, $sendmail = 0)
	{
		global $_user;
		global $_course;
		global $_configuration;
	
		// getting the survey information
		$survey_data = survey_manager::get_survey($_GET['survey_id']);
	
		// Database table definition
		$table_survey_invitation 	= Database :: get_course_table(TABLE_SURVEY_INVITATION);
		$table_user 				= Database :: get_main_table(TABLE_MAIN_USER);
	
		$already_invited = array();
		$survey_invitations = array();
		// get the people who are already invited
		if ($reminder == 1)
		{
			$survey_invitations = SurveyUtil::get_invitations($survey_data['survey_code']);
		}
		else
		{
			$already_invited = SurveyUtil::get_invited_users($survey_data['code']);
		}
	
		$counter = 0;
		if (is_array($users_array))
		{
			foreach ($users_array as $key=>$value)
			{
				if(isset($value))
				{
					// generating the unique code
					if(is_array($survey_invitations))
					{
						if ($reminder == 1 AND array_key_exists($value,$survey_invitations))
						{
							$invitation_code = $survey_invitations[$value]['invitation_code'];
						}
						else 
						{
							$invitation_code = md5($value.microtime());
						}
					}
					$survey_link = '';
					$full_invitation_text= '';
								
					// storing the invitation (only if the user_id is not in $already_invited['course_users'] OR email is not in $already_invited['additional_users']
					$add_users_array = explode(';',$already_invited['additional_users']);
					$my_alredy_invited=($already_invited['course_users']==null) ? array() : $already_invited['course_users'];
					if ((is_numeric($value) AND !in_array($value,$my_alredy_invited)) OR (!is_numeric($value) AND !in_array($value,$add_users_array)))
					{
						if(is_array($survey_invitations))
						{
							if (!array_key_exists($value,$survey_invitations))
							{
								$sql = "INSERT INTO $table_survey_invitation (user, survey_code, invitation_code, invitation_date) VALUES
											('".Database::escape_string($value)."','".Database::escape_string($survey_data['code'])."','".Database::escape_string($invitation_code)."','".Database::escape_string(date('Y-m-d H:i:s'))."')";
								$result = api_sql_query($sql, __FILE__, __LINE__);
							}
						}
						// replacing the **link** part with a valid link for the user
						$survey_link = $_configuration['root_web'].$_configuration['code_append'].'survey/'.'fillsurvey.php?course='.$_course['sysCode'].'&invitationcode='.$invitation_code;
						$text_link = ''.get_lang('ClickHereToAnswerTheSurvey')."
\r\n
\r\n".get_lang('OrCopyPasteTheFollowingUrl')." 
\r\n ".$survey_link;
						
						$replace_count = 0;
						$full_invitation_text = str_ireplace('**link**', $text_link ,$invitation_text, $replace_count);
						if ($replace_count < 1)
						{
							$full_invitation_text = $full_invitation_text . "
\r\n
\r\n".$text_link;
						}
						
		
						// optionally: finding the e-mail of the course user
						if (is_numeric($value))
						{
							$sql = "SELECT firstname, lastname, email FROM $table_user WHERE user_id='".Database::escape_string($value)."'";
							$result = api_sql_query($sql, __FILE__, __LINE__);
							$row = Database::fetch_array($result);
							$recipient_email = $row['email'];
							$recipient_name = $row['lastname'].' '.$row['firstname'];
						}
						else
						{
							/** @todo check if the $value is a valid email	 */
							$recipient_email = $value;
						}
		
						// sending the mail
						$sender_name  = $_user['lastName'].' '.$_user['firstName'];
						$sender_email = $_user['mail'];
						
						$replyto = array();
						if(api_get_setting('survey_email_sender_noreply')=='noreply')
						{
							$noreply = api_get_setting('noreply_email_address');
							if(!empty($noreply))
							{
								$replyto['Reply-to'] = $noreply;
								$sender_name = $noreply;
								$sender_email = $noreply;
							}
						}
						if ($sendmail<>0)
						{
							api_mail_html($recipient_name, $recipient_email, $invitation_title, $full_invitation_text, $sender_name, $sender_email, $replyto);
						}
						$counter++;
					}
				}
			}
		}
	
		return $counter;
	}
	
	/**
	 * This function recalculates the number of users who have been invited and updates the survey table with this value.
	 *
	 * @param	string	Survey code
	 * @return	void
	 * @author Patrick Cool , Ghent University
	 * @version January 2007
	 */
	function update_count_invited($survey_code)
	{
		// Database table definition
		$table_survey_invitation 	= Database :: get_course_table(TABLE_SURVEY_INVITATION);
		$table_survey 				= Database :: get_course_table(TABLE_SURVEY);
	
		// counting the number of people that are invited
		$sql = "SELECT count(user) as total FROM $table_survey_invitation WHERE survey_code = '".Database::escape_string($survey_code)."'";
		$result = api_sql_query($sql, __FILE__, __LINE__);
		$row = Database::fetch_array($result);
		$total_invited = $row['total'];
	
		// updating the field in the survey table
		$sql = "UPDATE $table_survey SET invited = '".Database::escape_string($total_invited)."' WHERE code = '".Database::escape_string($survey_code)."'";
		$result = api_sql_query($sql, __FILE__, __LINE__);
	}
	
	/**
	 * This function gets all the invited users for a given survey code.
	 *
	 * @param	string	Survey code
	 * @return 	array	Array containing the course users and additional users (non course users)
	 *
	 * @todo consider making $defaults['additional_users'] also an array
	 *
	 * @author Patrick Cool , Ghent University
	 * @version January 2007
	 */
	function get_invited_users($survey_code)
	{
		// Database table definition
		$table_survey_invitation 	= Database :: get_course_table(TABLE_SURVEY_INVITATION);
	 	$table_user = Database :: get_main_table(TABLE_MAIN_USER);
	 	
        // Selecting all the invitations of this survey
        $sql = "SELECT user 
                FROM $table_survey_invitation as table_invitation
                INNER JOIN $table_user as table_user
                        ON table_invitation.user = table_user.user_id
                WHERE survey_code='".Database::escape_string($survey_code)."' ORDER BY lastname, firstname";	
		
		$defaults = array();
		$defaults['course_users'] = array();
		$defaults['additional_users'] = '';
		$result = api_sql_query($sql, __FILE__, __LINE__);
		while ($row = Database::fetch_array($result))
		{
			if (is_numeric($row['user']))
			{
				$defaults['course_users'][] = $row['user'];
			}
			else
			{
				if (empty($defaults['additional_users']))
				{
					$defaults['additional_users'] = $row['user'];
				}
				else
				{
					$defaults['additional_users'] .= ';'.$row['user'];
				}
			}
		}
		return $defaults;
	}
	/**
	 * Get all the invitations
	 *
	 * @param	string	Survey code
	 * @return	array	Database rows matching the survey code
	 *
	 * @author Patrick Cool , Ghent University
	 * @version September 2007
	 */
	function get_invitations($survey_code)
	{
		// Database table definition
		$table_survey_invitation 	= Database :: get_course_table(TABLE_SURVEY_INVITATION);
	
		$sql = "SELECT * FROM $table_survey_invitation WHERE survey_code = '".Database::escape_string($survey_code)."'";
		$result = api_sql_query($sql, __FILE__, __LINE__);
		$return = array();
		while ($row = Database::fetch_array($result))
		{
			$return[$row['user']] = $row;
		}
		return $return;
	}
	/**
	 * This function displays the form for searching a survey
	 *
	 * @return	void	(direct output)
	 *
	 * @author Patrick Cool , Ghent University
	 * @version January 2007
	 *
	 * @todo use quickforms
	 * @todo consider moving this to surveymanager.inc.lib.php
	 */
	function display_survey_search_form()
	{
		echo '
';
		echo '

				

					
'.get_lang('Title').'
					

				
				

					
'.get_lang('Code').'
					

				
				

					
'.get_lang('Language').'
					

						'.get_lang('All').'';
		$languages = api_get_languages();
		foreach ($languages['name'] as $index => $name)
		{
			echo ''.$name.'';
		}
		echo '			
					
				
				

					
 
					

				
			
		
';
	}
	
	/**
	 * This function displays the sortable table with all the surveys
	 *
	 * @return	void	(direct output)
	 *
	 * @author Patrick Cool , Ghent University
	 * @version January 2007
	 */
	function display_survey_list()
	{
		$parameters = array();
		$parameters['cidReq']=api_get_course_id();
		if ($_GET['do_search'])
		{
			$message = get_lang('DisplaySearchResults').'
';
			$message .= ''.get_lang('DisplayAll').'';
			Display::display_normal_message($message, false);
		}
	
		// Create a sortable table with survey-data
		$table = new SortableTable('surveys', 'get_number_of_surveys', 'get_survey_data',2);
		$table->set_additional_parameters($parameters);
		$table->set_header(0, '', false);
		$table->set_header(1, get_lang('SurveyName'));
		$table->set_header(2, get_lang('SurveyCode'));
		$table->set_header(3, get_lang('NumberOfQuestions'));
		$table->set_header(4, get_lang('Author'));
		$table->set_header(5, get_lang('Language'));
		//$table->set_header(6, get_lang('Shared'));
		$table->set_header(6, get_lang('AvailableFrom'));
		$table->set_header(7, get_lang('AvailableUntill'));
		$table->set_header(8, get_lang('Invite'));
		$table->set_header(9, get_lang('Anonymous'));
		$table->set_header(10, get_lang('Modify'), false,'width="120"');
		$table->set_column_filter(9, 'anonymous_filter');
		$table->set_column_filter(10, 'modify_filter');
			$table->set_form_actions(array ('delete' => get_lang('DeleteSurvey')));
		$table->display();	
	}
	
	
	function display_survey_list_for_coach()
	{
		$parameters = array();
		$parameters['cidReq']=api_get_course_id();
		if ($_GET['do_search'])
		{
			$message = get_lang('DisplaySearchResults').'
';
			$message .= ''.get_lang('DisplayAll').'';
			Display::display_normal_message($message, false);
		}
	
		// Create a sortable table with survey-data
		$table = new SortableTable('surveys', 'get_number_of_surveys_for_coach', 'get_survey_data_for_coach',2);
		$table->set_additional_parameters($parameters);
		$table->set_header(0, '', false);
		$table->set_header(1, get_lang('SurveyName'));
		$table->set_header(2, get_lang('SurveyCode'));
		$table->set_header(3, get_lang('NumberOfQuestions'));
		$table->set_header(4, get_lang('Author'));
		$table->set_header(5, get_lang('Language'));
		//$table->set_header(6, get_lang('Shared'));
		$table->set_header(6, get_lang('AvailableFrom'));
		$table->set_header(7, get_lang('AvailableUntill'));
		$table->set_header(8, get_lang('Invite'));
		$table->set_header(9, get_lang('Anonymous'));
		$table->set_header(10, get_lang('Modify'), false,'width="120"');
		$table->set_column_filter(9, 'anonymous_filter');
		$table->set_column_filter(10, 'modify_filter_for_coach');	
		$table->display();
	}
	
	
	
	/**
	 * This function changes the modify column of the sortable table
	 *
	 * @param integer $survey_id the id of the survey
	 * @return html code that are the actions that can be performed on any survey
	 *
	 * @author Patrick Cool , Ghent University
	 * @version January 2007
	 */
	function modify_filter($survey_id)
	{
		global $charset;
		$survey_id = Security::remove_XSS($survey_id);
		$return = '';
		
		// coach can see that only if the survey is in his session
		if(api_is_allowed_to_edit() || api_is_element_in_the_session(TOOL_SURVEY, $survey_id))
		{
			$return .= ''.Display::return_icon('edit.gif', get_lang('Edit')).'';
			$return .= ''.Display::return_icon('delete.gif', get_lang('Delete')).'';
			$return .= ''.Display::return_icon('empty.gif', get_lang('EmptySurvey')).'';
		}
		//$return .= ''.Display::return_icon('copy.gif', get_lang('Copy')).'';
		//$return .= ''.Display::return_icon('add.gif', get_lang('Add')).'';
		$return .= ''.Display::return_icon('preview.gif', get_lang('Preview')).'';
		$return .= ''.Display::return_icon('survey_publish.gif', get_lang('Publish')).'';
		$return .= ''.Display::return_icon('statistics.gif', get_lang('Reporting')).'';
		return $return;
	}
	
	
	function modify_filter_for_coach($survey_id)
	{
		global $charset;
		$survey_id = Security::remove_XSS($survey_id);		
	//	$return = ''.Display::return_icon('edit.gif', get_lang('Edit')).'';
		//$return .= ''.Display::return_icon('delete.gif', get_lang('Delete')).'';
		//$return .= ''.Display::return_icon('copy.gif', get_lang('Copy')).'';
		//$return .= ''.Display::return_icon('add.gif', get_lang('Add')).'';
		$return .= ''.Display::return_icon('preview.gif', get_lang('Preview')).'';
		$return .= ''.Display::return_icon('survey_publish.gif', get_lang('Publish')).'';
		$return .= ''.Display::return_icon('empty.gif', get_lang('EmptySurvey')).'';
		//$return .= ''.Display::return_icon('statistics.gif', get_lang('Reporting')).'';
		return $return;
	}
	
	
	
	/**
	 * Returns "yes" when given parameter is one, "no" for any other value
	 * @param	integer	Whether anonymous or not
	 * @return	string	"Yes" or "No" in the current language
	 */
	function anonymous_filter($anonymous)
	{
		if ($anonymous == 1)
		{
			return get_lang('Yes');
		}
		else
		{
			return get_lang('No');
		}
	}
	
	
	/**
	 * This function handles the search restriction for the SQL statements
	 *
	 * @return	string	Part of a SQL statement or false on error
	 *
	 * @author Patrick Cool , Ghent University
	 * @version January 2007
	 */
	function survey_search_restriction()
	{
		if ($_GET['do_search'])
		{
			if ($_GET['keyword_title']<>'')
			{
				$search_term[] = 'title like "%" \''.Database::escape_string($_GET['keyword_title']).'\' "%"';
			}
			if ($_GET['keyword_code']<>'')
			{
				$search_term[] = 'code =\''.Database::escape_string($_GET['keyword_code']).'\'';
			}
			if ($_GET['keyword_language']<>'%')
			{
				$search_term[] = 'lang =\''.Database::escape_string($_GET['keyword_language']).'\'';
			}
			$my_search_term=($search_term==null) ? array() : $search_term;
			$search_restriction = implode(' AND ', $my_search_term);
			return $search_restriction;
		}
		else
		{
			return false;
		}
	}
	/**
	 * This function calculates the total number of surveys
	 *
	 * @return	integer	Total number of surveys
	 *
	 * @author Patrick Cool , Ghent University
	 * @version January 2007
	 */
	function get_number_of_surveys()
	{
		global $table_survey;
	
		$search_restriction = SurveyUtil::survey_search_restriction();
		if ($search_restriction)
		{
			$search_restriction = 'WHERE '.$search_restriction;
		}
		$sql = "SELECT count(survey_id) AS total_number_of_items FROM ".$table_survey.' '.$search_restriction;
		$res = api_sql_query($sql, __FILE__, __LINE__);
		$obj = Database::fetch_object($res);
		return $obj->total_number_of_items;
	}
	
	function get_number_of_surveys_for_coach()
	{
		/*global $table_survey;	
		$search_restriction = SurveyUtil::survey_search_restriction();
		if ($search_restriction)
		{
			$search_restriction = 'WHERE '.$search_restriction;
		}	
		$sql = "SELECT count(survey_id) AS total_number_of_items FROM ".$table_survey.' '.$search_restriction;
		$res = api_sql_query($sql, __FILE__, __LINE__);
		$obj = Database::fetch_object($res);
		return $obj->total_number_of_items;
		*/
		
		//ugly fix	
		require_once(api_get_path(LIBRARY_PATH).'surveymanager.lib.php');
		$survey_tree = new SurveyTree();			
		return count($survey_tree->get_last_children_from_branch($survey_tree->surveylist));
		
			
	}
	
	
	/**
	 * This function gets all the survey data that is to be displayed in the sortable table
	 *
	 * @param unknown_type $from
	 * @param unknown_type $number_of_items
	 * @param unknown_type $column
	 * @param unknown_type $direction
	 * @return unknown
	 *
	 * @author Patrick Cool , Ghent University
	 * @version January 2007
	 */
	function get_survey_data($from, $number_of_items, $column, $direction)
	{
		global $table_survey;
		global $table_user;
		global $table_survey_question;
	
		// searching
		$search_restriction = SurveyUtil::survey_search_restriction();
		if ($search_restriction)
		{
			$search_restriction = ' AND '.$search_restriction;
		}		
		
		//IF(is_shared<>0,'V','-')	 					AS col6,
		$sql = "SELECT
					survey.survey_id							AS col0,
	                CONCAT('',survey.title,'')		AS col1,
					survey.code									AS col2,
					count(survey_question.question_id)			AS col3,
	                CONCAT(user.firstname, ' ', user.lastname)	AS col4,
	                survey.lang									AS col5,	                
					survey.avail_from							AS col6,
	                survey.avail_till							AS col7,
	                CONCAT('',survey.answered,' / ',survey.invited, '')	AS col8,
	                survey.anonymous							AS col9,
	                survey.survey_id							AS col10
	             FROM $table_survey survey
				 LEFT JOIN $table_survey_question survey_question ON survey.survey_id = survey_question.survey_id
	             , $table_user user
	             WHERE survey.author = user.user_id
	             $search_restriction
	             ";
		$sql .= " GROUP BY survey.survey_id";
		$sql .= " ORDER BY col$column $direction ";
		$sql .= " LIMIT $from,$number_of_items";
		$res = api_sql_query($sql, __FILE__, __LINE__);
		$surveys = array ();
		while ($survey = Database::fetch_array($res))
		{
			$surveys[] = $survey;
		}
		return $surveys;
	}
	
	function get_survey_data_for_coach($from, $number_of_items, $column, $direction)
	{
		//echo '
';		
		//echo '----------------';
		require_once(api_get_path(LIBRARY_PATH).'surveymanager.lib.php');
		$survey_tree = new SurveyTree();
		$last_version_surveys = $survey_tree->get_last_children_from_branch($survey_tree->surveylist);
		//echo '----------------';
		//print_r($last_version_surveys);		
		$list=array();
		foreach($last_version_surveys as $survey)
		{
			$list[]=$survey['id'];
		}
		if (count($list)>0)
		{
			$list_condition = " AND survey.survey_id IN (".implode(',',$list).") ";
		}
		else
		{
			$list_condition ='';
		}
		
		$table_survey 			= Database :: get_course_table(TABLE_SURVEY);
		$table_survey_question 	= Database :: get_course_table(TABLE_SURVEY_QUESTION);
		$table_user 			= Database :: get_main_table(TABLE_MAIN_USER);

		//print_r($survey_tree->surveylist);
		
		//IF(is_shared<>0,'V','-')	 					AS col6,
		$sql = "SELECT
					survey.survey_id							AS col0,
	                survey.title	AS col1,
					survey.code									AS col2,
					count(survey_question.question_id)			AS col3,
	                CONCAT(user.firstname, ' ', user.lastname)	AS col4,
	                survey.lang									AS col5,	                
					survey.avail_from							AS col6,
	                survey.avail_till							AS col7,
	                CONCAT('',survey.answered,' / ',survey.invited, '')	AS col8,
	                survey.anonymous							AS col9,
	                survey.survey_id							AS col10
	             FROM $table_survey survey
				 LEFT JOIN $table_survey_question survey_question ON survey.survey_id = survey_question.survey_id
	             , $table_user user
	             WHERE survey.author = user.user_id $list_condition 
	             $search_restriction
	             ";
		$sql .= " GROUP BY survey.survey_id ";
		$sql .= " ORDER BY col$column $direction ";
		$sql .= " LIMIT $from,$number_of_items";
		
		$res = api_sql_query($sql, __FILE__, __LINE__);
		$surveys = array ();
		while ($survey = Database::fetch_array($res))
		{
			$surveys[] = $survey;
		}
		return $surveys;
	}
	
	
	
	/**
	 * Display all the active surveys for the given course user
	 *
	 * @param unknown_type $user_id
	 * 
	 * @author Patrick Cool , Ghent University
	 * @version April 2007
	 */
	function survey_list_user($user_id)
	{
		global $_course;	
	
		// Database table definitions
		$table_survey_question = Database :: get_course_table(TABLE_SURVEY_QUESTION);
		$table_survey_invitation = Database :: get_course_table(TABLE_SURVEY_INVITATION);
		$table_survey_answer = Database :: get_course_table(TABLE_SURVEY_ANSWER);
		$table_survey 			= Database :: get_course_table(TABLE_SURVEY);
		$table_user 			= Database :: get_main_table(TABLE_MAIN_USER);
		$all_question_id=array();
		
		$sql='SELECT question_id from '.$table_survey_question;
		$result=api_sql_query($sql,__FILE__,__LINE__);
		
		while($row=Database::fetch_array($result,'ASSOC')) {
			$all_question_id[]=$row;
		}
		
		$count=0;
		for ($i=0;$i0) {
				$link_add=true;
				break;
			}
		}
		
		echo '';
		echo '';
		echo '	';
		echo '	';
		echo '';
		$sql = "SELECT * FROM $table_survey survey, $table_survey_invitation survey_invitation
				WHERE survey_invitation.user = '".Database::escape_string($user_id)."'
				AND survey.code = survey_invitation.survey_code
				AND survey.avail_from <= '".date('Y-m-d H:i:s')."'
				AND survey.avail_till >= '".date('Y-m-d H:i:s')."'
				";
		$result = api_sql_query($sql, __FILE__, __LINE__);
		$counter = 0;
		while ($row = Database::fetch_array($result,'ASSOC'))
		{
			// get the user into survey answer table (user or anonymus)
			$sql = "SELECT user FROM $table_survey_answer 
				WHERE survey_id = (SELECT survey_id from $table_survey WHERE code ='".$row['code']."')";
			$result_answer = api_sql_query($sql, __FILE__, __LINE__);
			$row_answer = Database::fetch_array($result_answer,'ASSOC');	
			echo '';
			if ($row['answered'] == 0)
			{
				echo '';
			}
			else 
			{
				echo '';
			}
			echo '';
			echo '';
			if ($row['anonymous'] == 1) {
				$current_user_id=$_SESSION['surveyuser'];
			} else {
				$current_user_id=api_get_user_id();
			}
			$link_available=self::show_link_available(api_get_user_id(),$row['code'],$current_user_id);
			if ($link_add===true && $link_available===true) {
				echo '';
			}
		}
		echo '
'.get_lang('SurveyName').'
'.get_lang('Anonymous').'
'.$row['title'].'
'.$row['title'].'
';
			echo ($row['anonymous'] == 1)?get_lang('Yes'):get_lang('No');
			echo '
'.get_lang('CompleteTheSurveysQuestions').'
';
	}
	/**
	 * Creates a multi array with the user fields that we can show. We look the visibility with the api_get_setting function
	 * The username is always NOT able to change it. 
	 * @author Julio Montoya Armas , Dokeos: Personality Test modification
	 * @return array[value_name][name] 
	 * 		   array[value_name][visibilty] 
	 *  
	 */
	function make_field_list()
	{				
		//	LAST NAME and FIRST NAME
		$field_list_array=array();		
		$field_list_array['lastname']['name']=get_lang('Lastname');
		$field_list_array['firstname']['name']=get_lang('Firstname');			
		
		if (api_get_setting('profile', 'name') !== 'true')
		{
			$field_list_array['firstname']['visibility']=0; 
			$field_list_array['lastname']['visibility']=0;
		}
		else
		{
			$field_list_array['firstname']['visibility']=1; 
			$field_list_array['lastname']['visibility']=1;
		}
		
		$field_list_array['username']['name']=get_lang('Username');
		$field_list_array['username']['visibility']=0; 
		

		//	OFFICIAL CODE		
		$field_list_array['official_code']['name']=get_lang('OfficialCode');
		
		if (api_get_setting('profile', 'officialcode') !== 'true')
		{ 
			$field_list_array['official_code']['visibility']=1; 			
		}
		else
		{
			$field_list_array['official_code']['visibility']=0; 				
		}
		
		// EMAIL
		$field_list_array['email']['name']=get_lang('Email');		
		if (api_get_setting('profile', 'email') !== 'true')
		{ 
			$field_list_array['email']['visibility']=1; 			
		}
		else
		{
			$field_list_array['email']['visibility']=0; 				
		}
				
		// OPENID URL		
		//$field_list_array[]='openid_authentication';
		/*
		if(is_profile_editable() && api_get_setting('openid_authentication')=='true')
		{
			$form->addElement('text', 'openid', get_lang('OpenIDURL'), array('size' => 40));
			if (api_get_setting('profile', 'openid') !== 'true')
				$form->freeze('openid');
			$form->applyFilter('openid', 'trim');
			//if (api_get_setting('registration', 'openid') == 'true')
			//	$form->addRule('openid', get_lang('ThisFieldIsRequired'), 'required');
		}*/
		
		// PHONE
		$field_list_array['phone']['name']=get_lang('Phone');
		if (api_get_setting('profile', 'phone') !== 'true')
		{ 
			$field_list_array['phone']['visibility']=0;
		}
		else
		{
			$field_list_array['phone']['visibility']=1;		
		}
		//	LANGUAGE
		$field_list_array['language']['name']=get_lang('Language');
		if (api_get_setting('profile', 'language') !== 'true')
		{ 
			$field_list_array['language']['visibility']=0;
		}
		else
		{
			$field_list_array['language']['visibility']=1;		
		}
		

		// EXTRA FIELDS
		$extra = UserManager::get_extra_fields(0,50,5,'ASC');
		$extra_data = UserManager::get_extra_user_data(api_get_user_id(),true);
		foreach($extra as $id => $field_details)
		{
			if($field_details[6] == 0)
			{
				continue;
			}
			switch($field_details[2])
			{
				case USER_FIELD_TYPE_TEXT:
				
				
					$field_list_array['extra_'.$field_details[1]]['name']=$field_details[3];
					if ($field_details[7] == 0)
					{ 
						$field_list_array['extra_'.$field_details[1]]['visibility']=0;
					}
					else
					{
						$field_list_array['extra_'.$field_details[1]]['visibility']=1;		
					}
					
					break;
				case USER_FIELD_TYPE_TEXTAREA:
				
					$field_list_array['extra_'.$field_details[1]]['name']=$field_details[3];
					if ($field_details[7] == 0)
					{ 
						$field_list_array['extra_'.$field_details[1]]['visibility']=0;
					}
					else
					{
						$field_list_array['extra_'.$field_details[1]]['visibility']=1;		
					}					
					break;
				case USER_FIELD_TYPE_RADIO:
				
					$field_list_array['extra_'.$field_details[1]]['name']=$field_details[3];
					if ($field_details[7] == 0)
					{ 
						$field_list_array['extra_'.$field_details[1]]['visibility']=0;
					}
					else
					{
						$field_list_array['extra_'.$field_details[1]]['visibility']=1;		
					}
					break;
				case USER_FIELD_TYPE_SELECT:
					$field_list_array['extra_'.$field_details[1]]['name']=$field_details[3];
					if ($field_details[7] == 0)
					{ 
						$field_list_array['extra_'.$field_details[1]]['visibility']=0;
					}
					else
					{
						$field_list_array['extra_'.$field_details[1]]['visibility']=1;		
					}						
					break;
				case USER_FIELD_TYPE_SELECT_MULTIPLE:
				
					$field_list_array['extra_'.$field_details[1]]['name']=$field_details[3];
					if ($field_details[7] == 0)
					{ 
						$field_list_array['extra_'.$field_details[1]]['visibility']=0;
					}
					else
					{
						$field_list_array['extra_'.$field_details[1]]['visibility']=1;		
					}					
					break;
				case USER_FIELD_TYPE_DATE:
				
					$field_list_array['extra_'.$field_details[1]]['name']=$field_details[3];
					if ($field_details[7] == 0)
					{ 
						$field_list_array['extra_'.$field_details[1]]['visibility']=0;
					}
					else
					{
						$field_list_array['extra_'.$field_details[1]]['visibility']=1;		
					}					
					break;
				case USER_FIELD_TYPE_DATETIME:
				
					$field_list_array['extra_'.$field_details[1]]['name']=$field_details[3];
					if ($field_details[7] == 0)
					{ 
						$field_list_array['extra_'.$field_details[1]]['visibility']=0;
					}
					else
					{
						$field_list_array['extra_'.$field_details[1]]['visibility']=1;		
					}					
					break;
				case USER_FIELD_TYPE_DOUBLE_SELECT:
				
					$field_list_array['extra_'.$field_details[1]]['name']=$field_details[3];
					if ($field_details[7] == 0)
					{ 
						$field_list_array['extra_'.$field_details[1]]['visibility']=0;
					}
					else
					{
						$field_list_array['extra_'.$field_details[1]]['visibility']=1;		
					}
					/*
					foreach ($field_details[8] as $key=>$element)
					{
						if ($element[2][0] == '*')
						{
							$values['*'][$element[0]] = str_replace('*','',$element[2]);
						}
						else 
						{
							$values[0][$element[0]] = $element[2];
						}
					}
					
					$group='';
					$group[] =& HTML_QuickForm::createElement('select', 'extra_'.$field_details[1],'',$values[0],'');
					$group[] =& HTML_QuickForm::createElement('select', 'extra_'.$field_details[1].'*','',$values['*'],'');
					$form->addGroup($group, 'extra_'.$field_details[1], $field_details[3], ' ');
					if ($field_details[7] == 0)	$form->freeze('extra_'.$field_details[1]);
		
					// recoding the selected values for double : if the user has selected certain values, we have to assign them to the correct select form
					if (key_exists('extra_'.$field_details[1], $extra_data))
					{
						// exploding all the selected values (of both select forms)
						$selected_values = explode(';',$extra_data['extra_'.$field_details[1]]);
						$extra_data['extra_'.$field_details[1]]  =array();
						
						// looping through the selected values and assigning the selected values to either the first or second select form
						foreach ($selected_values as $key=>$selected_value)
						{
							if (key_exists($selected_value,$values[0]))
							{
								$extra_data['extra_'.$field_details[1]]['extra_'.$field_details[1]] = $selected_value;
							}
							else 
							{
								$extra_data['extra_'.$field_details[1]]['extra_'.$field_details[1].'*'] = $selected_value;
							}
						}
					}*/
					break;
				case USER_FIELD_TYPE_DIVIDER:
					//$form->addElement('static',$field_details[1], '
'.$field_details[3].'');
					break;
			}
		}
		return $field_list_array;
	}
	/**
	 * @author Isaac Flores Paz 
	 * @param int $user_id - User ID
	 * @param int $user_id_answer - User in survey answer table (user id or anonymus)
	 * @return boolean  
	 *  
	 */
	function show_link_available($user_id,$survey_code,$user_answer) {
		$table_survey = Database :: get_course_table(TABLE_SURVEY);
		$table_survey_invitation = Database :: get_course_table(TABLE_SURVEY_INVITATION);
		$table_survey_answer = Database :: get_course_table(TABLE_SURVEY_ANSWER);
		$table_survey_question = Database :: get_course_table(TABLE_SURVEY_QUESTION);

		$sql='SELECT COUNT(*) as count FROM '.$table_survey_invitation.' WHERE user='.$user_id.' AND survey_code="'.$survey_code.'" AND answered="1"';
		$sql2='SELECT COUNT(*) as count FROM '.$table_survey.' s INNER JOIN '.$table_survey_question.' q ON s.survey_id=q.survey_id WHERE s.code="'.$survey_code.'" AND q.type NOT IN("pagebreak","comment")';
		$sql3='SELECT COUNT(*) as count FROM '.$table_survey_answer.' WHERE survey_id=(SELECT survey_id FROM '.$table_survey.' WHERE code="'.$survey_code.'") AND user="'.$user_answer.'" ';		
		
		$result=api_sql_query($sql,__FILE__,__LINE__);
		$result2=api_sql_query($sql2,__FILE__,__LINE__);
		$result3=api_sql_query($sql3,__FILE__,__LINE__);
		
		$row=Database::fetch_array($result,'ASSOC');
		$row2=Database::fetch_array($result2,'ASSOC');
		$row3=Database::fetch_array($result3,'ASSOC');

		if ($row['count']==1 && $row3['count']!=$row2['count']) {
			return true;
		} else {
			return false;
		}
	}
}

?>