"; - // get instance name from db. - $instance = get_record($mod->modname, 'id', $mod->instance); - // see if the item is already in the category table and if it is call category select with the id so it is selected - get_record('modules', 'name', $mod->modname); - $item = get_record('grade_item', 'courseid', $course->id, 'modid', $mod->module, 'cminstance', $mod->instance); - if (!$item) { - // set the item to uncategorized in grade_item - $item->courseid = $course->id; - $item->category = $uncat_id->id; - $item->modid = $mod->module; - $item->cminstance = $mod->instance; - $item->id = insert_record('grade_item', $item); - } - else if ($item->category == 0) { - // this catches any errors where they may have some wierd category set - set_field('grade_item', 'category', $uncat_id->id, 'id', $item->id); - } - set_field('grade_item', 'sort_order', $sort, 'id', $item->id); - $sort++; - } - } - } - } - } - } + $params = array(); + + $params['plugin'] = $this->plugin; + + if (!empty($this->courseid)) { + $params['id'] = $this->courseid; } - } -} -// sorting functions for grades -function grade_sort_by_lastname($x,$y) -{ - //$grades_by_student["$student->userid"]['student_data']['firstname'] = $student->firstname; - //$grades_by_student["$student->userid"]['student_data']['lastname'] = $student->lastname; - if (strnatcasecmp($x['student_data']['lastname'],$y['student_data']['lastname']) == 0) { - return strnatcasecmp($x['student_data']['firstname'],$y['student_data']['firstname']); - } - else { - return strnatcasecmp($x['student_data']['lastname'],$y['student_data']['lastname']); - } -} - -function grade_sort_by_firstname($x,$y) -{ - //$grades_by_student["$student->userid"]['student_data']['firstname'] = $student->firstname; - //$grades_by_student["$student->userid"]['student_data']['lastname'] = $student->lastname; - if (strnatcasecmp($x['student_data']['firstname'],$y['student_data']['firstname']) == 0) { - return strnatcasecmp($x['student_data']['lastname'],$y['student_data']['lastname']); - } - else { - return strnatcasecmp($x['student_data']['firstname'],$y['student_data']['firstname']); - } -} - -function grade_sort_by_points($x,$y) { - if ($x['student_data']['points'] == $y['student_data']['points']) { - return grade_sort_by_lastname($x,$y); - } - else { - if ($x['student_data']['points'] > $y['student_data']['points']) - return -1; - else - return 1; - } -} - -function grade_sort_by_points_asc($x,$y) { - if ($x['student_data']['points'] == $y['student_data']['points']) { - return grade_sort_by_lastname($x,$y); - } - else { - if ($x['student_data']['points'] < $y['student_data']['points']) - return -1; - else - return 1; - } -} - -function grade_sort_by_weighted($x,$y) { - if ($x['student_data']['weighted'] == $y['student_data']['weighted']) { - return grade_sort_by_lastname($x,$y); - } - else { - if ($x['student_data']['weighted'] > $y['student_data']['weighted']) - return -1; - else - return 1; - } -} - -function grade_sort_by_percent($x,$y) { - if ($x['student_data']['percent'] == $y['student_data']['percent']) { - return grade_sort_by_lastname($x,$y); - } - else { - if ($x['student_data']['percent'] > $y['student_data']['percent']) - return -1; - else - return 1; - } -} - -function grade_sort_by_percent_asc($x,$y) { - if ($x['student_data']['percent'] == $y['student_data']['percent']) { - return grade_sort_by_lastname($x,$y); - } - else { - if ($x['student_data']['percent'] < $y['student_data']['percent']) - return -1; - else - return 1; - } -} - -function grade_sort_by_weighted_asc($x,$y) { - if ($x['student_data']['weighted'] == $y['student_data']['weighted']) { - return grade_sort_by_lastname($x,$y); - } - else { - if ($x['student_data']['weighted'] < $y['student_data']['weighted']) - return -1; - else - return 1; - } -} - -function grade_sort_by_highgrade_category($x,$y) { - global $cview; - - if(!$cview) { - $cview = optional_param('cview'); - } - - if ($x["$cview"]['stats']['points'] == $y["$cview"]['stats']['points']) { - return grade_sort_by_lastname($x,$y); - } - else { - return ($y["$cview"]['stats']['points'] - $x["$cview"]['stats']['points']); - } -} - -function grade_sort_by_highgrade_category_asc($x,$y) { - global $cview; - - if(!$cview) - $cview = optional_param('cview'); - - if ($x["$cview"]['stats']['points'] == $y["$cview"]['stats']['points']) { - return grade_sort_by_lastname($x,$y); - } - else { - return ($x["$cview"]['stats']['points'] - $y["$cview"]['stats']['points']); - } -} - - -function grade_set_preference($courseid, $name, $value) { - global $GRADEPREFS; - - if (false !== ($key = array_search($name, $GRADEPREFS))) { - if ($record = get_record('grade_preferences', 'courseid', $courseid, 'preference', $key)) { - $record->value = $value; - update_record('grade_preferences', $record); - } else { // Make a new one - $record->preference = $key; - $record->courseid = $courseid; - $record->value = $value; - insert_record('grade_preferences', $record); + if (!empty($this->userid)) { + $params['userid'] = $this->userid; } - } -} -function grade_get_preference($courseid, $name) { - global $GRADEPREFS, $GRADEPREFSDEFAULTS; - - if (false !== ($key = array_search($name, $GRADEPREFS))) { - if (!($record = get_record('grade_preferences', 'courseid', $courseid, 'preference', $key))) { - // Make a new one - $record->preference = $key; - $record->courseid = $courseid; - $record->value = $GRADEPREFSDEFAULTS[$name]; - insert_record('grade_preferences', $record); + if (!empty($this->page)) { + $params['page'] = $this->page; } - return $record->value; + + return $params; } - return NULL; -} -function grade_get_preferences($courseid) { - global $CFG; - global $GRADEPREFS, $GRADEPREFSDEFAULTS; + function get_return_url($default) { + global $CFG; - $preferences = NULL; - - // Get the preferences for the course. - if ($rawprefs = get_records('grade_preferences', 'courseid', $courseid)) { - foreach ($rawprefs as $pref) { - if (isset($GRADEPREFS[$pref->preference])) { // Valid pref - $name = $GRADEPREFS[$pref->preference]; - $preferences->$name = $pref->value; - } + if (empty($this->type) or empty($this->plugin)) { + return $default; } - } - // Check for any missing ones and create them from defaults - // We don't save them in the database so we save space - foreach ($GRADEPREFS as $number => $name) { - if (!isset($preferences->$name)) { - $preferences->$name = $GRADEPREFSDEFAULTS[$name]; - } - } + if ($this->type == 'report') { + $url = $CFG->wwwroot.'/grade/report.php?report='.$this->plugin; + $glue = '&'; - // Construct some other ones about which fields are shown - - $isteacher = has_capability('moodle/course:managegrades', get_context_instance(CONTEXT_COURSE, $courseid)); - - $preferences->show_weighted = (($preferences->display_weighted > 0 && $isteacher) || - ($preferences->display_weighted > 1 && !$isteacher)); - - $preferences->show_points = (($preferences->display_points > 0 && $isteacher) || - ($preferences->display_points > 1 && !$isteacher)); - - $preferences->show_percent = (($preferences->display_percent > 0 && $isteacher) || - ($preferences->display_percent > 1 && !$isteacher)); - - $preferences->show_letters = (($preferences->display_letters > 0 && $isteacher) || - ($preferences->display_letters > 1 && !$isteacher)); - - return $preferences; -} - - -function grade_set_preferences($course, $newprefs) { - - if (!isset($newprefs->use_advanced) or ($newprefs->use_advanced == 1)) { - foreach ($newprefs as $name => $value) { /// Just save them all - grade_set_preference($course->id, $name, $value); - } - return true; - } - -/// We don't need advanced features, and we need to unset all extra features -/// So they don't affect grades (This approach should be revisited because it resets everything!!) - - grade_set_preference($course->id, 'use_advanced', 0); - grade_set_preference($course->id, 'use_weighted_for_letter', 0); - grade_set_preference($course->id, 'display_weighted', 0); - grade_set_preference($course->id, 'display_points', 2); - grade_set_preference($course->id, 'display_percent', 0); - grade_set_preference($course->id, 'display_letters', 0); - -/// Lose all exceptions - delete_records('grade_exceptions', 'courseid', $course->id); - - if (!$uncat = get_record('grade_category', 'courseid', $course->id, 'name', UNCATEGORISED)) { - /// Make a category for uncategorised stuff - $uncat->name=UNCATEGORISED; - $uncat->courseid=$course->id; - if (!$uncat->id = insert_record('grade_category', $uncat)) { - error(get_string('errornocategorizedid','grades')); - } - } - - set_field('grade_item', 'category', $uncat->id, 'courseid', $course->id); - set_field('grade_item', 'scale_grade', 1.00, 'courseid', $course->id); - set_field('grade_item', 'extra_credit', 0, 'courseid', $course->id); - - set_field('grade_category', 'weight', 100.0, 'courseid', $course->id, 'id', $uncat->id); - set_field('grade_category', 'bonus_points', '0', 'courseid', $course->id); -} - - -function grade_preferences_menu($action, $course) { - - if (!has_capability('moodle/course:managegrades', get_context_instance(CONTEXT_COURSE, $course->id))) { - return; - } - - // remap some actions to simplify later code - switch ($action) { - case 'prefs': - case 'set_grade_preferences': - $curraction = 'prefs'; - break; - case 'cats': - case 'vcats': - $curraction = ''; - break; - case 'insert_category': - case 'assign_categories': - case 'delete_category': - $curraction = 'cats'; - break; - case 'set_grade_weights': - case 'weights': - $curraction = 'weights'; - break; - case 'letters': - case 'set_letter_grades': - $curraction = 'letters'; - break; - case 'view_student_grades': - case 'view_student_category_grades': - case 'grades': - $curraction = 'grades'; - break; - case 'excepts': - $curraction = 'excepts'; - break; - - default: - $curraction = 'grades'; - } - - $tabs = $row = array(); - $row[] = new tabobject('grades', 'index.php?id='.$course->id, - get_string('viewgrades', 'grades')); - $row[] = new tabobject('prefs', 'index.php?id='.$course->id.'&action=prefs', - get_string('setpreferences', 'grades')); - // only show the extra options if advanced is turned on, they don't do anything otherwise - if (grade_get_preference($course->id, 'use_advanced') == 1) { - $row[] = new tabobject('cats', 'index.php?id='.$course->id.'&action=cats', - get_string('setcategories', 'grades')); - $row[] = new tabobject('weights', 'index.php?id='.$course->id.'&action=weights', - get_string('setweights', 'grades')); - $row[] = new tabobject('letters', 'index.php?id='.$course->id.'&action=letters', - get_string('setgradeletters', 'grades')); - $row[] = new tabobject('excepts', 'exceptions.php?id='.$course->id.'&action=excepts', - get_string('gradeexceptions', 'grades')); - } - $tabs[] = $row; - - print_tabs($tabs, $curraction); -} - - -function grade_nav($course, $action='grades') { - global $CFG; - global $USER; - global $cview; - - $strgrades = get_string('grades', 'grades'); - $gradenav = "wwwroot/course/view.php?id=$course->id\">$course->shortname"; - - if (has_capability('moodle/course:managegrades', get_context_instance(CONTEXT_COURSE, $course->id))) { - switch ($action) { - case 'prefs': - case 'set_grade_preferences': - $strcurpage = get_string('setpreferences','grades'); - break; - case 'cats': - case 'delete_category': - case 'cats': - case 'insert_category': - case 'assign_categories': - $strcurpage = get_string('setcategories','grades'); - break; - case 'weights': - case 'set_grade_weights': - $strcurpage = get_string('setweights','grades'); - break; - case 'set_letter_grades': - case 'letters': - $strcurpage = get_string('setgradeletters','grades'); - break; - case 'excepts': - $strcurpage = get_string('gradeexceptions', 'grades'); - break; - case 'exporttxt': - case 'exportxml': - case 'exportods': - case 'exportxls': - case 'importcsv': - case 'importxml': - $strcurpage = get_string($action, 'grades'); - break; - default: - unset($strcurpage); - break; - } - - if ($action=='grades') { - $gradenav .= " -> $strgrades"; } else { - $gradenav .= " -> id&action=grades\">$strgrades"; - } - - // if we are on a grades sub-page provide a link back (including grade preferences and grade items - - if (isset($strcurpage)) { - $gradenav .= " -> $strcurpage"; - } else if($action =='vcats') { - // show sub category - if (isset($cview)) { - $gradenav .= " -> $cview"; - } + $url = $CFG->wwwroot.'/grade/'.$this->type.'/'.$this->plugin.'/index.php'; + $glue = '?'; } - } else { - $gradenav .= " -> $strgrades"; - } - - return $gradenav; -} + if (!empty($this->courseid)) { + $url .= $glue.'id='.$this->courseid; + $glue = '&'; + } -function grade_download($download, $id) { - global $CFG; + if (!empty($this->userid)) { + $url .= $glue.'userid='.$this->userid; + $glue = '&'; + } - require_login(); + if (!empty($this->page)) { + $url .= $glue.'page='.$this->page; + } - if (! $course = get_record("course", "id", $id)) { - error("Course ID was incorrect"); + return $url; } - require_capability('moodle/course:viewcoursegrades', get_context_instance(CONTEXT_COURSE, $id)); - - $strgrades = get_string("grades"); - $strgrade = get_string("grade"); - $strmax = get_string("maximumshort"); - $stractivityreport = get_string("activityreport"); - -/// Check to see if groups are being used in this course - $currentgroup = get_current_group($course->id); - - if ($currentgroup) { - $students = get_group_students($currentgroup, "u.lastname ASC"); - } else { - $students = grade_get_course_students($course->id); - } - - if (!empty($students)) { - foreach ($students as $student) { - $grades[$student->id] = array(); // Collect all grades in this array - $gradeshtml[$student->id] = array(); // Collect all grades html formatted in this array - $totals[$student->id] = array(); // Collect all totals in this array - } - } - $columns = array(); // Accumulate column names in this array. - $columnhtml = array(); // Accumulate column html in this array. - - -/// Collect modules data - get_all_mods($course->id, $mods, $modnames, $modnamesplural, $modnamesused); - -/// Search through all the modules, pulling out grade data - $sections = get_all_sections($course->id); // Sort everything the same as the course - for ($i=0; $i<=$course->numsections; $i++) { - if (isset($sections[$i])) { // should always be true - $section = $sections[$i]; - if ($section->sequence) { - $sectionmods = explode(",", $section->sequence); - foreach ($sectionmods as $sectionmod) { - $mod = $mods[$sectionmod]; - $instance = get_record("$mod->modname", "id", "$mod->instance"); - $libfile = "$CFG->dirroot/mod/$mod->modname/lib.php"; - - if (file_exists($libfile)) { - require_once($libfile); - $gradefunction = $mod->modname."_grades"; - if (function_exists($gradefunction)) { // Skip modules without grade function - if ($modgrades = $gradefunction($mod->instance)) { - if (!empty($modgrades->maxgrade)) { - if ($mod->visible) { - $maxgrade = "$strmax: $modgrades->maxgrade"; - } else { - $maxgrade = "$strmax: $modgrades->maxgrade"; - } - } else { - $maxgrade = ""; - } - - $columns[] = "$mod->modfullname: ".format_string($instance->name,true)." - $maxgrade"; - - if (!empty($students)) { - foreach ($students as $student) { - if (!empty($modgrades->grades[$student->id])) { - $grades[$student->id][] = $currentstudentgrade = $modgrades->grades[$student->id]; - } else { - $grades[$student->id][] = $currentstudentgrade = ""; - $gradeshtml[$student->id][] = ""; - } - if (!empty($modgrades->maxgrade)) { - $totals[$student->id] = (float)($totals[$student->id]) + (float)($currentstudentgrade); - } else { - $totals[$student->id] = (float)($totals[$student->id]) + 0; - } - } - } - } - } - } - } - } - } - } // a new Moodle nesting record? ;-) - -/// OK, we have all the data, now present it to the user -/// OK, we have all the data, now present it to the user - if ($download == "ods" and confirm_sesskey()) { - require_once("../lib/odslib.class.php"); - - /// Calculate file name - $downloadfilename = clean_filename("$course->shortname $strgrades.ods"); - /// Creating a workbook - $workbook = new MoodleODSWorkbook("-"); - /// Sending HTTP headers - $workbook->send($downloadfilename); - /// Adding the worksheet - $myxls =& $workbook->add_worksheet($strgrades); - - /// Print names of all the fields - $myxls->write_string(0,0,get_string("firstname")); - $myxls->write_string(0,1,get_string("lastname")); - $myxls->write_string(0,2,get_string("idnumber")); - $myxls->write_string(0,3,get_string("institution")); - $myxls->write_string(0,4,get_string("department")); - $myxls->write_string(0,5,get_string("email")); - $pos=6; - foreach ($columns as $column) { - $myxls->write_string(0,$pos++,strip_tags($column)); - } - $myxls->write_string(0,$pos,get_string("total")); - - /// Print all the lines of data. - $i = 0; - if (!empty($grades)) { - foreach ($grades as $studentid => $studentgrades) { - $i++; - $student = $students[$studentid]; - if (empty($totals[$student->id])) { - $totals[$student->id] = ''; - } - - $myxls->write_string($i,0,$student->firstname); - $myxls->write_string($i,1,$student->lastname); - $myxls->write_string($i,2,$student->idnumber); - $myxls->write_string($i,3,$student->institution); - $myxls->write_string($i,4,$student->department); - $myxls->write_string($i,5,$student->email); - $j=6; - foreach ($studentgrades as $grade) { - if (is_numeric($grade)) { - $myxls->write_number($i,$j++,strip_tags($grade)); - } - else { - $myxls->write_string($i,$j++,strip_tags($grade)); - } - } - $myxls->write_number($i,$j,$totals[$student->id]); - } + function get_form_fields() { + if (empty($this->type) or empty($this->plugin)) { + return ''; } - /// Close the workbook - $workbook->close(); - - exit; + $result = ''; + $result .= ''; - } else if ($download == "xls" and confirm_sesskey()) { - require_once("../lib/excellib.class.php"); - - /// Calculate file name - $downloadfilename = clean_filename("$course->shortname $strgrades.xls"); - /// Creating a workbook - $workbook = new MoodleExcelWorkbook("-"); - /// Sending HTTP headers - $workbook->send($downloadfilename); - /// Adding the worksheet - $myxls =& $workbook->add_worksheet($strgrades); - - /// Print names of all the fields - $myxls->write_string(0,0,get_string("firstname")); - $myxls->write_string(0,1,get_string("lastname")); - $myxls->write_string(0,2,get_string("idnumber")); - $myxls->write_string(0,3,get_string("institution")); - $myxls->write_string(0,4,get_string("department")); - $myxls->write_string(0,5,get_string("email")); - $pos=6; - foreach ($columns as $column) { - $myxls->write_string(0,$pos++,strip_tags($column)); - } - $myxls->write_string(0,$pos,get_string("total")); - - /// Print all the lines of data. - $i = 0; - if (!empty($grades)) { - foreach ($grades as $studentid => $studentgrades) { - $i++; - $student = $students[$studentid]; - if (empty($totals[$student->id])) { - $totals[$student->id] = ''; - } - - $myxls->write_string($i,0,$student->firstname); - $myxls->write_string($i,1,$student->lastname); - $myxls->write_string($i,2,$student->idnumber); - $myxls->write_string($i,3,$student->institution); - $myxls->write_string($i,4,$student->department); - $myxls->write_string($i,5,$student->email); - $j=6; - foreach ($studentgrades as $grade) { - if (is_numeric($grade)) { - $myxls->write_number($i,$j++,strip_tags($grade)); - } - else { - $myxls->write_string($i,$j++,strip_tags($grade)); - } - } - $myxls->write_number($i,$j,$totals[$student->id]); - } + if (!empty($this->courseid)) { + $result .= ''; } - /// Close the workbook - $workbook->close(); - - exit; - - } else if ($download == "txt" and confirm_sesskey()) { - -/// Print header to force download - - header("Content-Type: application/download\n"); - $downloadfilename = clean_filename("$course->shortname $strgrades"); - header("Content-Disposition: attachment; filename=\"$downloadfilename.txt\""); - -/// Print names of all the fields - - echo get_string("firstname")."\t". - get_string("lastname")."\t". - get_string("idnumber")."\t". - get_string("institution")."\t". - get_string("department")."\t". - get_string("email"); - foreach ($columns as $column) { - $column = strip_tags($column); - echo "\t$column"; - } - echo "\t".get_string("total")."\n"; - -/// Print all the lines of data. - foreach ($grades as $studentid => $studentgrades) { - $student = $students[$studentid]; - if (empty($totals[$student->id])) { - $totals[$student->id] = ''; - } - echo "$student->firstname\t$student->lastname\t$student->idnumber\t$student->institution\t$student->department\t$student->email"; - foreach ($studentgrades as $grade) { - $grade = strip_tags($grade); - echo "\t$grade"; - } - echo "\t".$totals[$student->id]; - echo "\n"; - } - - exit; - - }else if ($download == '' and confirm_sesskey()) { - error("No file type specified"); - exit; - } -} - -function grade_get_stats($category='all') { - list($grades_by_student, $all_categories) = grade_get_formatted_grades(); - - if ($grades_by_student != 0 && $all_categories != 0) { - switch($category) { - case 'all': - { - //populate the sum of student points, # items and totalpoints for each category - foreach($grades_by_student as $student=>$categories) { - foreach($categories as $cur_category=>$assignments) { - if($category != 'student_data') { - if (isset($assignments['stats'])) { - if (isset($stats[$cur_category]['sum'])) { - $stats[$cur_category]['sum'] = $stats[$cur_category]['sum'] + $assignments['stats']['points']; - } - else { - $stats[$cur_category]['sum'] = $assignments['stats']['points']; - } - $stats[$cur_category]['items'] = $assignments['stats']['grade_items']; - $stats[$cur_category]['totalpoints'] = $assignments['stats']['totalpoints']; - $stats[$cur_category]['weight'] = $all_categories[$cur_category]['stats']['weight']; - } - } - } - } - // populate the overall sum,items and totalpoints - foreach($stats as $cur_category=>$info) { - if($cur_category != 'all' && $cur_category != 'student_data') { - - if ($stats[$cur_category]['totalpoints'] == get_string('excluded', 'grades')) { - $stats[$cur_category]['totalpoints'] = 1; - $stats['all']['sum'] = $stats['all']['sum'] + $stats[$cur_category]['sum']; - $stats['all']['items'] = $stats['all']['items'] + $stats[$cur_category]['items']; - $stats['all']['totalpoints'] = $stats['all']['totalpoints'] + $stats[$cur_category]['totalpoints']; - $stats['all']['weighted_sum'] = $stats['all']['weighted_sum'] + ($stats[$cur_category]['sum']/($stats[$cur_category]['totalpoints']))*$stats[$cur_category]['weight']; - } - - else if (isset($stats['all'])) { - $stats['all']['sum'] = $stats['all']['sum'] + $stats[$cur_category]['sum']; - $stats['all']['items'] = $stats['all']['items'] + $stats[$cur_category]['items']; - $stats['all']['totalpoints'] = $stats['all']['totalpoints'] + $stats[$cur_category]['totalpoints']; - $stats['all']['weighted_sum'] = $stats['all']['weighted_sum'] + ($stats[$cur_category]['sum']/($stats[$cur_category]['totalpoints']))*$stats[$cur_category]['weight']; - } - else { - $stats['all']['sum'] = $stats[$cur_category]['sum']; - $stats['all']['items'] = $stats[$cur_category]['items']; - $stats['all']['totalpoints'] = $stats[$cur_category]['totalpoints']; - $stats['all']['weighted_sum'] = ($stats[$cur_category]['sum']/($stats[$cur_category]['totalpoints']))*$stats[$cur_category]['weight']; - - } - } - } - $stats['all']['students'] = count($grades_by_student); - $stats['all']['average'] = $stats['all']['sum'] / $stats['all']['students']; - $stats['all']['average_weighted'] = $stats['all']['weighted_sum']/$stats['all']['students']; - - // calculate the average squared deviation and populate a list of all scores while we're at it - $stats['all']['avgsqddev'] = 0; - $stats['all']['avgsqddev_weighted'] = 0; - foreach($grades_by_student as $student=>$categories) { - foreach($categories as $cur_category=>$assignments) { - if ($cur_category != 'student_data') { - $stats['all']['avgsqddev'] = $stats['all']['avgsqddev'] + pow(($grades_by_student[$student]['student_data']['points']-$stats['all']['average']),2); - $stats['all']['avgsqddev_weighted'] = $stats['all']['avgsqddev_weighted'] + pow(($grades_by_student[$student]['student_data']['weighted']-$stats['all']['average_weighted']),2); - } - } - if (isset($stats['all']['all_scores'])) { - $stats['all']['all_scores'] .= ','.$grades_by_student[$student]['student_data']['points']; - $stats['all']['all_scores_weighted'] .= ','.$grades_by_student[$student]['student_data']['weighted']; - } - else { - $stats['all']['all_scores'] = $grades_by_student[$student]['student_data']['points']; - $stats['all']['all_scores_weighted'] = $grades_by_student[$student]['student_data']['weighted']; - } - } - $stats['all']['avgsqddev']=$stats['all']['avgsqddev']/$stats['all']['students']; - $stats['all']['avgsqddev_weighted']=$stats['all']['avgsqddev_weighted']/$stats['all']['students']; - $stats['all']['stddev'] = sqrt($stats['all']['avgsqddev']); - $stats['all']['stddev_weighted'] = sqrt($stats['all']['avgsqddev_weighted']); - $stats['all']['mode'] = grade_mode($stats['all']['all_scores']); - $stats['all']['mode_weighted'] = grade_mode($stats['all']['all_scores_weighted']); - - // make sure the mode is not set to every score - if(count($stats['all']['mode']) == count($grades_by_student)) { - $stats['all']['mode'] = get_string('nomode','grade'); - } - if(count($stats['all']['mode_weighted']) == count($grades_by_student)) { - $stats['all']['mode_weighted'] = get_string('nomode','grade'); - } - break; - } - default: - { - // get the stats for category - //populate the sum of student points, # items and totalpoints for each category - foreach($grades_by_student as $student=>$categories) { - if(isset($grades_by_student[$student][$category]['stats'])) { - if (isset($stats[$category]['sum'])) { - $stats[$category]['sum'] = $stats[$category]['sum'] + $grades_by_student[$student][$category]['stats']['points']; - } - else { - $stats[$category]['sum'] = $grades_by_student[$student][$category]['stats']['points']; - } - $stats[$category]['items'] = $grades_by_student[$student][$category]['stats']['grade_items']; - $stats[$category]['totalpoints'] = $grades_by_student[$student][$category]['stats']['totalpoints']; - } - } - $stats[$category]['students'] = count($grades_by_student); - $stats[$category]['average'] = $stats[$category]['sum']/$stats[$category]['students']; - - // calculate the average squared deviation and populate a list of all scores too - $stats[$category]['avgsqddev'] = 0; - foreach($grades_by_student as $student=>$categories) { - foreach($categories as $cur_category=>$assignment) { - if ($cur_category != 'student_data') { - if ($grades_by_student[$student][$category]['stats']['points'] == '-' || $grades_by_student[$student][$category]['stats']['points'] == get_string('grades','excluded')) { - // count grade as a zero - $stats[$category]['avgsqddev'] = $stats[$category]['avgsqddev'] + pow(($stats[$category]['average']),2); - } - else { - $stats[$category]['avgsqddev'] = $stats[$category]['avgsqddev'] + pow(($grades_by_student[$student][$category]['stats']['points']-$stats[$category]['average']),2); - } - } - } - - if (isset($stats[$category]['all_scores'])) { - $stats[$category]['all_scores'] .= ','.$grades_by_student[$student][$category]['stats']['points']; - } - else { - $stats[$category]['all_scores'] = $grades_by_student[$student][$category]['stats']['points']; - } - } - $stats[$category]['avgsqddev'] = $stats[$category]['avgsqddev']/$stats[$category]['students']; - $stats[$category]['stddev'] = sqrt($stats[$category]['avgsqddev']); - $stats[$category]['mode'] = grade_mode($stats[$category]['all_scores']); - break; - } - } // end switch - // do a little cleanup - $stats[$category]['stddev'] = sprintf("%0.2f", $stats[$category]['stddev']); - $stats[$category]['average'] = sprintf("%0.2f", $stats[$category]['average']); - $stats[$category]['max'] = max(explode(',',$stats[$category]['all_scores'])); - $stats[$category]['min'] = min(explode(',',$stats[$category]['all_scores'])); - $stats[$category]['median'] = explode(',',$stats[$category]['all_scores']); - - if (isset($stats[$category]['stddev_weighted'])) { - $stats[$category]['stddev_weighted'] = sprintf("%0.2f", $stats[$category]['stddev_weighted']); - } - if (isset($stats[$category]['average_weighted'])) { - $stats[$category]['average_weighted'] = sprintf("%0.2f", $stats[$category]['average_weighted']); - } - if (isset($stats[$category]['max_weighted'])) { - $stats[$category]['max_weighted'] = max(explode(',',$stats[$category]['all_scores_weighted'])); - } - if (isset($stats[$category]['min_weighted'])) { - $stats[$category]['min_weighted'] = min(explode(',',$stats[$category]['all_scores_weighted'])); - } - - if (isset($stats[$category]['all_scores_weighted'])) { - $stats[$category]['median_weighted'] = explode(',',$stats[$category]['all_scores_weighted']); - } - else { - + if (!empty($this->userid)) { + $result .= ''; } - - sort($stats[$category]['median']); - - if (count($stats[$category]['median'])/2 == floor(count($stats[$category]['median'])/2) ) { - // even number of scores - $temp = $stats[$category]['median'][count($stats[$category]['median'])/2-1] + $stats[$category]['median'][count($stats[$category]['median'])/2]; - $temp = $temp/2; - } - else { - // odd number of scores - $temp = $stats[$category]['median'][floor(count($stats[$category]['median'])/2)]; - } - unset($stats[$category]['median']); - $stats[$category]['median'] = $temp; - - if (isset($stats[$category]['median_weighted'])) { - if (count($stats[$category]['median_weighted'])/2 == floor(count($stats[$category]['median_weighted'])/2)) { - // even number of scores - $temp = $stats[$category]['median_weighted'][count($stats[$category]['median_weighted'])/2-1] + $stats[$category]['median_weighted'][count($stats[$category]['median_weighted'])/2+1]; - $temp = $temp/2; - } - else { - // odd number of scores - $temp = $stats[$category]['median_weighted'][floor(count($stats[$category]['median_weighted'])/2)]; - } - unset($stats[$category]['median_weighted']); - $stats[$category]['median_weighted'] = $temp; - } - } - return $stats; -} - -// returns a comma seperated list of the most common values in $items, $items is expected to be a comma sperated list of numbers -function grade_mode($items) { - $all_scores = explode(',',$items); - foreach($all_scores as $value) { - if (isset($frequency[$value])) { - $frequency[$value]++; - } - else { - $frequency[$value] = 1; - } - } - $max = max($frequency); - foreach($frequency as $key=>$value) { - if ($value == $max) { - if (isset($retval)) { - $retval .= ', '.$key; - } - else { - $retval = $key; - } - } - } - return $retval; -} - - -function grade_stats() { - global $CFG; - global $course; - global $USER; - global $preferences; - - if (!isset($category)) { - $category = clean_param($_REQUEST['category'], PARAM_CLEAN); - } - - $stats = grade_get_stats($category); - - // output our data - print_header(); - echo '
| '.$category.' '.get_string('stats','grades').' | ||
|---|---|---|
| '.get_string('points','grades').' | '.get_string('weight','grades').' | |
| '.get_string('max','grades').': | '.$stats[$category]['max'].' | '; - if ($preferences->show_weighted == 1 && $preferences->use_weighted_for_letter == 1 && $category== 'all') { - echo ''.$stats[$category]['max_weighted'].' | '; - } - echo '
| '.get_string('min','grades').': | '.$stats[$category]['min'].' | '; - if ($preferences->show_weighted == 1 && $preferences->use_weighted_for_letter == 1 && $category== 'all') { - echo ''.$stats[$category]['min_weighted'].' | '; - } - echo '
| '.get_string('average','grades').': | '.$stats[$category]['average'].' | '; - if ($preferences->show_weighted == 1 && $preferences->use_weighted_for_letter == 1 && $category== 'all') { - echo ''.$stats[$category]['average_weighted'].' | '; - } - echo '
| '.get_string('median','grades').': | '.$stats[$category]['median'].' | '; - if ($preferences->show_weighted == 1 && $preferences->use_weighted_for_letter == 1 && $category== 'all') { - echo ''.$stats[$category]['median_weighted'].' | '; - } - echo '
| '.get_string('mode','grades').': | '.$stats[$category]['mode'].' | '; - if ($preferences->show_weighted == 1 && $preferences->use_weighted_for_letter == 1 && $category== 'all') { - echo ''.$stats[$category]['mode_weighted'].' | '; - } - echo '
| '.get_string('standarddeviation','grades').': | '.$stats[$category]['stddev'].' | '; - if ($preferences->show_weighted == 1 && $preferences->use_weighted_for_letter == 1 && $category== 'all') { - echo ''.$stats[$category]['stddev_weighted'].' | '; - } - echo '
'.get_string('sortbylastname','grades').''; - $student_heading_link .= '
'.get_string('sortbyfirstname','grades').''; - } - else { - $student_heading_link .= '
'.get_string('showallstudents','grades').''; - } - } - echo '
| '.$student_heading_link.' | '; - } - else { - $header = '|||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| '.$student_link.' | '; - } - - foreach($categories as $category => $items) { - if ($category == $cview) { - // make sure that the grades come out in the same order - foreach($item_order as $order=>$assignment) { - - $class = $all_categories[$category][$assignment]['modname']; - - if ($assignment != 'stats') { - - if ($first == 0) { - $colcount++; - $link_id = grade_get_module_link($course->id, $all_categories[$category][$assignment]['cminstance'], $all_categories[$category][$assignment]['modid']); - - $link = $CFG->wwwroot.'/mod/'.$all_categories[$category][$assignment]['modname'].'/view.php?id='.$link_id->id; - $all_categories[$category][$assignment]['link'] = $link; - if ($all_categories[$category][$assignment]['hidden'] == 0) { - $header .= ''.format_string($assignment,true).''; - } - else { - $header .= ' | '.format_string($assignment,true).''; - } - if ($all_categories[$category][$assignment]['extra_credit'] == 1) { - $header .= '('.get_string('extracredit','grades').')'; - } - $header .=' | '; - if ($preferences->show_points) { - $header1 .= ''. $all_categories[$category][$assignment]['maxgrade']; - if ($all_categories[$category][$assignment]['grade_against'] != $all_categories[$category][$assignment]['maxgrade']) { - $header1 .= '('. $all_categories[$category][$assignment]['grade_against'].')'; - } - $header1 .= ' | '; - } - - if($preferences->show_percent) { - if ($all_categories[$category][$assignment]['grade_against'] != $all_categories[$category][$assignment]['maxgrade']) { - $header1 .= ''.get_string('scaledpct','grades').' | '; - } - else { - $header1 .= ''.get_string('rawpct','grades').' | '; - } - } - if ($preferences->show_weighted) { - if ($all_categories[$category]['stats']['totalpoints'] != 0) { - $cur_weighted_max = sprintf("%0.2f", $all_categories[$category][$assignment]['grade_against']/$all_categories[$category]['stats']['totalpoints']*$all_categories[$category]['stats']['weight']); - } - else { - $cur_weighted_max = 0; - } - $header1 .= ''.$cur_weighted_max.get_string('pctoftotalgrade','grades').' | '; - } - } - - // display points - if ($preferences->show_points) { - $class .= ($oddcol) ? ' c0 points' : ' c1 points'; - $oddcol = !$oddcol; - $row .= '' . $items[$assignment]['grade'] . ' | '; - } - - if ($preferences->show_percent) { - $class .= ($oddcol) ? ' c0 percent' : ' c1 percent'; - $oddcol = !$oddcol; - $row .= ''. $items[$assignment]['percent'].'% | '; - } - - if ($preferences->show_weighted) { - $class .= ($oddcol) ? ' c0 weighted' : ' c1 weighted'; - $oddcol = !$oddcol; - $row .= ''.$items[$assignment]['weighted'].'% | '; - } - } - } - } else { - $class = ''; - } - } - - if ($first == 0) { - if (has_capability('moodle/course:viewcoursegrades', $context) && $view_by_student == -1) { - $total_sort_link = ''.get_string('total','grades').' (Lowest '. $all_categories[$cview]['stats']['drop']. ' Dropped)'.$total_sort_link.' '.$stats_link.' | '; - } - else { - $header .= ''.get_string('total','grades').' '.$total_sort_link.' '.$stats_link.' | '; - } - - if ($preferences->show_points) { - $header1 .= ''.$all_categories[$cview]['stats']['totalpoints']; - if ($all_categories[$cview]['stats']['bonus_points'] != 0) { - $header1 .='(+'.$all_categories[$cview]['stats']['bonus_points'].')'; - } - $header1 .=' | '; - } - if ($preferences->show_percent) { - $header1 .= ''.get_string('percent','grades').' | '; - } - - - if ($preferences->show_weighted) { - $header1 .= ''.$all_categories[$cview]['stats']['weight'].get_string('pctoftotalgrade','grades').' | '; - } - - if (has_capability('moodle/course:viewcoursegrades', $context)) { - $header .= ''.$student_heading_link.' |
| '; - if ($preferences->use_advanced != 0) { - echo $cview.' '.get_string('grades','grades'); - } - else { - echo get_string('grades','grades'); - } - - if (has_capability('moodle/course:viewcoursegrades', $context)) { - helpbutton('teacher', get_string('gradehelp','grades'), 'grade'); - } - else { - helpbutton('student', get_string('gradehelp','grades'), 'grade'); - } - echo ' | '.$grades_by_student[$student][$cview]['stats']['points'].' | '; - } - - // total percent for category - if ($preferences->show_percent) { - $class .= ($oddcol) ? ' c0 percent' : ' c1 percent'; - $oddcol = !$oddcol; - $row .= ''.$grades_by_student[$student][$cview]['stats']['percent'].'% | '; - } - - - // total weighted for category - if ($preferences->show_weighted) { - $class .= ($oddcol) ? ' c0 weighted' : ' c1 weighted'; - $oddcol = !$oddcol; - $row .= ''.$grades_by_student[$student][$cview]['stats']['weighted'].'% | '; - } - - if (has_capability('moodle/course:viewcoursegrades', $context)) { - $row .= ''.$student_link.' | '; - } - $row .= ''; - echo $row; - $reprint++; - } - echo '
| '.$student_heading_link.' | '; - } - else { - $header = '||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| '. $studentviewlink .' | '; - } - ksort($categories); - - foreach($categories as $category => $items) { - if ($category != 'student_data') { - - if ($first == 0) { - $colcount++; - if ($category == UNCATEGORISED) { - $categoryname = get_string(UNCATEGORISED, 'grades'); - } else { - $categoryname = $category; - } - // only print the category headers if something is displayed for them - if ($preferences->show_weighted || $preferences->show_percent || $preferences->show_points) { - $stats_link = ''.get_string('statslink','grades').''; - $header .= ''. $categoryname .' '.$stats_link.''; - } - if ($preferences->display_weighted != 0) { - $header .= '('. $all_categories[$category]['stats']['weight'] . '%)'; - } - $header .= ' | '; - if ($preferences->show_points) { - $header1 .= ''.get_string('points','grades').'('.$all_categories[$category]['stats']['totalpoints'].')'; - if ($all_categories[$category]['stats']['bonus_points'] != 0) { - $header1 .='(+'.$all_categories[$category]['stats']['bonus_points'].')'; - } - $header1 .=' | '; - } - if ($preferences->show_percent) { - $header1 .= ''.get_string('percent','grades').' | '; - } - if ($preferences->show_weighted) { - $header1 .= ''.get_string('weightedpctcontribution','grades').' | '; - } - $maxpercent = $all_categories["$category"]['stats']['weight'] + $maxpercent; - //$total_course_points = $all_categories[$category]['stats']['totalpoints']+ $total_course_points; - //$total_course_points = $all_categories[$category]['stats']['totalpoints']+ $total_course_points; - } - - if ($preferences->show_points) { - $row .= '' . $items['stats']['points'] . ' | '; - } - if ($preferences->show_percent) { - $row .= ''. $items['stats']['percent'].'% | '; - } - - if ($preferences->show_weighted) { - $row .= ''. $items['stats']['weighted'] . '% | '; - } - $total_bonus_points = $all_categories[$category]['stats']['bonus_points']; - } - } - if ($first == 0) { - if ($preferences->show_letters) { - $total_columns = $grade_columns + 1; - } - else { - $total_columns = $grade_columns; - } - - if (has_capability('moodle/course:viewcoursegrades', $context) && $view_by_student == -1) { - $grade_sort_link = ''.get_string('total','grades').' '.$stats_link.' | '; - if (has_capability('moodle/course:viewcoursegrades', $context) && $view_by_student == -1) { - if ($preferences->show_points) { - $header1 .= ''.get_string('points','grades').'('.$all_categories['stats']['totalpoints'].')';
- if ($category != 'student_data' && $all_categories[$category]['stats']['bonus_points'] != 0) {
-
- $header1 .='(+'.$total_bonus_points.')';
- }
- $header1 .= ' '.$points_sort_link.' '.' | ';
- }
- if ($preferences->show_percent) {
- $header1 .= ''.get_string('percentshort','grades').' '.$percent_sort_link.' '.' | ';
- }
- if ($preferences->show_weighted) {
- $header1 .= ''.get_string('weightedpct','grades').'('.$all_categories['stats']['weight'].')'.' '.$weighted_sort_link.' '.' | ';
- }
- if ($preferences->show_letters) {
- $header1 .= ''.get_string('lettergrade','grades').' '.$grade_sort_link.' '.' | ';
- }
- $header1 .= ''.get_string('points','grades').'('.$all_categories['stats']['totalpoints'].')'; - if ($category != 'student_data' && $all_categories[$category]['stats']['bonus_points'] != 0) { - $header1 .='(+'.$total_bonus_points.')'; - } - $header1 .= ' | '; - } - if ($preferences->show_percent) { - $header1 .= ''.get_string('percentshort','grades').' | '; - } - if ($preferences->show_weighted) { - $header1 .= ''.get_string('weightedpct','grades').'('.$all_categories['stats']['weight'].') | '; - } - if ($preferences->show_letters) { - $header1 .= ''.get_string('lettergrade','grades').' | '; - } - $header1 .= ''; - } - if (has_capability('moodle/course:viewcoursegrades', $context)) { - $header .= ''.$student_heading_link.' | '; - } - // adjust colcount to reflect actual number of columns output - $colcount = $colcount * $grade_columns + $total_columns + 2; - - echo '
| '.get_string('allgrades','grades').''; - if (has_capability('moodle/course:viewcoursegrades', $context)) { - helpbutton('teacher', get_string('gradehelp','grades'), 'grade'); - } - else { - helpbutton('student', get_string('gradehelp','grades'), 'grade'); - } - echo ' | '.$grades_by_student[$student]['student_data']['points'].' | '; - } - if ($preferences->show_percent) { - $row .= ''.$grades_by_student[$student]['student_data']['percent'].'% | '; - } - if ($preferences->show_weighted) { - $row .= ''.$grades_by_student[$student]['student_data']['weighted'].'% | '; - } - if ($preferences->show_letters) { - if ($preferences->use_weighted_for_letter == 1) { - $grade = $grades_by_student[$student]['student_data']['weighted']; - } - else { - $grade = $grades_by_student[$student]['student_data']['percent']; - } - $letter_grade = grade_get_grade_letter($course->id, $grade); - if ($letter_grade) { - $row .= ''.$letter_grade->letter.' | '; - } - else { - // there wasn't an appropriate entry to use in the gradebook. - if (grade_letters_set($course->id)) { - $row .= ''.get_string('nolettergrade','grades').' '.$grade.' | '; - } - else { - $row .= ''.get_string('nogradeletters','grades').' | '; - } - } - } - if (has_capability('moodle/course:viewcoursegrades', $context)) { - $row .= ''. $studentviewlink .' | '; - } - else { - $row .= ''; - } - - echo $row; - $reprint++; - } - echo '
'; - } - } - } -} - -function grade_display_grade_weights() { -// get all categories with weights -// then set and display that entry. - global $CFG; - global $course; - global $USER; - - $categories = get_records('grade_category', 'courseid', $course->id); - if ($categories) { - echo '
