From: moodler <moodler>
Date: Sun, 15 Feb 2004 05:08:00 +0000 (+0000)
Subject: WHen emptying a course, delete groups and events
X-Git-Url: http://git.mjollnir.org/gw?a=commitdiff_plain;h=082e3ebc4f382698894c8d75b27d0dae0d6e54e5;p=moodle.git

WHen emptying a course, delete groups and events
---

diff --git a/lib/moodlelib.php b/lib/moodlelib.php
index e1e38b9cc9..bb122e90cd 100644
--- a/lib/moodlelib.php
+++ b/lib/moodlelib.php
@@ -973,6 +973,37 @@ function remove_course_contents($courseid, $showfeedback=true) {
         $result = false;
     }
 
+    // Delete any groups
+
+    if ($groups = get_records("groups", "courseid", $course->id)) {
+        foreach ($groups as $group) {
+            if (delete_records("groups_members", "groupid", $group->id)) {
+                if ($showfeedback) {
+                    notify("$strdeleted groups_members");
+                }
+            } else {
+                $result = false;
+            }
+            if (delete_records("groups", "id", $group->id)) {
+                if ($showfeedback) {
+                    notify("$strdeleted groups");
+                }
+            } else {
+                $result = false;
+            }
+        }
+    }
+
+    // Delete events
+
+    if (delete_records("event", "courseid", $course->id)) {
+        if ($showfeedback) {
+            notify("$strdeleted event");
+        }
+    } else {
+        $result = false;
+    }
+
     // Delete logs
 
     if (delete_records("log", "course", $course->id)) {