chamilo-lms2/main/tracking/exams.php

<?php
/* For licensing terms, see /license.txt */
/**
 * Exams script
 * @package chamilo.tracking
 */
/**
 * Code
 */

$language_file = array ('registration', 'index', 'tracking', 'exercice','survey');
require_once '../inc/global.inc.php';
require_once api_get_path(LIBRARY_PATH).'pear/Spreadsheet_Excel_Writer/Writer.php';

$this_section = SECTION_TRACKING;

$is_allowedToTrack = api_is_course_admin() || api_is_platform_admin() || api_is_course_coach() || api_is_session_admin();

if(!$is_allowedToTrack) {
    api_not_allowed();
}

$export_to_xls = false;
if (isset($_GET['export'])) {
    $export_to_xls = true;
}

$tbl_stats_exercices     = Database :: get_main_table(TABLE_STATISTIC_TRACK_E_EXERCICES);

if (api_is_platform_admin() && empty($_GET['cidReq'])) {
    $global = true;
} else {
    $global = false;
}

if ($global) {
    $temp_course_list = CourseManager :: get_courses_list();
    foreach($temp_course_list  as $temp_course_item) {
        $course_item = CourseManager ::get_course_information($temp_course_item['code']);
        $course_list[]= array(    'db_name'     => $course_item['db_name'],
                                'code'        => $course_item['code'],
                                'real_id'    => $course_item['real_id'],
                                'title'        => $course_item['title']);
    }
} else {
    $current_course['db_name']     = $_course['dbName'];
    $current_course['real_id']     = $_course['real_id'];
    $current_course['code']     = $_course['id'];
    $course_list = array($current_course);
}

$form = new FormValidator('search_simple','POST','','',null,false);
$form->addElement('text','score',get_lang('Percentage'));
if ($global) {
    $form->addElement('hidden','view','admin');
} else {
    //Get exam lists
    $t_quiz = Database::get_course_table(TABLE_QUIZ_TEST);
    $course_id = api_get_course_int_id();
    $sqlExercices = "    SELECT quiz.title,id FROM ".$t_quiz." AS quiz WHERE c_id = $course_id AND active='1' ORDER BY quiz.title ASC";
    $resultExercices = Database::query($sqlExercices);
    $exercise_list[0] = get_lang('All');
    while($a_exercices = Database::fetch_array($resultExercices)) {
        $exercise_list[$a_exercices['id']] = $a_exercices['title'];
    }

    $form->addElement('select', 'exercise_id', get_lang('Exercise'), $exercise_list);
}

//$form->addElement('submit','submit',get_lang('Filter'));
$form->addElement('style_submit_button','submit', get_lang('Filter'),'class="search"' );


if (!empty($_REQUEST['score']))    $filter_score = intval($_REQUEST['score']); else $filter_score = 70;
if (!empty($_REQUEST['exercise_id']))    $exercise_id = intval($_REQUEST['exercise_id']); else $exercise_id = 0;

$form->setDefaults(array('score'=>$filter_score));

if (!$export_to_xls) {
    Display :: display_header(get_lang('Reporting'));
    echo '<div class="actions">';
    if ($global) {

        echo '<a href="'.api_get_path(WEB_CODE_PATH).'auth/my_progress.php">'.
        Display::return_icon('stats.png', get_lang('MyStats'),'',ICON_SIZE_MEDIUM);
        echo '</a>';

        echo '<span style="float:right">';
        echo '<a href="'.api_get_self().'?export=1&score='.$filter_score.'&exercise_id='.$exercise_id.'">'.Display::return_icon('export_excel.png',get_lang('ExportAsXLS'),'',ICON_SIZE_MEDIUM).'</a>';
        echo '<a href="javascript: void(0);" onclick="javascript: window.print()">'.Display::return_icon('printer.png',get_lang('Print'),'',ICON_SIZE_MEDIUM).'</a>';
        echo '</span>';

        $menu_items[] = Display::url(Display::return_icon('teacher.png', get_lang('TeacherInterface'), array(), 32), api_get_path(WEB_CODE_PATH).'mySpace/?view=teacher');
        if (api_is_platform_admin()) {
            $menu_items[] = Display::url(Display::return_icon('star.png', get_lang('AdminInterface'), array(), 32), api_get_path(WEB_CODE_PATH).'mySpace/?view=admin');
        } else {
            $menu_items[] = Display::url(Display::return_icon('star.png', get_lang('CoachInterface'), array(), 32), api_get_path(WEB_CODE_PATH).'mySpace/?view=coach');
        }
        $menu_items[] = Display::return_icon('quiz_na.png', get_lang('ExamTracking'), array(), 32);

        $nb_menu_items = count($menu_items);
        if($nb_menu_items>1) {
            foreach($menu_items as $key=> $item) {
                echo $item;
            }
        }
    } else {
        echo Display::url(Display::return_icon('user.png', get_lang('StudentsTracking'), array(), 32), 'courseLog.php?'.api_get_cidreq().'&amp;studentlist=true');
        echo Display::url(Display::return_icon('course.png', get_lang('CourseTracking'), array(), 32), 'courseLog.php?'.api_get_cidreq().'&amp;studentlist=false');
        echo Display::url(Display::return_icon('tools.png', get_lang('ResourcesTracking'), array(), 32), 'courseLog.php?'.api_get_cidreq().'&amp;studentlist=resouces');
        echo Display::url(Display::return_icon('export_excel.png', get_lang('ExportAsXLS'), array(), 32), api_get_self().'?'.api_get_cidreq().'&amp;export=1&amp;score='.$filter_score.'&amp;exercise_id='.$exercise_id);

    }
    echo '</div>';

    $form->display();
    echo '<h3>'.sprintf(get_lang('FilteringWithScoreX'), $filter_score).'%</h3>';
}
$html_result = null;

