<?php

// A new question pool code was added
exit;

/* For licensing terms, see /license.txt */

/**
*	Question Pool
* 	This script allows administrators to manage questions and add them into their exercises.
* 	One question can be in several exercises
*	@package chamilo.exercise
* 	@author Olivier Brouckaert
*   @author Julio Montoya adding support to query all questions from all session, courses, exercises
*   @author Modify by hubert borderiou 2011-10-21 Question's category
*/
/**
 * Code
 */
// name of the language file that needs to be included

use \ChamiloSession as Session;

$language_file = 'exercice';

require_once 'exercise.class.php';
require_once 'question.class.php';
require_once 'answer.class.php';
require_once '../inc/global.inc.php';

$this_section = SECTION_COURSES;

$is_allowedToEdit = api_is_allowed_to_edit(null,true);

$delete = isset($_GET['delete']) ? intval($_GET['delete']) : null;
$recup = isset($_GET['recup']) ? intval($_GET['recup']) : null;
$fromExercise = isset($_REQUEST['fromExercise']) ? intval($_REQUEST['fromExercise']) : null;
$exerciseId = isset($_REQUEST['exerciseId']) ? intval($_REQUEST['exerciseId']) : null;
$courseCategoryId = isset($_REQUEST['courseCategoryId']) ? intval($_REQUEST['courseCategoryId']) : null;
$exerciseLevel = isset($_REQUEST['exerciseLevel']) ? intval($_REQUEST['exerciseLevel']) : -1;
$answerType = isset($_REQUEST['answerType']) ? intval($_REQUEST['answerType']) : -1;
$page = isset($_REQUEST['page']) ? intval($_REQUEST['page']) : 0;
$copy_question = isset($_REQUEST['copy_question']) ? intval($_REQUEST['copy_question']) : 0;

$session_id = isset($_REQUEST['session_id']) ? intval($_REQUEST['session_id']) : 0;
$selected_course = isset($_REQUEST['selected_course']) ? intval($_REQUEST['selected_course']) : 0;
// save the id of the previous course selected by user to reset menu if we detect that user change course hub 13-10-2011
$course_id_changed = isset($_REQUEST['course_id_changed']) ? intval($_REQUEST['course_id_changed']) : 0;
// save the id of the previous exercice selected by user to reset menu if we detect that user change course hub 13-10-2011
$exercice_id_changed = isset($_REQUEST['exercice_id_changed']) ? intval($_REQUEST['exercice_id_changed']) : 0;

// by default when we go to the page for the first time, we select the current course
if (!isset($_GET['selected_course']) && !isset($_GET['exerciseId'])) {
	$selected_course = api_get_course_int_id();
}

// document path
$documentPath = api_get_path(SYS_COURSE_PATH).$_course['path'].'/document';
// picture path
$picturePath = $documentPath.'/images';

if(!($objExercise instanceOf Exercise) && !empty($fromExercise)) {
    $objExercise = new Exercise();
    $objExercise->read($fromExercise);
}

$nameTools = get_lang('QuestionPool');
$interbreadcrumb[] = array("url" => "exercice.php","name" => get_lang('Exercices'));
$interbreadcrumb[] = array("url" => "admin.php?exerciseId=".$objExercise->id, "name" => $objExercise->name);

