aj
/
chamilo-lms2


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

/**
 * 	@package chamilo.admin
 */

// name of the language file that needs to be included
$language_file = 'admin';

$cidReset = true;

//require_once '../inc/global.inc.php';

// setting the section (for the tabs)
$this_section = SECTION_PLATFORM_ADMIN;

api_protect_admin_script(true);

$session_id = intval($_GET['session_id']);
$formSent = 0;
$errorMsg = '';

// Database Table Definitions
$tbl_user = Database::get_main_table(TABLE_MAIN_USER);
$tbl_course = Database::get_main_table(TABLE_MAIN_COURSE);
$tbl_session = Database::get_main_table(TABLE_MAIN_SESSION);
$tbl_session_user = Database::get_main_table(TABLE_MAIN_SESSION_USER);
$tbl_session_course_user = Database::get_main_table(TABLE_MAIN_SESSION_COURSE_USER);

$archivePath = api_get_path(SYS_ARCHIVE_PATH);
$archiveURL = api_get_path(WEB_CODE_PATH) . 'course_info/download.php?archive=';

$tool_name = get_lang('ExportSessionListXMLCSV');

global $_configuration;

$interbreadcrumb[] = array('url' => 'index.php', "name" => get_lang('Sessions'));

set_time_limit(0);

if ($_POST['formSent']) {
    $formSent = $_POST['formSent'];
    $file_type = ($_POST['file_type'] == 'csv') ? 'csv' : 'xml';
    $session_id = $_POST['session_id'];
    if (empty($session_id)) {
        $sql = "SELECT id,name,id_coach,username,access_start_date,access_end_date,visibility,session_category_id
                FROM $tbl_session INNER JOIN $tbl_user
				ON $tbl_user.user_id = $tbl_session.id_coach ORDER BY id";
        if ($_configuration['multiple_access_urls']) {
            $tbl_session_rel_access_url = Database::get_main_table(TABLE_MAIN_ACCESS_URL_REL_SESSION);
            $access_url_id = api_get_current_access_url_id();
            if ($access_url_id != -1) {
                $sql = "SELECT id, name,id_coach,username,access_start_date,access_end_date,visibility,session_category_id
                FROM $tbl_session s INNER JOIN $tbl_session_rel_access_url as session_rel_url
				ON (s.id= session_rel_url.session_id) INNER JOIN $tbl_user u ON (u.user_id = s.id_coach)
				WHERE access_url_id = $access_url_id
				ORDER BY id";
            }
        }
        $result = Database::query($sql);
    } else {
        $sql = "SELECT id,name,username,access_start_date,access_end_date,visibility,session_category_id
				FROM $tbl_session
				INNER JOIN $tbl_user
					ON $tbl_user.user_id = $tbl_session.id_coach
				WHERE id='$session_id'";

        $result = Database::query($sql);
    }

    if (Database::num_rows($result)) {
        if (!file_exists($archivePath)) {
            mkdir($archivePath, api_get_permissions_for_new_directories(), true);
        }

        if (!file_exists($archivePath . 'index.html')) {
            $fp = fopen($archivePath . 'index.html', 'w');

            fputs($fp, '<html><head></head><body></body></html>');

            fclose($fp);
        }

        $archiveFile = 'export_sessions_' . $session_id . '_' . date('Y-m-d_H-i-s') . '.' . $file_type;

        while (file_exists($archivePath . $archiveFile)) {
            $archiveFile = 'export_users_' . $session_id . '_' . date('Y-m-d_H-i-s') . '_' . uniqid('') . '.' . $file_type;
        }
        $fp = fopen($archivePath . $archiveFile, 'w');

        if ($file_type == 'csv') {
            $cvs = true;
            fputs($fp, "SessionName;Coach;DateStart;DateEnd;Visibility;SessionCategory;Users;Courses;\n");
        } else {
            $cvs = false;
            fputs($fp, "<?xml version=\"1.0\" encoding=\"" . api_get_system_encoding() . "\"?>\n<Sessions>\n");
        }

        while ($row = Database::fetch_array($result)) {
            $add = '';
            $row['name'] = str_replace(';', ',', $row['name']);
            $row['username'] = str_replace(';', ',', $row['username']);
            $row['access_start_date'] = str_replace(';', ',', api_get_local_time($row['access_start_date'], null, null, true));
            $row['access_end_date'] = str_replace(';', ',', api_get_local_time($row['access_end_date'], null, null, true));
            $row['visibility'] = str_replace(';', ',', $row['visibility']);
            $row['session_category'] = str_replace(';', ',', $row['session_category_id']);
            if ($cvs) {
                $add.= $row['name'] . ';' . $row['username'] . ';' . $row['access_start_date'] . ';' . $row['access_end_date'] . ';' . $row['visibility'] . ';' . $row['session_category'] . ';';
            } else {
                $add = "\t<Session>\n"
                        . "\t\t<SessionName>$row[name]</SessionName>\n"
                        . "\t\t<Coach>$row[username]</Coach>\n"
                        . "\t\t<DateStart>$row[access_start_date]</DateStart>\n"
                        . "\t\t<DateEnd>$row[access_end_date]</DateEnd>\n"
                        . "\t\t<Visibility>$row[visibility]</Visibility>\n"
                        . "\t\t<SessionCategory>$row[session_category]</SessionCategory>\n";
            }

            //users
            $sql = "SELECT DISTINCT $tbl_user.username FROM $tbl_user
					INNER JOIN $tbl_session_user
						ON $tbl_user.user_id = $tbl_session_user.id_user AND $tbl_session_user.relation_type<>" . SESSION_RELATION_TYPE_RRHH . "
						AND $tbl_session_user.id_session = '" . $row['id'] . "'";

            $rsUsers = Database::query($sql);
            $users = '';
            while ($rowUsers = Database::fetch_array($rsUsers)) {
                if ($cvs) {
                    $users .= str_replace(';', ',', $rowUsers['username']) . '|';
                } else {
                    $users .= "\t\t<User>$rowUsers[username]</User>\n";
                }
            }
            if (!empty($users) && $cvs)
                $users = api_substr($users, 0, api_strlen($users) - 1);

            if ($cvs)
                $users .= ';';

            $add .= $users;

            //courses
            $sql = "SELECT DISTINCT $tbl_course.id, $tbl_course.code
					FROM $tbl_course
					INNER JOIN $tbl_session_course_user
						ON $tbl_course.id = $tbl_session_course_user.c_id
						AND $tbl_session_course_user.id_session = '" . $row['id'] . "'";

            $rsCourses = Database::query($sql);

            $courses = '';
            while ($rowCourses = Database::fetch_array($rsCourses)) {

                // Get coachs from a course
                $sql = "SELECT u.username
					FROM $tbl_session_course_user scu
					INNER JOIN $tbl_user u ON u.user_id = scu.id_user
					WHERE scu.c_id = '{$rowCourses['id']}' AND
						  scu.id_session = '" . $row['id'] . "' AND
						  scu.status = 2 ";

                $rs_coachs = Database::query($sql);
                $coachs = array();
                while ($row_coachs = Database::fetch_array($rs_coachs)) {
                    $coachs[] = $row_coachs['username'];
                }

                $coachs = implode(",", $coachs);
                if ($cvs) {
                    $courses .= str_replace(';', ',', $rowCourses['code']);
                    $courses .= '[' . str_replace(';', ',', $coachs) . '][';
                } else {
                    $courses .= "\t\t<Course>\n";
                    $courses .= "\t\t\t<CourseCode>$rowCourses[code]</CourseCode>\n";
                    $courses .= "\t\t\t<Coach>$coachs</Coach>\n";
                }

                // rel user courses
                $sql = "SELECT DISTINCT u.username
						FROM $tbl_session_course_user scu
						INNER JOIN $tbl_session_user su ON scu.id_user = su.id_user AND scu.id_session = su.id_session AND su.relation_type<>" . SESSION_RELATION_TYPE_RRHH . "
						INNER JOIN $tbl_user u
						ON scu.id_user = u.user_id
						AND scu.c_id='" . $rowCourses['id'] . "'
						AND scu.id_session='" . $row['id'] . "'";

                $rsUsersCourse = Database::query($sql);
                $userscourse = '';
                while ($rowUsersCourse = Database::fetch_array($rsUsersCourse)) {

                    if ($cvs) {
                        $userscourse .= str_replace(';', ',', $rowUsersCourse['username']) . ',';
                    } else {
                        $courses .= "\t\t\t<User>$rowUsersCourse[username]</User>\n";
                    }
                }
                if ($cvs) {
                    if (!empty($userscourse))
                        $userscourse = api_substr($userscourse, 0, api_strlen($userscourse) - 1);

                    $courses .= $userscourse . ']|';
                }
                else {
                    $courses .= "\t\t</Course>\n";
                }
            }

            if (!empty($courses) && $cvs)
                $courses = api_substr($courses, 0, api_strlen($courses) - 1);
            $add .= $courses;

            if ($cvs) {
                $breakline = api_is_windows_os() ? "\r\n" : "\n";
                $add .= ";$breakline";
            } else {
                $add .= "\t</Session>\n";
            }

            fputs($fp, $add);
        }

        if (!$cvs)
            fputs($fp, "</Sessions>\n");
        fclose($fp);

        $errorMsg = get_lang('UserListHasBeenExported') . '<br/><a class="btn" href="' . $archiveURL . $archiveFile . '">' . get_lang('ClickHereToDownloadTheFile') . '</a>';
    }
}