if ($global) {
    $html_result .= '<table  class="data_table">';
    $html_result .= '<tr><th>'.get_lang('Courses').'</th>';
    $html_result .= '<th>'.get_lang('Quiz').'</th>';
    $html_result .= '<th>'.get_lang('ExamTaken').'</th>';
    $html_result .= '<th>'.get_lang('ExamNotTaken').'</th>';
    $html_result .= '<th>'.sprintf(get_lang('ExamPassX'), $filter_score).'%</th>';
    $html_result .= '<th>'.get_lang('ExamFail').'</th>';
    $html_result .= '<th>'.get_lang('TotalStudents').'</th>';
    $html_result .= '</tr>';
} else {
    $html_result .= '<table  class="data_table">';
    $html_result .= '<tr><th>'.get_lang('Quiz').'</th>';
    $html_result .= '<th>'.get_lang('User').'</th>';
    //$html_result .= '<th>'.sprintf(get_lang('ExamPassX'), $filter_score).'</th>';
    $html_result .= '<th>'.get_lang('Percentage').' %</th>';
    $html_result .= '<th>'.get_lang('Status').'</th>';
    $html_result .= '<th>'.get_lang('Attempts').'</th>';
    $html_result .= '</tr>';
}
$table = Database::get_course_table(TABLE_TOOL_LIST);
$t_quiz = Database::get_course_table(TABLE_QUIZ_TEST);