$displayMessage = "";	// messag to be displayed if actions succesfull
if ($is_allowedToEdit) {
	//Duplicating a Question
	if (!isset($_POST['recup']) && $copy_question != 0 && isset($fromExercise)) {
        $origin_course_id   = intval($_GET['course_id']);
        $origin_course_info = api_get_course_info_by_id($origin_course_id);
        $current_course     = api_get_course_info();
        $old_question_id    = $copy_question;
        //Reading the source question
		$old_question_obj = Question::read($old_question_id, $origin_course_id);

		if ($old_question_obj) {
			$old_question_obj->updateTitle($old_question_obj->selectTitle().' - '.get_lang('Copy'));
            //Duplicating the source question, in the current course
			$new_id = $old_question_obj->duplicate($current_course);
            //Reading new question
			$new_question_obj = Question::read($new_id);
			$new_question_obj->addToList($fromExercise);
            //Reading Answers obj of the current course
			$new_answer_obj = new Answer($old_question_id, $origin_course_id);
			$new_answer_obj->read();
            //Duplicating the Answers in the current course
			$new_answer_obj->duplicate($new_id, $current_course);
			// destruction of the Question object
			unset($new_question_obj);
			unset($old_question_obj);
            if (!$objExercise instanceOf Exercise) {
                $objExercise = new Exercise();
                $objExercise->read($fromExercise);
            }
			Session::write('objExercise', $objExercise);
		}
		$displayMessage = get_lang('ItemAdded');
	}
	// deletes a question from the database and all exercises
	if ($delete) {
		// Construction of the Question object
        $objQuestionTmp = Question::read($delete);
		// if the question exists
		if ($objQuestionTmp) {
			// deletes the question from all exercises
			$objQuestionTmp->delete();
		}
		// destruction of the Question object
		unset($objQuestionTmp);
	} elseif($recup && $fromExercise) {
		// gets an existing question and copies it into a new exercise
		$objQuestionTmp = Question :: read($recup);
		// if the question exists
		if ($objQuestionTmp) {
			// adds the exercise ID represented by $fromExercise into the list of exercises for the current question
			$objQuestionTmp->addToList($fromExercise);
		}
		// destruction of the Question object
		unset($objQuestionTmp);

        if (!$objExercise instanceOf Exercise) {
        	$objExercise = new Exercise();
            $objExercise->read($fromExercise);
        }
		// adds the question ID represented by $recup into the list of questions for the current exercise
		$objExercise->addToList($recup);
		Session::write('objExercise',$objExercise);

    } else if (isset($_POST['recup']) && is_array($_POST['recup']) && $fromExercise) {
		$list_recup 		= $_POST['recup'];

		foreach ($list_recup as $course_id => $question_data) {

			$origin_course_id   = intval($course_id);
			$origin_course_info = api_get_course_info_by_id($origin_course_id);
			$current_course     = api_get_course_info();

			foreach ($question_data as $old_question_id) {

				//Reading the source question
				$old_question_obj = Question::read($old_question_id, $origin_course_id);
				if ($old_question_obj) {
					$old_question_obj->updateTitle($old_question_obj->selectTitle().' - '.get_lang('Copy'));

					//Duplicating the source question, in the current course
					$new_id = $old_question_obj->duplicate($current_course);

					//Reading new question
					$new_question_obj = Question::read($new_id);
					$new_question_obj->addToList($fromExercise);

					//Reading Answers obj of the current course
					$new_answer_obj = new Answer($old_question_id, $origin_course_id);
					$new_answer_obj->read();

					//Duplicating the Answers in the current course
					$new_answer_obj->duplicate($new_id, $current_course);

					// destruction of the Question object
					unset($new_question_obj);
					unset($old_question_obj);

					if (!$objExercise instanceOf Exercise) {
						$objExercise = new Exercise();
						$objExercise->read($fromExercise);
					}
				}
			}
		}
		Session::write('objExercise',$objExercise);
	}
}

if (isset($_SESSION['gradebook'])){
	$gradebook=	$_SESSION['gradebook'];
}

if (!empty($gradebook) && $gradebook=='view') {
	$interbreadcrumb[]= array ('url' => '../gradebook/'.Security::remove_XSS($_SESSION['gradebook_dest']),'name' => get_lang('ToolGradebook'));
}

// if admin of course
if (!$is_allowedToEdit) {
    api_not_allowed(true);
}

$confirmYourChoice = addslashes(api_htmlentities(get_lang('ConfirmYourChoice'),ENT_QUOTES,$charset));

$htmlHeadXtra[] = "
<script>
	function submit_form(obj) {
		document.question_pool.submit();
	}

	function mark_course_id_changed() {
		$('#course_id_changed').val('1');
	}

	function mark_exercice_id_changed() {
		$('#exercice_id_changed').val('1');
	}

	function confirm_your_choice() {
		return confirm('$confirmYourChoice');
	}
</script>";

