<?php
/* For licensing terms, see /license.txt */

/**
 * Chamilo LMS
 *
 * Update the Chamilo database from an older Dokeos version
 * Notice : This script has to be included by index.php
 * or update_courses.php (deprecated).
 *
 * @package chamilo.install
 * @todo
 * - conditional changing of tables. Currently we execute for example
 * ALTER TABLE `$dbNameForm`.`cours`
 * instructions without checking wether this is necessary.
 * - reorganise code into functions
 * @todo use database library
 */
Log::notice('Entering file');

$old_file_version = '1.8.6.1';
$new_file_version = '1.8.6.2';

// Check if we come from index.php or update_courses.php - otherwise display error msg
if (defined('SYSTEM_INSTALLATION')) {

	// Check if the current Dokeos install is eligible for update
	if (!file_exists('../inc/conf/configuration.php')) {
		echo '<strong>'.get_lang('Error').' !</strong> Dokeos '.implode('|', $updateFromVersion).' '.get_lang('HasNotBeenFound').'.<br /><br />
								'.get_lang('PleasGoBackToStep1').'.
							    <p><button type="submit" class="back" name="step1" value="&lt; '.get_lang('Back').'">'.get_lang('Back').'</button></p>
							    </td></tr></table></form></body></html>';
		exit ();
	}

	$_configuration['db_glue'] = get_config_param('dbGlu');

	if ($singleDbForm) {
		$_configuration['table_prefix'] = get_config_param('courseTablePrefix');
		$_configuration['main_database'] = get_config_param('mainDbName');
		$_configuration['db_prefix'] = get_config_param('dbNamePrefix');
	}

	$dbScormForm = preg_replace('/[^a-zA-Z0-9_\-]/', '', $dbScormForm);

	if (!empty($dbPrefixForm) && strpos($dbScormForm, $dbPrefixForm) !== 0) {
		$dbScormForm = $dbPrefixForm.$dbScormForm;
	}

	if (empty($dbScormForm) || $dbScormForm == 'mysql' || $dbScormForm == $dbPrefixForm) {
		$dbScormForm = $dbPrefixForm.'scorm';
	}

	/*	Normal upgrade procedure: start by updating main, statistic, user databases */

	// If this script has been included by index.php, not update_courses.php, so
	// that we want to change the main databases as well...
	$only_test = false;
	$log = 0;
	if (defined('SYSTEM_INSTALLATION')) {

		if ($singleDbForm) {
			$dbStatsForm = $dbNameForm;
			$dbScormForm = $dbNameForm;
			$dbUserForm = $dbNameForm;
		}
		/**
		 * Update the databases "pre" migration
		 */
		include '../lang/english/create_course.inc.php';

		if ($languageForm != 'english') {
			// languageForm has been escaped in index.php
			include '../lang/'.$languageForm.'/create_course.inc.php';
		}

		// Get the main queries list (m_q_list)
		$m_q_list = get_sql_file_contents('migrate-db-'.$old_file_version.'-'.$new_file_version.'-pre.sql', 'main');
		if (count($m_q_list) > 0) {
			// Now use the $m_q_list
			/**
			 * We connect to the right DB first to make sure we can use the queries
			 * without a database name
			 */
			if (strlen($dbNameForm) > 40) {
				 Log::error('Database name '.$dbNameForm.' is too long, skipping');
			} elseif (!in_array($dbNameForm,$dblist)) {
				 Log::error('Database '.$dbNameForm.' was not found, skipping');
			} else {
				iDatabase::select_db($dbNameForm);
				foreach ($m_q_list as $query) {
					if ($only_test) {
						 Log::notice("iDatabase::query($dbNameForm,$query)");
					} else {
						$res = iDatabase::query($query);
						if ($log) {
							 Log::notice("In $dbNameForm, executed: $query");
						}
					}
				}


				// There might now be multiple course coaches. This implies
				// moving the previous course coach elements from the
				// session_rel_course table to the session_rel_course_rel_user
				// table with status 2
				// Select all the current course coaches in sessions

				$sql = "SELECT id_session, course_code, id_coach
				        FROM session_rel_course
				        ORDER BY id_session, course_code";

				$res = iDatabase::query($sql);

				if ($res === false) {
				     Log::error('Could not query session course coaches table: '.iDatabase::error());
				} else {
					// For each coach found, add him as a course coach in the
					// session_rel_course_rel_user table
					while ($row = iDatabase::fetch_array($res)) {

						// Check whether coach is a student
						$sql = "SELECT 1 FROM session_rel_course_rel_user
									 WHERE id_session='{$row[id_session]}' AND course_code='{$row[course_code]}' AND id_user='{$row[id_coach]}'";
						$rs  =	iDatabase::query($sql);

						if (iDatabase::num_rows($rs) > 0) {
							$sql_upd = "UPDATE session_rel_course_rel_user SET status=2
										WHERE id_session='{$row[id_session]}' AND course_code='{$row[course_code]}' AND id_user='{$row[id_coach]}'";
						} else {
							$sql_ins = "INSERT INTO session_rel_course_rel_user(id_session, course_code, id_user, status)
						  				VALUES ('{$row[id_session]}','{$row[course_code]}','{$row[id_coach]}',2)";
						}

						$rs_coachs = iDatabase::query($sql_ins);

						if ($rs_coachs === false) {
							 Log::error('Could not move course coach to new table: '.iDatabase::error());
						}

					}
				}

				// Remove duplicated rows for 'show_tutor_data' AND 'show_teacher_data' into settings_current table

				$sql = "SELECT id FROM settings_current WHERE variable='show_tutor_data' ORDER BY id";
				$rs_chk_id1 = iDatabase::query($sql);

				if ($rs_chk_id1 === false) {
				     Log::error('Could not query settings_current ids table: '.iDatabase::error());
				} else {
					$i = 1;
					while ($row_id1 = iDatabase::fetch_array($rs_chk_id1)) {
						$id = $row_id1['id'];
						if ($i > 1) {
							$sql_del = "DELETE FROM settings_current WHERE id = '$id'";
							iDatabase::query($sql_del);
						}
						$i++;
					}
				}

				$sql = "SELECT id FROM settings_current WHERE variable='show_teacher_data' ORDER BY id";
				$rs_chk_id2 = iDatabase::query($sql);

				if ($rs_chk_id2 === false) {
				     Log::error('Could not query settings_current ids table: '.iDatabase::error());
				} else {
					$i = 1;
					while ($row_id2 = iDatabase::fetch_array($rs_chk_id2)) {
						$id = $row_id2['id'];
						if ($i > 1) {
							$sql_del = "DELETE FROM settings_current WHERE id = '$id'";
							iDatabase::query($sql_del);
						}
						$i++;
					}
				}

			}
		}
		// Now clean the deprecated id_coach field from the session_rel_course table
        $m_q_list = get_sql_file_contents('migrate-db-'.$old_file_version.'-'.$new_file_version.'-post.sql', 'main');
        if (count($m_q_list) > 0) {
            // Now use the $m_q_list
            /**
             * We connect to the right DB first to make sure we can use the queries
             * without a database name
             */
            if (strlen($dbNameForm) > 40) {
                 Log::error('Database name '.$dbNameForm.' is too long, skipping');
            } elseif (!in_array($dbNameForm,$dblist)) {
                 Log::error('Database '.$dbNameForm.' was not found, skipping');
            } else {
                iDatabase::select_db($dbNameForm);
                foreach ($m_q_list as $query) {
                    if ($only_test) {
                         Log::notice("iDatabase::query($dbNameForm,$query)");
                    } else {
                        $res = iDatabase::query($query);
                        if ($log) {
                             Log::notice("In $dbNameForm, executed: $query");
                        }
                    }
                }
            }
        }

		// Get the stats queries list (s_q_list)
		$s_q_list = get_sql_file_contents('migrate-db-'.$old_file_version.'-'.$new_file_version.'-pre.sql', 'stats');

		if (count($s_q_list) > 0) {
			// Now use the $s_q_list
			/**
			 * We connect to the right DB first to make sure we can use the queries
			 * without a database name
			 */
			if (strlen($dbStatsForm) > 40) {
				 Log::error('Database name '.$dbStatsForm.' is too long, skipping');
			} elseif (!in_array($dbStatsForm, $dblist)) {
				 Log::error('Database '.$dbStatsForm.' was not found, skipping');
			} else {
				iDatabase::select_db($dbStatsForm);
				foreach ($s_q_list as $query) {
					if ($only_test) {
						 Log::notice("iDatabase::query($dbStatsForm,$query)");
					} else {
						$res = iDatabase::query($query);
						if ($log) {
							 Log::notice("In $dbStatsForm, executed: $query");
						}
					}
				}
			}
		}
		// Get the user queries list (u_q_list)
		$u_q_list = get_sql_file_contents('migrate-db-'.$old_file_version.'-'.$new_file_version.'-pre.sql', 'user');
		if (count($u_q_list) > 0) {
			// Now use the $u_q_list
			/**
			 * We connect to the right DB first to make sure we can use the queries
			 * without a database name
			 */
			if (strlen($dbUserForm) > 40) {
				 Log::error('Database name '.$dbUserForm.' is too long, skipping');
			} elseif (!in_array($dbUserForm,$dblist)) {
				 Log::error('Database '.$dbUserForm.' was not found, skipping');
			} else {
				iDatabase::select_db($dbUserForm);
				foreach ($u_q_list as $query) {
					if ($only_test){
						 Log::notice("iDatabase::query($dbUserForm,$query)");
						 Log::notice("In $dbUserForm, executed: $query");
					} else {
						$res = iDatabase::query($query);
					}
				}
			}
		}
		// The SCORM database doesn't need a change in the pre-migrate part - ignore
	}

	$prefix = '';
	if ($singleDbForm) {
		$prefix =  get_config_param ('table_prefix');
	}

	// Get the courses databases queries list (c_q_list)
	$c_q_list = get_sql_file_contents('migrate-db-'.$old_file_version.'-'.$new_file_version.'-pre.sql', 'course');

	if (count($c_q_list) > 0) {
		// Get the courses list
		if (strlen($dbNameForm) > 40) {
			 Log::error('Database name '.$dbNameForm.' is too long, skipping');
		} elseif (!in_array($dbNameForm, $dblist)) {
			 Log::error('Database '.$dbNameForm.' was not found, skipping');
		} else {
			iDatabase::select_db($dbNameForm);
			$res = iDatabase::query("SELECT code,db_name,directory,course_language FROM course WHERE target_course_code IS NULL ORDER BY code");

			if ($res === false) { die('Error while querying the courses list in update_db-1.8.6.1-1.8.6.2.inc.php'); }

			if (iDatabase::num_rows($res) > 0) {
				$i = 0;
                $list = array();
				while ($row = iDatabase::fetch_array($res)) {
					$list[] = $row;
					$i++;
				}
				foreach ($list as $row_course) {
					// Now use the $c_q_list
					/**
					 * We connect to the right DB first to make sure we can use the queries
					 * without a database name
					 */
					if (!$singleDbForm) { //otherwise just use the main one
						iDatabase::select_db($row_course['db_name']);
					}
                    Log::notice('Course db ' . $row_course['db_name']);

					foreach ($c_q_list as $query) {
						if ($singleDbForm) {
							$query = preg_replace('/^(UPDATE|ALTER TABLE|CREATE TABLE|DROP TABLE|INSERT INTO|DELETE FROM)\s+(\w*)(.*)$/', "$1 $prefix{$row_course['db_name']}_$2$3", $query);
						}

						if ($only_test) {
							 Log::error("iDatabase::query(".$row_course['db_name'].",$query)");
						} else {
							$res = iDatabase::query($query);
							if ($log) {
								 Log::error("In ".$row_course['db_name'].", executed: $query");
							}
						}
					}

					// Fill description type into course_description table

					$t_course_description = $row_course['db_name'].".course_description";

                    if ($singleDbForm) {
                        $t_course_description = "$prefix{$row_course['db_name']}_course_description";
                    }

					// Get all ids and update description_type field with them from course_description table
					$sql_sel = "SELECT id FROM $t_course_description";
					$rs_sel = iDatabase::query($sql_sel);

					if ($rs_sel === false) {
				    	 Log::error('Could not query course_description ids table: '.iDatabase::error());
					} else {
						if (iDatabase::num_rows($rs_sel) > 0) {
							while ($row_ids = iDatabase::fetch_array($rs_sel)) {
								$description_id = $row_ids['id'];
								$sql_upd = "UPDATE $t_course_description SET description_type='$description_id' WHERE id='$description_id'";
								iDatabase::query($sql_upd);
							}
						}
					}

   				}
			}
		}
	}

} else {

	echo 'You are not allowed here !' . __FILE__;

}