$export_array_global = $export_array =  array();
if(!empty($course_list) && is_array($course_list)) {
    foreach ($course_list as $current_course) {
        $global_row = $row_not_global = array();
        $course_id = $current_course['real_id'];

        $a_students = CourseManager :: get_student_list_from_course_code($course_id, false);
        $total_students = count($a_students);

        $sqlExercices        = "SELECT count(id) as count FROM ".$t_quiz." AS quiz WHERE active='1' AND c_id = $course_id ";
        $resultExercices     = Database::query($sqlExercices);
        $data_exercises      = Database::store_result($resultExercices);
        $exercise_count     = $data_exercises[0]['count'];
        if ($global) {
            if ($exercise_count == 0) {
                $exercise_count = 2;
            }
            $html_result .= "<tr class='$s_css_class'>
                                <td rowspan=$exercise_count>";
            $html_result .= $current_course['title'];
            $html_result .= "</td>";
        }

        $sql = "SELECT visibility FROM $table WHERE c_id = $course_id AND name='quiz'";
        $resultVisibilityQuizz = Database::query($sql);

        if (Database::result($resultVisibilityQuizz, 0 ,'visibility') == 1) {
            $sqlExercices = "    SELECT quiz.title,id FROM ".$t_quiz." AS quiz WHERE c_id = $course_id  AND active='1' ORDER BY quiz.title ASC";
            //Getting the exam list
            if (!$global) {
                if (!empty($exercise_id)) {
                    $sqlExercices = "    SELECT quiz.title,id FROM ".$t_quiz." AS quiz WHERE c_id = $course_id  AND active='1' AND id = $exercise_id ORDER BY quiz.title ASC";
                }
            }
            $resultExercices = Database::query($sqlExercices);
            $i = 0;
            if (Database::num_rows($resultExercices) > 0) {
                while($a_exercices = Database::fetch_array($resultExercices)) {
                    $global_row[]= $current_course['title'];
                    if (!$global) {
                        $html_result .= "<tr class='$s_css_class'>";
                    }
                    if (!$global) {
                        $html_result .= '<td ROWSPAN="'.$total_students.'">';
                    } else {
                        $html_result .= '<td>';
                    }

                    $html_result .= $a_exercices['title'];
                    $html_result .= '</td>';

                    $global_row[]=$a_exercices['title'];
                    $row_not_global['exercise']= $a_exercices['title'];

                    $taken = 0;
                    $total_with_parameter = 0;
                    $fail = 0;
                    $not_taken = 0;

                    $total_with_parameter_score = 0;
                    $total_with_parameter_porcentage = 0;

                    $student_result = array();

                    foreach ($a_students as $student ) {
                        $current_student_id = $student['user_id'];
                        $sqlEssais = "  SELECT COUNT(ex.exe_id) as essais
                                        FROM $tbl_stats_exercices AS ex
                                        WHERE  ex.c_id = '".$course_id."'
                                        AND ex.exe_exo_id = ".$a_exercices['id']."
                                        AND exe_user_id='".$current_student_id."'";


                        $resultEssais = Database::query($sqlEssais);
                        $a_essais = Database::fetch_array($resultEssais);

                        $sqlScore = "SELECT exe_id, exe_result, exe_weighting
                                 FROM $tbl_stats_exercices
                                 WHERE exe_user_id = ".$current_student_id."
                                 AND c_id = '".$course_id."'
                                 AND exe_exo_id = ".$a_exercices['id']."
                                 ORDER BY exe_result DESC LIMIT 1"; // we take the higher value
                                 //ORDER BY exe_date DESC LIMIT 1";

                        $resultScore = Database::query($sqlScore);
                        $score = 0;

                        while($a_score = Database::fetch_array($resultScore)) {
                            $score = $score + $a_score['exe_result'];
                            $weighting = $weighting + $a_score['exe_weighting'];
                            $exe_id = $a_score['exe_id'];
                        }

                        $pourcentageScore = 0;
                        if ($weighting!=0) {
                            $pourcentageScore = round(($score*100)/$weighting);
                        }

                        $weighting = 0;

                        if($i%2==0){
                            $s_css_class="row_odd";
                        } else {
                            $s_css_class="row_even";
                        }
                        $i++;

                        if ($a_essais['essais'] > 0 ) {
                            $taken++;
                        }

                        if ($pourcentageScore >= $filter_score) {
                            $total_with_parameter_score++;
                        }

                        if (!$global) {
                            $user_info = api_get_user_info($current_student_id);

                            //User
                            $user_row = '<td >';
                            $user_row .=         $user_info['firstName'].' '.$user_info['lastName'];
                            $user_row .= '</td>';
                            $user_info = $user_info['firstName'].' '.$user_info['lastName'];

                            //Best result
                            if (!empty($a_essais['essais'])) {
                                $user_row .= '<td  >';
                                $user_row .=         $pourcentageScore;
                                $temp_array [] =         $pourcentageScore;
                                $user_row .= '</td>';

                                if ($pourcentageScore >= $filter_score ) {
                                    $user_row .= '<td  style="background-color:#DFFFA8">';
                                    $user_row .= get_lang('PassExam').'</td>';
                                    $temp_array [] =         get_lang('PassExam');
                                } else {
                                    $user_row .= '<td  style="background-color:#FC9A9E"  >';
                                    $user_row .= get_lang('ExamFail').'</td>';
                                    $temp_array [] =         get_lang('ExamFail');
                                }

                                $user_row .= '<td >';
                                $user_row .= $a_essais['essais'];
                                $temp_array [] =         $a_essais['essais'];
                                $user_row .= '</td>';
                            } else {
                                $score = '-';
                                $user_row .= '<td  >';
                                $user_row .=  '-';
                                $temp_array [] =         '-';
                                $user_row .= '</td>';

                                $user_row .= '<td   style="background-color:#FCE89A">';
                                $user_row .= get_lang('NoAttempt');
                                $temp_array [] =     get_lang('NoAttempt');
                                $user_row .= '</td>';
                                $user_row .= '<td >';
                                $user_row .= 0;
                                $temp_array [] = 0;
                                $user_row .= '</td>';
                            }
                            $user_row .= '</tr>';
                            $student_result[$current_student_id]  = array('html'=>$user_row,'score'=>$score,'array'=>$temp_array,'user'=>$user_info);
                            $temp_array = array();
                        }
                    }

                    if (!$global) {
                        if (!empty($student_result)) {
                            $student_result_empty = $student_result_content = array();
                            foreach($student_result as $row) {
                                if ($row['score'] == '-') {
                                    $student_result_empty[] = $row;
                                } else {
                                    $student_result_content[] = $row;
                                }
                            }
                            //Sort only users with content
                            usort($student_result_content, 'sort_user');
                            $student_result = array_merge($student_result_content, $student_result_empty );

                            foreach($student_result as $row) {
                                $html_result .=$row['html'];
                                $row_not_global['results'][]= $row['array'];
                                $row_not_global['users'][]   = $row['user'];
                            }
                            $export_array[] = $row_not_global;
                            $row_not_global = array();
                        }
                    }
                    if ($global) {
                        //Exam taken
                        $html_result .= '<td >';
                        $html_result .=         $taken;
                        $global_row[]= $taken;
                        //echo         $total.' /  '.$total_students;
                        $html_result .= '</td>';

                        //Exam NOT taken
                        $html_result .= '<td >';
                        $html_result .=         $not_taken = $total_students - $taken;
                        $global_row[]= $not_taken;
                        $html_result .= '</td>';

                        //Examn pass
                        if (!empty($total_with_parameter_score)) {
                            $html_result .= '<td   style="background-color:#DFFFA8" >';
                        } else {
                            $html_result .= '<td   style="background-color:#FCE89A"  >';
                        }

                        $html_result .= $total_with_parameter_score;
                        $global_row[]= $total_with_parameter_score;
                        $html_result .= '</td>';

                        //Exam fail
                        $html_result .= '<td >';

                        $html_result .=         $fail = $taken - $total_with_parameter_score;
                        $global_row[]= $fail;
                        $html_result .= '</td>';

                        $html_result .= '<td >';
                        $html_result .=         $total_students;
                        $global_row[]= $total_students;

                        $global_counter++;
                        $html_result .= '</td>';
                        $html_result .= '</tr>';
                        $export_array_global[] = $global_row;
                        $global_row = array();
                    }
                }
            } else {
                $html_result .= "    <tr>
                            <td colspan='6'>
                                ".get_lang('NoExercise')."
                            </td>
                        </tr>
                     ";
            }
        } else {
            $html_result .= "    <tr>
                        <td colspan='6'>
                            ".get_lang('NoExercise')."
                        </td>
                    </tr>
                 ";
        }
    }
}