Display::display_header($nameTools,'Exercise');

// Menu
echo '<div class="actions">';
	if (isset($type)) {
		$url = api_get_self().'?type=1';
	} else {
		$url = api_get_self();
	}
	if (isset($fromExercise) && $fromExercise > 0) {
		echo '<a href="admin.php?'.api_get_cidreq().'&exerciseId='.$fromExercise.'">'.Display::return_icon('back.png', get_lang('GoBackToQuestionList'),'',ICON_SIZE_MEDIUM).'</a>';
		$titleAdd = get_lang('AddQuestionToTest');
    } else {
		echo '<a href="exercice.php?'.api_get_cidReq().'">'.Display::return_icon('back.png', get_lang('BackToExercisesList'),'',ICON_SIZE_MEDIUM).'</a>';
		echo "<a href='admin.php?exerciseId=0'>".Display::return_icon('add_question.gif', get_lang('NewQu'), '', 32)."</a>";
		$titleAdd = get_lang('ManageAllQuestions');
	}
echo '</div>';

if ($displayMessage != "") {
	Display::display_confirmation_message($displayMessage);
	$displayMessage = "";
}

//Form
echo '<form class="form-horizontal" name="question_pool" method="GET" action="'.$url.'">';
//Title
echo '<legend>'.$nameTools.' - '.$titleAdd.'</legend>';
if (isset($type)) {
	echo '<input type="hidden" name="type" value="1">';
}
echo '<input type="hidden" name="fromExercise" value="'.$fromExercise.'">';

// Session list, if sessions are used.
$session_list = SessionManager::get_sessions_by_general_coach(api_get_user_id());
$tabAttrParam = array('class'=>'chzn-select', 'onchange'=>'submit_form(this)');	// when sessions are used
$labelFormRow = get_lang('Session');
$session_select_list = array();
foreach($session_list as $item) {
	$session_select_list[$item['id']] = $item['name'];
}
$select_session_html =  Display::select('session_id', $session_select_list, $session_id, $tabAttrParam);
echo Display::form_row($labelFormRow, $select_session_html);	// hub 13-10-2011

// Course list, get course list of session, or for course where user is admin
if (!empty($session_id) && $session_id != '-1') {
	$course_list = SessionManager::get_course_list_by_session_id($session_id);
} else {
	$course_list = CourseManager::get_course_list_of_user_as_course_admin(api_get_user_id());
}
$course_select_list = array();
foreach ($course_list as $item) {
	$course_select_list[$item['real_id']] = "";
	if ($item['real_id'] == api_get_course_int_id()) {
		$course_select_list[$item['real_id']] = ">&nbsp;&nbsp;&nbsp;&nbsp;";
	}
	$course_select_list[$item['real_id']] .= $item['title'];
}

$select_course_html =  Display::select('selected_course', $course_select_list, $selected_course, array('class'=>'chzn-select','onchange'=>'mark_course_id_changed(); submit_form(this);'));
echo Display::form_row(get_lang('Course'), $select_course_html);

if (empty($selected_course) || $selected_course == '-1') {
    $course_info = api_get_course_info();
    reset_menu_exo_lvl_type();    // no course selected, reset menu test / difficult� / type de reponse // hub 13-10-2011
} else {
	$course_info = CourseManager::get_course_information_by_id($selected_course);
}
// If course has changed, reset the menu default
if ($course_id_changed) {
	reset_menu_exo_lvl_type();
}
$course_id = $course_info['real_id'];
//Redefining table calls
$TBL_EXERCICE_QUESTION      = Database::get_course_table(TABLE_QUIZ_TEST_QUESTION);
$TBL_EXERCICES              = Database::get_course_table(TABLE_QUIZ_TEST);
$TBL_QUESTIONS              = Database::get_course_table(TABLE_QUIZ_QUESTION);
$TBL_REPONSES               = Database::get_course_table(TABLE_QUIZ_ANSWER);
$TBL_CATEGORY               = Database::get_course_table(TABLE_QUIZ_CATEGORY);		// hub 13-10-2011
$TBL_COURSE_REL_CATEGORY	= Database::get_course_table(TABLE_QUIZ_QUESTION_REL_CATEGORY);  // hub 13-10-2011