// display the header
Display::display_header($tool_name);

//select of sessions
$sql = "SELECT id, name FROM $tbl_session ORDER BY name";

if (api_is_multiple_url_enabled()) {
    $tbl_session_rel_access_url = Database::get_main_table(TABLE_MAIN_ACCESS_URL_REL_SESSION);
    $access_url_id = api_get_current_access_url_id();
    if ($access_url_id != -1) {
        $sql = "SELECT id, name FROM $tbl_session s INNER JOIN $tbl_session_rel_access_url as session_rel_url
		ON (s.id= session_rel_url.session_id)
		WHERE access_url_id = $access_url_id
		ORDER BY name";
    }
}

$result = Database::query($sql);
$Sessions = Database::store_result($result);

echo '<div class="actions">';
echo '<a href="../admin/index.php">' . Display::return_icon('back.png', get_lang('BackTo') . ' ' . get_lang('PlatformAdmin'), '', ICON_SIZE_MEDIUM) . '</a>';
echo '</div>';

if (!empty($errorMsg)) {
    Display::display_normal_message($errorMsg, false); //main API
}

$form = new FormValidator('session_export', 'post', api_get_self());
$form->addElement('hidden', 'formSent', 1);
$form->addElement('radio', 'file_type', get_lang('OutputFileType'), 'CSV', 'csv', null, array('id' => 'file_type_csv'));
$form->addElement('radio', 'file_type', null, 'XML', 'xml', null, array('id' => 'file_type_xml'));

$options = array();
$options['0'] = get_lang('AllSessions');
foreach ($Sessions as $enreg) {
    $options[$enreg['id']] = $enreg['name'];
}

$form->addElement('select', 'session_id', get_lang('WhichSessionToExport'), $options);
$form->addElement('button', 'submit', get_lang('ExportSession'));

$defaults = array();
$defaults['file_type'] = 'csv';
$form->setDefaults($defaults);
$form->display();
unset($Courses);
Display::display_footer();