$html_result .= '</table>';

if (!$export_to_xls) {
    echo $html_result;
}
$filename = 'exam-reporting-'.date('Y-m-d-h:i:s').'.xls';
if ($export_to_xls) {
    if ($global) {
        export_complete_report_xls($filename, $export_array_global);
    } else {
        export_complete_report_xls($filename, $export_array);
    }
    exit;
}

function sort_user($a, $b) {
    if (is_numeric($a['score']) && is_numeric($b['score'])) {
        //echo $a['score'].' : '.$b['score']; echo '<br />';
        if ($a['score'] < $b['score']) {
            return 1;
        }
        return 0;
    }
    return 1;
}

function export_complete_report_xls($filename, $array) {
    global $charset, $global, $filter_score;
    $workbook = new Spreadsheet_Excel_Writer();
    $workbook ->setTempDir(api_get_path(SYS_ARCHIVE_PATH));
    $workbook->send($filename);
    $workbook->setVersion(8); // BIFF8
    $worksheet =& $workbook->addWorksheet('Report');
    //$worksheet->setInputEncoding(api_get_system_encoding());
    $worksheet->setInputEncoding($charset);

    $line = 0;
    $column = 0; //skip the first column (row titles)

    if ($global) {
        $worksheet->write($line,$column,get_lang('Courses'));
        $column++;
        $worksheet->write($line,$column,get_lang('Exercises'));
        $column++;
        $worksheet->write($line,$column,get_lang('ExamTaken'));
        $column++;
        $worksheet->write($line,$column,get_lang('ExamNotTaken'));
        $column++;
        $worksheet->write($line,$column,sprintf(get_lang('ExamPassX'), $filter_score).'%');
        $column++;
        $worksheet->write($line,$column,get_lang('ExamFail'));
        $column++;
        $worksheet->write($line,$column,get_lang('TotalStudents'));
        $column++;
        $line++;
        foreach ($array as $row) {
            $column = 0;
            foreach ($row as $item) {
                $worksheet->write($line,$column,html_entity_decode(strip_tags($item)));
                $column++;
            }
            $line++;
        }
        $line++;
    } else {
        $worksheet->write($line,$column,get_lang('Exercises'));
        $column++;
        $worksheet->write($line,$column,get_lang('User'));
        $column++;
        $worksheet->write($line,$column,get_lang('Percentage'));
        $column++;
        $worksheet->write($line,$column,get_lang('Status'));
        $column++;
        $worksheet->write($line,$column,get_lang('Attempts'));
        $column++;
        $line++;
        foreach ($array as $row) {
            $column = 0;
            $worksheet->write($line,$column,html_entity_decode(strip_tags($row['exercise'])));
            $column++;
            foreach ($row['users'] as $key=>$user) {
                $column = 1;
                $worksheet->write($line,$column,html_entity_decode(strip_tags($user)));
                $column++;
                foreach ($row['results'][$key] as $result_item) {
                    $worksheet->write($line,$column,html_entity_decode(strip_tags($result_item)));
                    $column++;
                }
                $line++;
            }
        }
        $line++;
    }
    $workbook->close();
    exit;
}
Display :: display_footer();