// Get course categories for the selected course

// get category list for the course $selected_course
$tabCatList = Testcategory::getCategoriesIdAndName($selected_course);
$selectCourseCateogry = Display::select('courseCategoryId', $tabCatList, $courseCategoryId, array('class'=>'chzn-select','onchange'=>'submit_form(this);'), false);
echo Display::form_row(get_lang("QuestionCategory"), $selectCourseCateogry);

// Get exercice list for this course

$exercise_list         = ExerciseLib::get_all_exercises_for_course_id($session_id, $selected_course);
//Exercise List
$my_exercise_list = array();
$my_exercise_list['0']  = get_lang('AllExercises');
$my_exercise_list['-1'] = get_lang('OrphanQuestions');

if (is_array($exercise_list)) {
    foreach($exercise_list as $row) {
        $my_exercise_list[$row['iid']] = "";
        if ($row['iid'] ==  $fromExercise && $selected_course == api_get_course_int_id()) {
            $my_exercise_list[$row['iid']] = ">&nbsp;&nbsp;&nbsp;&nbsp;";	// hub 13-10-2011
        }
        $my_exercise_list[$row['iid']] .= $row['title'];
    }
}

if ($exercice_id_changed == 1) {
	reset_menu_lvl_type();
}
$select_exercise_html =  Display::select('exerciseId', $my_exercise_list, $exerciseId, array('class'=>'chzn-select','onchange'=>'mark_exercice_id_changed(); submit_form(this);'), false);
echo Display::form_row(get_lang('Exercise'), $select_exercise_html);

// Difficulty list (only from 0 to 5)

$levels = Question::get_default_levels();
$levels['-1'] = get_lang('All');
$select_difficulty_html = Display::select('exerciseLevel', $levels, $exerciseLevel, array('class' => 'chzn-select', 'onchange' => 'submit_form(this);'), false);
echo Display::form_row(get_lang('Difficulty'), $select_difficulty_html);


// Answer type

$question_list = Question::get_question_type_list();

$new_question_list = array();
$new_question_list['-1']  = get_lang('All');
$objExercise = new Exercise();
$objExercise->read($fromExercise);
foreach ($question_list as $key=>$item) {
    if ($objExercise->feedback_type == EXERCISE_FEEDBACK_TYPE_DIRECT) {
        if (!in_array($key, array(HOT_SPOT_DELINEATION, UNIQUE_ANSWER))) {
            continue;
        }
        $new_question_list[$key] = get_lang($item[1]);
    } else {
        if ($key == HOT_SPOT_DELINEATION) {
            continue;
        }
        $new_question_list[$key] = get_lang($item[1]);
    }
}

//Answer type list
$select_answer_html = Display::select('answerType', $new_question_list, $answerType, array('class'=>'chzn-select','onchange'=>'submit_form(this);'), false);
echo Display::form_row(get_lang('AnswerType'), $select_answer_html);
$button = '<button class="save" type="submit" name="name" value="'.get_lang('Filter').'">'.get_lang('Filter').'</button>';
echo Display::form_row('', $button);
echo "<input type='hidden' id='course_id_changed' name='course_id_changed' value='0' />";
echo "<input type='hidden' id='exercice_id_changed' name='exercice_id_changed' value='0' />";
?>
</form>
<div class="clear"></div>
<form method="post" action="<?php echo $url.'?'.api_get_cidreq().'&fromExercise='.$fromExercise; ?>" >
<?php
echo '<input type="hidden" name="course_id" value="'.$selected_course.'">';


// if we have selected an exercise in the list-box 'Filter'

