ba53cf9a5ffd60f525690795addcecd2ee964923
[moodle.git] / report / completion / index.php
1 <?php
2 // This file is part of Moodle - http://moodle.org/
3 //
4 // Moodle is free software: you can redistribute it and/or modify
5 // it under the terms of the GNU General Public License as published by
6 // the Free Software Foundation, either version 3 of the License, or
7 // (at your option) any later version.
8 //
9 // Moodle is distributed in the hope that it will be useful,
10 // but WITHOUT ANY WARRANTY; without even the implied warranty of
11 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12 // GNU General Public License for more details.
13 //
14 // You should have received a copy of the GNU General Public License
15 // along with Moodle.  If not, see <http://www.gnu.org/licenses/>.
17 /**
18  * Course completion progress report
19  *
20  * @package    report
21  * @subpackage completion
22  * @copyright  2009 Catalyst IT Ltd
23  * @author     Aaron Barnes <aaronb@catalyst.net.nz>
24  * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
25  */
27 require('../../config.php');
28 require_once($CFG->libdir.'/completionlib.php');
30 /**
31  * Configuration
32  */
33 define('COMPLETION_REPORT_PAGE',        25);
34 define('COMPLETION_REPORT_COL_TITLES',  true);
36 /*
37  * Setup page, check permissions
38  */
40 // Get course
41 $courseid = required_param('course', PARAM_INT);
42 $format = optional_param('format','',PARAM_ALPHA);
43 $sort = optional_param('sort','',PARAM_ALPHA);
44 $edituser = optional_param('edituser', 0, PARAM_INT);
47 $course = $DB->get_record('course', array('id' => $courseid), '*', MUST_EXIST);
48 $context = context_course::instance($course->id);
50 $url = new moodle_url('/report/completion/index.php', array('course'=>$course->id));
51 $PAGE->set_url($url);
52 $PAGE->set_pagelayout('report');
54 $firstnamesort = ($sort == 'firstname');
55 $excel = ($format == 'excelcsv');
56 $csv = ($format == 'csv' || $excel);
58 // Paging
59 $start   = optional_param('start', 0, PARAM_INT);
60 $sifirst = optional_param('sifirst', 'all', PARAM_ALPHA);
61 $silast  = optional_param('silast', 'all', PARAM_ALPHA);
63 // Whether to show extra user identity information
64 $extrafields = get_extra_user_fields($context);
65 $leftcols = 1 + count($extrafields);
67 // Function for quoting csv cell values
68 function csv_quote($value) {
69     global $excel;
70     if ($excel) {
71         return textlib::convert('"'.str_replace('"',"'",$value).'"','UTF-8','UTF-16LE');
72     } else {
73         return '"'.str_replace('"',"'",$value).'"';
74     }
75 }
78 // Check permissions
79 require_login($course);
81 require_capability('report/completion:view', $context);
83 // Get group mode
84 $group = groups_get_course_group($course, true); // Supposed to verify group
85 if ($group === 0 && $course->groupmode == SEPARATEGROUPS) {
86     require_capability('moodle/site:accessallgroups',$context);
87 }
89 /**
90  * Load data
91  */
93 // Retrieve course_module data for all modules in the course
94 $modinfo = get_fast_modinfo($course);
96 // Get criteria for course
97 $completion = new completion_info($course);
99 if (!$completion->has_criteria()) {
100     print_error('err_nocriteria', 'completion', $CFG->wwwroot.'/course/report.php?id='.$course->id);
103 // Get criteria and put in correct order
104 $criteria = array();
106 foreach ($completion->get_criteria(COMPLETION_CRITERIA_TYPE_COURSE) as $criterion) {
107     $criteria[] = $criterion;
110 foreach ($completion->get_criteria(COMPLETION_CRITERIA_TYPE_ACTIVITY) as $criterion) {
111     $criteria[] = $criterion;
114 foreach ($completion->get_criteria() as $criterion) {
115     if (!in_array($criterion->criteriatype, array(
116             COMPLETION_CRITERIA_TYPE_COURSE, COMPLETION_CRITERIA_TYPE_ACTIVITY))) {
117         $criteria[] = $criterion;
118     }
121 // Can logged in user mark users as complete?
122 // (if the logged in user has a role defined in the role criteria)
123 $allow_marking = false;
124 $allow_marking_criteria = null;
126 if (!$csv) {
127     // Get role criteria
128     $rcriteria = $completion->get_criteria(COMPLETION_CRITERIA_TYPE_ROLE);
130     if (!empty($rcriteria)) {
132         foreach ($rcriteria as $rcriterion) {
133             $users = get_role_users($rcriterion->role, $context, true);
135             // If logged in user has this role, allow marking complete
136             if ($users && in_array($USER->id, array_keys($users))) {
137                 $allow_marking = true;
138                 $allow_marking_criteria = $rcriterion->id;
139                 break;
140             }
141         }
142     }
145 /*
146  * Setup page header
147  */
148 if ($csv) {
149     $shortname = format_string($course->shortname, true, array('context' => $context));
150     header('Content-Disposition: attachment; filename=progress.'.
151         preg_replace('/[^a-z0-9-]/','_',textlib::strtolower(strip_tags($shortname))).'.csv');
152     // Unicode byte-order mark for Excel
153     if ($excel) {
154         header('Content-Type: text/csv; charset=UTF-16LE');
155         print chr(0xFF).chr(0xFE);
156         $sep="\t".chr(0);
157         $line="\n".chr(0);
158     } else {
159         header('Content-Type: text/csv; charset=UTF-8');
160         $sep=",";
161         $line="\n";
162     }
164 } else {
165     // Navigation and header
166     $strcompletion = get_string('coursecompletion');
168     $PAGE->set_title($strcompletion);
169     $PAGE->set_heading($course->fullname);
171     echo $OUTPUT->header();
173     $PAGE->requires->yui2_lib(
174         array(
175             'yahoo',
176             'dom',
177             'element',
178             'event',
179         )
180     );
182     $PAGE->requires->js('/report/completion/textrotate.js');
184     // Handle groups (if enabled)
185     groups_print_course_menu($course, $CFG->wwwroot.'/report/completion/?course='.$course->id);
189 // Generate where clause
190 $where = array();
191 $where_params = array();
193 if ($sifirst !== 'all') {
194     $where[] = $DB->sql_like('u.firstname', ':sifirst', false);
195     $where_params['sifirst'] = $sifirst.'%';
198 if ($silast !== 'all') {
199     $where[] = $DB->sql_like('u.lastname', ':silast', false);
200     $where_params['silast'] = $silast.'%';
203 // Get user match count
204 $total = $completion->get_num_tracked_users(implode(' AND ', $where), $where_params, $group);
206 // Total user count
207 $grandtotal = $completion->get_num_tracked_users('', array(), $group);
209 // If no users in this course what-so-ever
210 if (!$grandtotal) {
211     echo $OUTPUT->container(get_string('err_nousers', 'completion'), 'errorbox errorboxcontent');
212     echo $OUTPUT->footer();
213     exit;
216 // Get user data
217 $progress = array();
219 if ($total) {
220     $progress = $completion->get_progress_all(
221         implode(' AND ', $where),
222         $where_params,
223         $group,
224         $firstnamesort ? 'u.firstname ASC' : 'u.lastname ASC',
225         $csv ? 0 : COMPLETION_REPORT_PAGE,
226         $csv ? 0 : $start,
227         $context
228     );
232 // Build link for paging
233 $link = $CFG->wwwroot.'/report/completion/?course='.$course->id;
234 if (strlen($sort)) {
235     $link .= '&amp;sort='.$sort;
237 $link .= '&amp;start=';
239 // Build the the page by Initial bar
240 $initials = array('first', 'last');
241 $alphabet = explode(',', get_string('alphabet', 'langconfig'));
243 $pagingbar = '';
244 foreach ($initials as $initial) {
245     $var = 'si'.$initial;
247     $othervar = $initial == 'first' ? 'silast' : 'sifirst';
248     $othervar = $$othervar != 'all' ? "&amp;{$othervar}={$$othervar}" : '';
250     $pagingbar .= ' <div class="initialbar '.$initial.'initial">';
251     $pagingbar .= get_string($initial.'name').':&nbsp;';
253     if ($$var == 'all') {
254         $pagingbar .= '<strong>'.get_string('all').'</strong> ';
255     }
256     else {
257         $pagingbar .= "<a href=\"{$link}{$othervar}\">".get_string('all').'</a> ';
258     }
260     foreach ($alphabet as $letter) {
261         if ($$var === $letter) {
262             $pagingbar .= '<strong>'.$letter.'</strong> ';
263         }
264         else {
265             $pagingbar .= "<a href=\"$link&amp;$var={$letter}{$othervar}\">$letter</a> ";
266         }
267     }
269     $pagingbar .= '</div>';
272 // Do we need a paging bar?
273 if ($total > COMPLETION_REPORT_PAGE) {
275     // Paging bar
276     $pagingbar .= '<div class="paging">';
277     $pagingbar .= get_string('page').': ';
279     $sistrings = array();
280     if ($sifirst != 'all') {
281         $sistrings[] =  "sifirst={$sifirst}";
282     }
283     if ($silast != 'all') {
284         $sistrings[] =  "silast={$silast}";
285     }
286     $sistring = !empty($sistrings) ? '&amp;'.implode('&amp;', $sistrings) : '';
288     // Display previous link
289     if ($start > 0) {
290         $pstart = max($start - COMPLETION_REPORT_PAGE, 0);
291         $pagingbar .= "(<a class=\"previous\" href=\"{$link}{$pstart}{$sistring}\">".get_string('previous').'</a>)&nbsp;';
292     }
294     // Create page links
295     $curstart = 0;
296     $curpage = 0;
297     while ($curstart < $total) {
298         $curpage++;
300         if ($curstart == $start) {
301             $pagingbar .= '&nbsp;'.$curpage.'&nbsp;';
302         }
303         else {
304             $pagingbar .= "&nbsp;<a href=\"{$link}{$curstart}{$sistring}\">$curpage</a>&nbsp;";
305         }
307         $curstart += COMPLETION_REPORT_PAGE;
308     }
310     // Display next link
311     $nstart = $start + COMPLETION_REPORT_PAGE;
312     if ($nstart < $total) {
313         $pagingbar .= "&nbsp;(<a class=\"next\" href=\"{$link}{$nstart}{$sistring}\">".get_string('next').'</a>)';
314     }
316     $pagingbar .= '</div>';
320 /*
321  * Draw table header
322  */
324 // Start of table
325 if (!$csv) {
326     print '<br class="clearer"/>'; // ugh
328     $total_header = ($total == $grandtotal) ? $total : "{$total}/{$grandtotal}";
329     echo $OUTPUT->heading(get_string('allparticipants').": {$total_header}", 3);
331     print $pagingbar;
333     if (!$total) {
334         echo $OUTPUT->heading(get_string('nothingtodisplay'), 2);
335         echo $OUTPUT->footer();
336         exit;
337     }
339     print '<div id="completion-progress-wrapper" class="no-overflow">';
340     print '<table id="completion-progress" class="generaltable flexible boxaligncenter completionreport" style="text-align: left" cellpadding="5" border="1">';
342     // Print criteria group names
343     print PHP_EOL.'<tr style="vertical-align: top">';
344     echo '<th scope="row" class="rowheader" colspan="' . $leftcols . '">' .
345             get_string('criteriagroup', 'completion') . '</th>';
347     $current_group = false;
348     $col_count = 0;
349     for ($i = 0; $i <= count($criteria); $i++) {
351         if (isset($criteria[$i])) {
352             $criterion = $criteria[$i];
354             if ($current_group && $criterion->criteriatype === $current_group->criteriatype) {
355                 ++$col_count;
356                 continue;
357             }
358         }
360         // Print header cell
361         if ($col_count) {
362             print '<th scope="col" colspan="'.$col_count.'" class="colheader criteriagroup">'.$current_group->get_type_title().'</th>';
363         }
365         if (isset($criteria[$i])) {
366             // Move to next criteria type
367             $current_group = $criterion;
368             $col_count = 1;
369         }
370     }
372     // Overall course completion status
373     print '<th style="text-align: center;">'.get_string('course').'</th>';
375     print '</tr>';
377     // Print aggregation methods
378     print PHP_EOL.'<tr style="vertical-align: top">';
379     echo '<th scope="row" class="rowheader" colspan="' . $leftcols . '">' .
380             get_string('aggregationmethod', 'completion').'</th>';
382     $current_group = false;
383     $col_count = 0;
384     for ($i = 0; $i <= count($criteria); $i++) {
386         if (isset($criteria[$i])) {
387             $criterion = $criteria[$i];
389             if ($current_group && $criterion->criteriatype === $current_group->criteriatype) {
390                 ++$col_count;
391                 continue;
392             }
393         }
395         // Print header cell
396         if ($col_count) {
397             $has_agg = array(
398                 COMPLETION_CRITERIA_TYPE_COURSE,
399                 COMPLETION_CRITERIA_TYPE_ACTIVITY,
400                 COMPLETION_CRITERIA_TYPE_ROLE,
401             );
403             if (in_array($current_group->criteriatype, $has_agg)) {
404                 // Try load a aggregation method
405                 $method = $completion->get_aggregation_method($current_group->criteriatype);
407                 $method = $method == 1 ? get_string('all') : get_string('any');
409             } else {
410                 $method = '-';
411             }
413             print '<th scope="col" colspan="'.$col_count.'" class="colheader aggheader">'.$method.'</th>';
414         }
416         if (isset($criteria[$i])) {
417             // Move to next criteria type
418             $current_group = $criterion;
419             $col_count = 1;
420         }
421     }
423     // Overall course aggregation method
424     print '<th scope="col" class="colheader aggheader aggcriteriacourse">';
426     // Get course aggregation
427     $method = $completion->get_aggregation_method();
429     print $method == 1 ? get_string('all') : get_string('any');
430     print '</th>';
432     print '</tr>';
435     // Print criteria titles
436     if (COMPLETION_REPORT_COL_TITLES) {
438         print PHP_EOL.'<tr>';
439         echo '<th scope="row" class="rowheader" colspan="' . $leftcols . '">' .
440                 get_string('criteria', 'completion') . '</th>';
442         foreach ($criteria as $criterion) {
443             // Get criteria details
444             $details = $criterion->get_title_detailed();
445             print '<th scope="col" class="colheader criterianame">';
446             print '<span class="completion-criterianame">'.$details.'</span>';
447             print '</th>';
448         }
450         // Overall course completion status
451         print '<th scope="col" class="colheader criterianame">';
453         print '<span class="completion-criterianame">'.get_string('coursecomplete', 'completion').'</span>';
455         print '</th></tr>';
456     }
458     // Print user heading and icons
459     print '<tr>';
461     // User heading / sort option
462     print '<th scope="col" class="completion-sortchoice" style="clear: both;">';
464     $sistring = "&amp;silast={$silast}&amp;sifirst={$sifirst}";
466     if ($firstnamesort) {
467         print
468             get_string('firstname')." / <a href=\"./?course={$course->id}{$sistring}\">".
469             get_string('lastname').'</a>';
470     } else {
471         print "<a href=\"./?course={$course->id}&amp;sort=firstname{$sistring}\">".
472             get_string('firstname').'</a> / '.
473             get_string('lastname');
474     }
475     print '</th>';
478     // Print user identity columns
479     foreach ($extrafields as $field) {
480         echo '<th scope="col" class="completion-identifyfield">' .
481                 get_user_field_name($field) . '</th>';
482     }
484     ///
485     /// Print criteria icons
486     ///
487     foreach ($criteria as $criterion) {
489         // Generate icon details
490         $icon = '';
491         $iconlink = '';
492         $icontitle = ''; // Required if $iconlink set
493         $iconalt = ''; // Required
494         switch ($criterion->criteriatype) {
496             case COMPLETION_CRITERIA_TYPE_ACTIVITY:
497                 // Display icon
498                 $icon = $OUTPUT->pix_url('icon', $criterion->module);
499                 $iconlink = $CFG->wwwroot.'/mod/'.$criterion->module.'/view.php?id='.$criterion->moduleinstance;
500                 $icontitle = $modinfo->cms[$criterion->moduleinstance]->name;
501                 $iconalt = get_string('modulename', $criterion->module);
502                 break;
504             case COMPLETION_CRITERIA_TYPE_COURSE:
505                 // Load course
506                 $crs = $DB->get_record('course', array('id' => $criterion->courseinstance));
508                 // Display icon
509                 $iconlink = $CFG->wwwroot.'/course/view.php?id='.$criterion->courseinstance;
510                 $icontitle = format_string($crs->fullname, true, array('context' => get_context_instance(CONTEXT_COURSE, $crs->id, MUST_EXIST)));
511                 $iconalt = format_string($crs->shortname, true, array('context' => get_context_instance(CONTEXT_COURSE, $crs->id)));
512                 break;
514             case COMPLETION_CRITERIA_TYPE_ROLE:
515                 // Load role
516                 $role = $DB->get_record('role', array('id' => $criterion->role));
518                 // Display icon
519                 $iconalt = $role->name;
520                 break;
521         }
523         // Print icon and cell
524         print '<th class="criteriaicon">';
526         // Create icon if not supplied
527         if (!$icon) {
528             $icon = $OUTPUT->pix_url('i/'.$COMPLETION_CRITERIA_TYPES[$criterion->criteriatype]);
529         }
531         print ($iconlink ? '<a href="'.$iconlink.'" title="'.$icontitle.'">' : '');
532         print '<img src="'.$icon.'" class="icon" alt="'.$iconalt.'" '.(!$iconlink ? 'title="'.$iconalt.'"' : '').' />';
533         print ($iconlink ? '</a>' : '');
535         print '</th>';
536     }
538     // Overall course completion status
539     print '<th class="criteriaicon">';
540     print '<img src="'.$OUTPUT->pix_url('i/course').'" class="icon" alt="'.get_string('course').'" title="'.get_string('coursecomplete', 'completion').'" />';
541     print '</th>';
543     print '</tr>';
546 } else {
547     // The CSV file does not contain any headers
551 ///
552 /// Display a row for each user
553 ///
554 foreach ($progress as $user) {
556     // User name
557     if ($csv) {
558         print csv_quote(fullname($user));
559         foreach ($extrafields as $field) {
560             echo $sep . csv_quote($user->{$field});
561         }
562     } else {
563         print PHP_EOL.'<tr id="user-'.$user->id.'">';
565         print '<th scope="row"><a href="'.$CFG->wwwroot.'/user/view.php?id='.
566             $user->id.'&amp;course='.$course->id.'">'.fullname($user).'</a></th>';
567         foreach ($extrafields as $field) {
568             echo '<td>' . s($user->{$field}) . '</td>';
569         }
570     }
572     // Progress for each course completion criteria
573     foreach ($criteria as $criterion) {
575         // Handle activity completion differently
576         if ($criterion->criteriatype == COMPLETION_CRITERIA_TYPE_ACTIVITY) {
578             // Load activity
579             $activity = $modinfo->cms[$criterion->moduleinstance];
581             // Get progress information and state
582             if (array_key_exists($activity->id,$user->progress)) {
583                 $thisprogress=$user->progress[$activity->id];
584                 $state=$thisprogress->completionstate;
585                 $date=userdate($thisprogress->timemodified);
586             } else {
587                 $state=COMPLETION_INCOMPLETE;
588                 $date='';
589             }
591             $criteria_completion = $completion->get_user_completion($user->id, $criterion);
593             // Work out how it corresponds to an icon
594             switch($state) {
595                 case COMPLETION_INCOMPLETE : $completiontype='n'; break;
596                 case COMPLETION_COMPLETE : $completiontype='y'; break;
597                 case COMPLETION_COMPLETE_PASS : $completiontype='pass'; break;
598                 case COMPLETION_COMPLETE_FAIL : $completiontype='fail'; break;
599             }
601             $completionicon='completion-'.
602                 ($activity->completion==COMPLETION_TRACKING_AUTOMATIC ? 'auto' : 'manual').
603                 '-'.$completiontype;
605             $describe=get_string('completion-alt-auto-'.$completiontype,'completion');
606             $a=new StdClass;
607             $a->state=$describe;
608             $a->date=$date;
609             $a->user=fullname($user);
610             $a->activity=strip_tags($activity->name);
611             $fulldescribe=get_string('progress-title','completion',$a);
613             if ($csv) {
614                 print $sep.csv_quote($describe).$sep.csv_quote($date);
615             } else {
616                 print '<td class="completion-progresscell">';
618                 print '<img src="'.$OUTPUT->pix_url('i/'.$completionicon).
619                       '" alt="'.$describe.'" class="icon" title="'.$fulldescribe.'" />';
621                 print '</td>';
622             }
624             continue;
625         }
627         // Handle all other criteria
628         $criteria_completion = $completion->get_user_completion($user->id, $criterion);
629         $is_complete = $criteria_completion->is_complete();
631         $completiontype = $is_complete ? 'y' : 'n';
632         $completionicon = 'completion-auto-'.$completiontype;
634         $describe = get_string('completion-alt-auto-'.$completiontype, 'completion');
636         $a = new stdClass();
637         $a->state    = $describe;
638         $a->date     = $is_complete ? userdate($criteria_completion->timecompleted) : '';
639         $a->user     = fullname($user);
640         $a->activity = strip_tags($criterion->get_title());
641         $fulldescribe = get_string('progress-title', 'completion', $a);
643         if ($csv) {
644             print $sep.csv_quote($describe);
645         } else {
647             if ($allow_marking_criteria === $criterion->id) {
648                 $describe = get_string('completion-alt-auto-'.$completiontype,'completion');
650                 print '<td class="completion-progresscell">'.
651                     '<a href="'.$CFG->wwwroot.'/course/togglecompletion.php?user='.$user->id.'&amp;course='.$course->id.'&amp;rolec='.$allow_marking_criteria.'&amp;sesskey='.sesskey().'">'.
652                     '<img src="'.$OUTPUT->pix_url('i/completion-manual-'.($is_complete ? 'y' : 'n')).
653                     '" alt="'.$describe.'" class="icon" title="'.get_string('markcomplete', 'completion').'" /></a></td>';
654             } else {
655                 print '<td class="completion-progresscell">'.
656                     '<img src="'.$OUTPUT->pix_url('i/'.$completionicon).
657                     '" alt="'.$describe.'" class="icon" title="'.$fulldescribe.'" /></td>';
658             }
659         }
660     }
662     // Handle overall course completion
664     // Load course completion
665     $params = array(
666         'userid'    => $user->id,
667         'course'    => $course->id
668     );
670     $ccompletion = new completion_completion($params);
671     $completiontype =  $ccompletion->is_complete() ? 'y' : 'n';
673     $describe = get_string('completion-alt-auto-'.$completiontype, 'completion');
675     $a = new StdClass;
676     $a->state    = $describe;
677     $a->date     = '';
678     $a->user     = fullname($user);
679     $a->activity = strip_tags(get_string('coursecomplete', 'completion'));
680     $fulldescribe = get_string('progress-title', 'completion', $a);
682     if ($csv) {
683         print $sep.csv_quote($describe);
684     } else {
686         print '<td class="completion-progresscell">';
688         // Display course completion status icon
689         print '<img src="'.$OUTPUT->pix_url('i/completion-auto-'.$completiontype).
690                '" alt="'.$describe.'" class="icon" title="'.$fulldescribe.'" />';
692         print '</td>';
693     }
695     if ($csv) {
696         print $line;
697     } else {
698         print '</tr>';
699     }
702 if ($csv) {
703     exit;
705 print '</table>';
706 print '</div>';
707 print $pagingbar;
709 print '<ul class="progress-actions"><li><a href="index.php?course='.$course->id.
710     '&amp;format=csv">'.get_string('csvdownload','completion').'</a></li>
711     <li><a href="index.php?course='.$course->id.'&amp;format=excelcsv">'.
712     get_string('excelcsvdownload','completion').'</a></li></ul>';
714 echo $OUTPUT->footer($course);