admin/oacleanup.php

   1 <?php // $Id$
   2
   3 if (!isset($CFG)) {
   4
   5     require('../config.php');
   6
   7     require_login();
   8
   9     if (!isadmin()) {
  10         error('You must be an admin to use this script');
  11         exit;
  12     }
  13
  14     print_header_simple('Online Assignment Cleanup','Online Assignment Cleanup', 'Admin');
  15
  16     online_assignment_cleanup(true);
  17
  18     print_footer();
  19
  20 }
  21
  22
  23
  24 function online_assignment_cleanup($output=false) {
  25     global $CFG;
  26
  27     if ($output) {
  28         print_heading('Online Assignment Cleanup');
  29         echo '<center>';
  30     }
  31
  32
  33     /// We don't want to run this code if we are doing an upgrade from an assignment
  34     /// version earlier than 2005041400
  35     /// because the assignment type field will not exist
  36     $amv = get_field('modules', 'version', 'name', 'assignment');
  37     if ((int)$amv < 2005041400) {
  38         if ($output) {
  39             echo '</center>';
  40         }
  41         return;
  42     }
  43
  44
  45     /// get the module id for assignments from db
  46     $arecord = get_record('modules', 'name', 'assignment');
  47     $aid = $arecord->id;
  48
  49
  50     /// get a list of all courses on this site
  51     $courses = get_courses();
  52
  53     /// cycle through each course
  54     foreach ($courses as $course) {
  55
  56         $fullname = empty($course->fullname) ? 'Course: '.$course->id : $course->fullname;
  57         if ($output) print_heading($fullname);
  58
  59         /// retrieve a list of sections beyond what is currently being shown
  60         $sql = 'SELECT * FROM '.$CFG->prefix.'course_sections WHERE course='.$course->id.' AND section>'.$course->numsections.' ORDER BY section ASC';
  61         if (!($xsections = get_records_sql($sql))) {
  62             if ($output) echo 'No extra sections<br />';
  63             continue;
  64         }
  65
  66         /// cycle through each of the xtra sections
  67         foreach ($xsections as $xsection) {
  68
  69             if ($output) echo 'Checking Section: '.$xsection->section.'<br />';
  70
  71             /// grab any module instances from the sequence field
  72             if (!empty($xsection->sequence)) {
  73                 $instances = explode(',', $xsection->sequence);
  74
  75                 /// cycle through the instances
  76                 foreach ($instances as $instance) {
  77                     /// is this an instance of an online assignment
  78                     $sql = "SELECT a.id
  79                         FROM  {$CFG->prefix}course_modules cm,
  80                     {$CFG->prefix}assignment a
  81                     WHERE cm.id = '$instance' AND
  82                         cm.module = '$aid' AND
  83                         cm.instance = a.id AND
  84                         a.assignmenttype = 'online'";
  85
  86
  87                     /// if record exists then we need to move instance to it's correct section
  88                     if (record_exists_sql($sql)) {
  89
  90                         /// check the new section id
  91                         /// the journal update erroneously stored it in course_sections->section
  92                         $newsection = $xsection->section;
  93                         /// double check the new section
  94                         if ($newsection > $course->numsections) {
  95                             /// get the record for section 0 for this course
  96                             if (!($zerosection = get_record('course_sections', 'course', $course->id, 'section', '0'))) {
  97                                 continue;
  98                             }
  99                             $newsection = $zerosection->id;
 100                         }
 101
 102                         /// grab the section record
 103                         if (!($section = get_record('course_sections', 'id', $newsection))) {
 104                             if ($output) echo 'Serious error: Cannot retrieve section: '.$newsection.' for course: '.$course->fullname.'<br />';
 105                             continue;
 106                         }
 107
 108                         /// explode the sequence
 109                         if  (($sequence = explode(',', $section->sequence)) === false) {
 110                             $sequence = array();
 111                         }
 112
 113                         /// add instance to correct section
 114                         array_push($sequence, $instance);
 115
 116                         /// implode the sequence
 117                         $section->sequence = implode(',', $sequence);
 118
 119                         set_field('course_sections', 'sequence', $section->sequence, 'id', $section->id);
 120
 121                         /// now we need to remove the instance from the old sequence
 122
 123                         /// grab the old section record
 124                         if (!($section = get_record('course_sections', 'id', $xsection->id))) {
 125                             if ($output) echo 'Serious error: Cannot retrieve old section: '.$xsection->id.' for course: '.$course->fullname.'<br />';
 126                             continue;
 127                         }
 128
 129                         /// explode the sequence
 130                         if  (($sequence = explode(',', $section->sequence)) === false) {
 131                             $sequence = array();
 132                         }
 133
 134                         /// remove the old value from the array
 135                         $key = array_search($instance, $sequence);
 136                         unset($sequence[$key]);
 137
 138                         /// implode the sequence
 139                         $section->sequence = implode(',', $sequence);
 140
 141                         set_field('course_sections', 'sequence', $section->sequence, 'id', $section->id);
 142
 143
 144                         if ($output) echo 'Online Assignment (instance '.$instance.') moved from section '.$section->id.': to section '.$newsection.'<br />';
 145
 146                     }
 147                 }
 148             }
 149
 150             /// if the summary and sequence are empty then remove this section
 151             if (empty($xsection->summary) and empty($xsection->sequence)) {
 152                 delete_records('course_sections', 'id', $xsection->id);
 153                 if ($output) echo 'Deleting empty section '.$xsection->section.'<br />';
 154             }
 155         }
 156     }
 157
 158     echo '</center>';
 159 }
 160
 161 ?>