if ($exerciseId > 0) {
	$where = '';
	$from = '';
	if (isset($courseCategoryId) && $courseCategoryId > 0) {
		$from = ", $TBL_COURSE_REL_CATEGORY crc ";
            $where .= " AND crc.c_id = $selected_course AND crc.question_id = qu.iid AND crc.category_id = $courseCategoryId";
	}
	if (isset($exerciseLevel) && $exerciseLevel != -1) {
		$where .= ' AND level='.$exerciseLevel;
	}
	if (isset($answerType) && $answerType > 0) {
		$where .= ' AND type='.$answerType;
	}
        $sql = "SELECT DISTINCT iid, question, type, level
	        FROM
	            $TBL_EXERCICE_QUESTION qt,
	            $TBL_QUESTIONS qu
	            $from
	        WHERE
                qt.question_id = qu.iid
	            AND qt.exercice_id = $exerciseId
	            AND qt.c_id = $selected_course
	            AND qu.c_id = $selected_course
	            $where
            ORDER BY question_order";
    $result=Database::query($sql);
    while($row = Database::fetch_array($result, 'ASSOC')) {
        $main_question_list[] = $row;
    }
} elseif ($exerciseId == -1) {
	// If we have selected the option 'Orphan questions' in the list-box 'Filter'

	$level_where = '';
	$from = '';
	if (isset($courseCategoryId) && $courseCategoryId > 0) {
		$from = ", $TBL_COURSE_REL_CATEGORY crc ";
            $level_where .= " AND crc.c_id= $selected_course AND crc.question_id = qu.iid AND crc.category_id = $courseCategoryId";
	}
	if (isset($exerciseLevel) && $exerciseLevel!= -1 ) {
		$level_where = ' AND level = '.$exerciseLevel;
	}
	$answer_where = '';
	if (isset($answerType) && $answerType >0 -1 ) {
        $answer_where = ' AND type = '.$answerType;
	}

	/*$sql = "SELECT DISTINCT * FROM $TBL_QUESTIONS qu $from
            WHERE qu.c_id = $selected_course AND qu.id NOT IN (
              SELECT question_id FROM $TBL_EXERCICE_QUESTION
              WHERE c_id=$selected_course
            ) $level_where $answer_where";*/

    // @todo fix this query with the new iid field

    $sql = " (
                SELECT q.* FROM $TBL_QUESTIONS q INNER JOIN $TBL_EXERCICE_QUESTION r
                ON (q.c_id = r.c_id AND q.iid = r.question_id)
                INNER JOIN $TBL_EXERCICES ex
                ON (ex.id = r.exercice_id AND ex.c_id = r.c_id ) $from
                WHERE ex.c_id = '$selected_course' AND ex.active = '-1'   $level_where $answer_where
             )
             UNION
             (
                SELECT q.* FROM $TBL_QUESTIONS q
                LEFT OUTER JOIN $TBL_EXERCICE_QUESTION r
                ON (q.c_id = r.c_id AND q.iid = r.question_id)
                WHERE q.c_id = '$selected_course' AND r.question_id is null $level_where $answer_where
             )
             UNION
             (
                SELECT q.* FROM $TBL_QUESTIONS q
                INNER JOIN $TBL_EXERCICE_QUESTION r
                ON (q.c_id = r.c_id AND q.iid = r.question_id)
                WHERE r.c_id = '$selected_course' AND r.exercice_id = '-1' OR r.exercice_id = '0' $level_where $answer_where
             )";

    $result = Database::query($sql);
    while($row = Database::fetch_array($result, 'ASSOC')) {
        $main_question_list[] = $row;
    }
} else {
	// All tests for selected course
    // If we have not selected any option in the list-box 'Filter'
	$filter = '';
	$from = '';

	if (isset($courseCategoryId) && $courseCategoryId > 0) {
		$from = ", $TBL_COURSE_REL_CATEGORY crc ";
            $filter .= " AND crc.c_id = $selected_course AND crc.question_id = qu.iid AND crc.category_id = $courseCategoryId";
	}
	if (isset($exerciseLevel) && $exerciseLevel != -1) {
		$filter .= ' AND level='.$exerciseLevel.' ';
	}
	if (isset($answerType) && $answerType > 0) {
		$filter .= ' AND qu.type='.$answerType.' ';
	}
  if (!empty($session_id) && $session_id != '-1') {
    $main_question_list = array();
    if (!empty($course_list))
    foreach ($course_list as $course_item) {
      if (!empty($selected_course) && $selected_course != '-1') {
          if ($selected_course != $course_item['id']) {
          	continue;
          }
      }
      $exercise_list = ExerciseLib::get_all_exercises($course_item, $session_id);
      if (!empty($exercise_list)) {
        foreach ($exercise_list as $exercise) {
          $my_exercise = new Exercise($course_item['id']);
          $my_exercise->read($exercise['id']);
          if (!empty($my_exercise)) {
            if (!empty($my_exercise->questionList)) {
              foreach ($my_exercise->questionList as $question_id) {
              	$question_obj = Question::read($question_id, $course_item['id']);
                if ($exerciseLevel != '-1')
                if ($exerciseLevel != $question_obj->level) {
                	continue;
                }
                if ($answerType > 0)
                if ($answerType != $question_obj->type) {
                	continue;
                }
                $category_list = Testcategory::getCategoryForQuestion($question_obj->id, $selected_course);

                if ($courseCategoryId > 0 && !empty($category_list)) {
                	continue;
                }
                if ($objExercise->feedback_type != EXERCISE_FEEDBACK_TYPE_DIRECT) {
                   if ($question_obj->type == HOT_SPOT_DELINEATION)  {
                     continue;
                   }
                }
                $question_row = array(
                    'id' => $question_obj->id,
					'question'		=> $question_obj->question,
					'type'			=> $question_obj->type,
					'level'			=> $question_obj->level,
					'exercise_id'	=> $exercise['id'],
					'course_id'		=> $course_item['id'],
                );
                $main_question_list[]    = $question_row;
              }
            }
          }
        }
      }
    }
} else {
    // All tests for the course selected, not in session
            $sql = "SELECT DISTINCT qu.iid, question, qu.type, level, q.session_id
                    FROM $TBL_QUESTIONS as qu, $TBL_EXERCICE_QUESTION as qt, $TBL_EXERCICES as q $from
                    WHERE   qu.c_id = $selected_course AND
                            qt.c_id = $selected_course AND
                            q.c_id = $selected_course AND
                            qu.iid = qt.question_id AND
                            q.iid = qt.exercice_id $filter
                    ORDER BY session_id ASC";
  	$result = Database::query($sql);
  	while($row = Database::fetch_array($result, 'ASSOC')) {
  		$main_question_list[] = $row;
  	}
  }
	// forces the value to 0
	$exerciseId=0;
}

$nbrQuestions = count($main_question_list);

// build the line of the array to display questions
// Actions are different if you launch the question_pool page
// They are different too if you have displayed questions from your course
// Or from another course you are the admin(or session admin)
// from a test or not
/*
+--------------------------------------------+--------------------------------------------+
|   NOT IN A TEST                            |         IN A TEST                          |
+----------------------+---------------------+---------------------+----------------------+
|IN THE COURSE (*)  "x | NOT IN THE COURSE o | IN THE COURSE    +  | NOT IN THE COURSE  o |
+----------------------+---------------------+---------------------+----------------------+
|Edit the question     | Do nothing          | Add question to test|Clone question in test|
|Delete the question   |                     |                     |                      |
|(true delete)         |                     |                     |                      |
+----------------------+---------------------+---------------------+----------------------+
(*) this is the only way to delete or modify orphan questions
*/
//
if ($fromExercise <= 0) { // NOT IN A TEST - IN THE COURSE
	if ($selected_course == api_get_course_int_id()) {
		$actionLabel = get_lang('Modify');
		$actionIcon1 = "edit";
		$actionIcon2 = "delete";
		$questionTagA = 1;	// we are in the course, question title can be a link to the question edit page
    } else { // NOT IN A TEST - NOT IN THE COURSE
		$actionLabel = get_lang('Reuse');
		$actionIcon1 = get_lang('MustBeInATest');
		$actionIcon2 = "";
		$questionTagA = 0;	// we are not in this course, to messy if we link to the question in another course
	}
} else { // IN A TEST - IN THE COURSE
	if ($selected_course == api_get_course_int_id()) {
		$actionLabel = get_lang('Reuse');
		$actionIcon1 = "add";
		$actionIcon2 = "";
		$questionTagA = 1;
    } else { // IN A TEST - NOT IN THE COURSE
		$actionLabel = get_lang('Reuse');
		$actionIcon1 = "clone";
		$actionIcon2 = "";
		$questionTagA = 0;
	}
}
// Display table
$header = array();
$header[] = array(get_lang('QuestionUpperCaseFirstLetter'), false, array("style"=>"text-align:center"), '');
$header[] = array(get_lang('Type'), false, array("style"=>"text-align:center"), array("style"=>"text-align:center"), '');
$header[] = array(get_lang('QuestionCategory'), false, array("style"=>"text-align:center"), array("style"=>"text-align:center"), '');
$header[] = array(get_lang('Difficulty'), false, array("style"=>"text-align:center"), array("style"=>"text-align:center"), '');
$header[] = array($actionLabel, false, array("style"=>"text-align:center"), array("style"=>"text-align:center"), '');

$data = array();

if (is_array($main_question_list)) {
    $all_category_list = Testcategory::getCategoryListName($selected_course);
    foreach ($main_question_list as $question_item) {
        $row = array();
            $question_id_item = $question_item['iid'];

        //This function checks if the question can be read
            $question_type = get_question_type_for_question($selected_course, $question_id_item);

        if (empty($question_type)) {
            continue;
        }

        $row[] = get_a_tag_for_question($questionTagA, $fromExercise, $question_id_item, $question_item['type'], $question_item['question']);
        $row[] = $question_type;
        $row[] = get_question_category_for_question($selected_course, $question_id_item);
        $row[] = $question_item['level'];
        $row[] = get_action_icon_for_question($actionIcon1, $fromExercise, $question_id_item, $question_item['type'], $question_item['question'], $selected_course, $courseCategoryId, $exerciseLevel, $answerType, $session_id, $exerciseId).
                "&nbsp;".
            get_action_icon_for_question($actionIcon2, $fromExercise, $question_id_item, $question_item['type'], $question_item['question'], $selected_course, $courseCategoryId, $exerciseLevel, $answerType, $session_id, $exerciseId);
        $data[] = $row;
    }
}
Display :: display_sortable_table($header, $data, '', array('per_page_default'=>999,'per_page'=>999,'page_nr'=>1));

if (!$nbrQuestions) {
	echo get_lang('NoQuestion');
}

// The (+) system as now make this button useless
// Hubert Borderiou 27-10-2011
//if (api_get_session_id() == 0){
//	echo '<div style="width:100%; border-top:1px dotted #4171B5;"><button class="save" type="submit">'.get_lang('Reuse').'</button></div></form>';
//}
Display::display_footer();


// Some functions here, just for question_pool to ease the code

/*
	Put the menu entry for level and type to default "Choice"
	It is usefull if you change the exercice, you need to reset the other menus
	hubert.borderiou 13-10-2011
*/
function reset_menu_lvl_type() {
	global $exerciseLevel, $answerType;
	$answerType = -1;
	$exerciseLevel = -1;
}
/*
	Put the menu entry for exercice and level and type to default "Choice"
	It is usefull if you change the course, you need to reset the other menus
	hubert.borderiou 13-10-2011
*/

function reset_menu_exo_lvl_type() {
	global $exerciseId, $courseCategoryId;
	reset_menu_lvl_type();
	$exerciseId = 0;
	$courseCategoryId = 0;
}

// return the <a> link to admin question, if needed
// hubert.borderiou 13-10-2011
function get_a_tag_for_question($in_addA, $in_fromex, $in_questionid, $in_questiontype, $in_questionname) {
	$res = $in_questionname;
	if ($in_addA) {
		$res = "<a href='admin.php?".api_get_cidreq()."&editQuestion=$in_questionid&type=$in_questiontype&fromExercise=$in_fromex'>".$res."</a>";
	}
	return $res;
}


/*
$row[] = get_action_icon_for_question(
$actionIcon1, --
$fromExercise, --
$tabQuestion['id'], --
$tabQuestion['type'],
$tabQuestion['question'],
$selected_course,
$courseCategoryId,
$exerciseLevel,
$answerType,
$session_id,
$exerciseId).

"&nbsp;".
get_action_icon_for_question($actionIcon2, $fromExercise, $tabQuestion['id'], $tabQuestion['type'],
$tabQuestion['question'], $selected_course, $courseCategoryId, $exerciseLevel, $answerType,
$session_id, $exerciseId);


*/

/*
    Return the <a> html code for delete, add, clone, edit a question hubert.borderiou 13-10-2011
    in_action = the code of the action triggered by the button
    from_exercice = the id of the current exercice from which we click on question pool
    in_questionid = the id of the current question
    in_questiontype = the code of the type of the current question
    in_questionname = the name of the question
    in_selected_course = the if of the course chosen in the FILTERING MENU
    in_courseCategoryId = the id of the category chosen in the FILTERING MENU
    in_exerciseLevel = the level of the exercice chosen in the FILTERING MENU
    in_answerType = the code of the type of the question chosen in the FILTERING MENU
    in_session_id = the id of the session_id chosen in the FILTERING MENU
    in_exercice_id = the id of the exercice chosen in the FILTERING MENU
 */
function get_action_icon_for_question($in_action, $from_exercice, $in_questionid, $in_questiontype, $in_questionname, $in_selected_course, $in_courseCategoryId, $in_exerciseLevel, $in_answerType, $in_session_id, $in_exercice_id) {

	$res = "";
	$getParams = "&selected_course=$in_selected_course&courseCategoryId=$in_courseCategoryId&exerciseId=$in_exercice_id&exerciseLevel=$in_exerciseLevel&answerType=$in_answerType&session_id=$in_session_id";

	switch ($in_action) {
		case "delete" :
			$res = "<a href='".api_get_self()."?".api_get_cidreq()."&delete=$in_questionid$getParams' onclick='return confirm_your_choice()'>";
			$res .= Display::return_icon("delete.gif", get_lang('Delete'));
			$res .= "</a>";
			break;
		case "edit" :
			$res = get_a_tag_for_question(1, $from_exercice, $in_questionid, $in_questiontype, Display::return_icon("edit.gif", get_lang('Modify')));
			break;
		case "add":
			// add if question is not already in test
			$myObjEx = new Exercise();
            $myObjEx->setCategoriesGrouping(false);
			$myObjEx->read($from_exercice);
			if (!$myObjEx->isInList($in_questionid)) {
				$res = "<a href='".api_get_self()."?".api_get_cidreq()."&recup=$in_questionid&fromExercise=$from_exercice$getParams'>";
				$res .= Display::return_icon("view_more_stats.gif", get_lang('InsertALinkToThisQuestionInTheExercise'));
				$res .= "</a>";
            } else {
				$res = "-";
			}
			unset($myObjEx);
			break;
		case "clone":
			$res = "<a href='".api_get_self()."?".api_get_cidreq()."&amp;copy_question=$in_questionid&course_id=$in_selected_course&fromExercise=$from_exercice$getParams'>";
			$res .= Display::return_icon('cd.gif', get_lang('ReUseACopyInCurrentTest'));
			$res .= "</a>";
			break;
		default :
			$res = $in_action;
			break;
	}
	return $res;
}

/* return the icon for the question type
 hubert.borderiou 13-10-2011*/
function get_question_type_for_question($in_selectedcourse, $in_questionid) {
	$myObjQuestion = Question::read($in_questionid, $in_selectedcourse);
    $questionType = null;
    if (!empty($myObjQuestion)) {
        list($typeImg, $typeExpl) = $myObjQuestion->get_type_icon_html();
        $questionType = Display::tag('div', Display::return_icon($typeImg, $typeExpl, array(), 32), array());
        unset($myObjQuestion);
    }
	return $questionType;
}

/* return the name of the category for the question in a course hubert.borderiou 13-10-2011*/
function get_question_category_for_question($course_id, $question_id) {
    global $all_category_list;
    $objQuestionTmp = Question :: read($question_id, $course_id);
    return Testcategory::return_category_labels($objQuestionTmp->category_list, $all_category_list);

}