Added ability for teacher to see subscribers for each forum

diff --git a/mod/forum/subscribers.php b/mod/forum/subscribers.php
new file mode 100644 (file)
index 0000000..645102f
--- /dev/null
+++ b/mod/forum/subscribers.php
@@ -0,0 +1,64 @@
+<?PHP  // $Id$
+
+    require("../../config.php");
+    require("lib.php");
+
+    require_variable($id);          // forum
+
+    if (! $forum = get_record("forum", "id", $id)) {
+        error("Forum ID is incorrect");
+    }
+
+    if (! $course = get_record("course", "id", $forum->course)) {
+        error("Could not find this course!");
+    }
+
+    require_login($course->id);
+
+    if (!isteacher($course->id)) {
+        error("This page is for teachers only");
+    }
+
+    unset($SESSION->fromdiscuss);
+
+    add_to_log($course->id, "forum", "view subscribers", "subscribers.php?id=$forum->id", "");
+
+    $strsubscribers = get_string("subscribers", "forum");
+    $strforums      = get_string("forums", "forum");
+
+    if ($course->category) {
+        $navigation = "<A HREF=\"../../course/view.php?id=$course->id\">$course->shortname</A> ->
+                       <A HREF=\"index.php?id=$course->id\">$strforums</A> -> 
+                       <A HREF=\"view.php?f=$forum->id\">$forum->name</A> -> $strsubscribers";
+    } else {
+        $navigation = "<A HREF=\"index.php?id=$course->id\">$strforums</A> -> 
+                       <A HREF=\"view.php?f=$forum->id\">$forum->name</A> -> $strsubscribers";
+    }
+
+    print_header("$course->shortname: $strsubscribers", "$course->fullname", "$navigation");
+
+    $subscribers = get_records_sql("SELECT u.* FROM user u, user_students us, user_teachers ut, 
+                                          forum_subscriptions fs
+                                    WHERE fs.forum = '$forum->id' AND fs.user = u.id AND 
+                                          (fs.user = us.user OR fs.user = ut.user) 
+                                    GROUP BY u.id 
+                                    ORDER BY u.firstname");
+
+    if (! $subscribers) {
+        print_heading("No subscribers yet");
+    } else {
+        print_heading("Subscribers to '$forum->name'");
+        echo "<TABLE ALIGN=CENTER>";
+        foreach ($subscribers as $subscriber) {
+            echo "<TR><TD>";
+            print_user_picture($subscriber->id, $course->id, $subscriber->picture);
+            echo "</TD><TD>";
+            echo "$subscriber->firstname $subscriber->lastname";
+            echo "</TD></TR>";
+        }
+        echo "</TABLE>";
+    }
+
+    print_footer($course);
+
+?>

diff --git a/mod/forum/view.php b/mod/forum/view.php
index 2106c88cd7b874fb6b3d198099a5c335ba011cd9..4a45019bc2fd78ce8bb51a67dd457aca2c7a75c3 100644 (file)
--- a/mod/forum/view.php
+++ b/mod/forum/view.php
@@ -36,6 +36,8 @@
         require_login($course->id);
         $navigation = "<A HREF=\"../../course/view.php?id=$course->id\">$course->shortname</A> ->
                        <A HREF=\"index.php?id=$course->id\">Forums</A> ->";
+    } else {
+        $navigation = "<A HREF=\"index.php?id=$course->id\">Forums</A> ->";
     }
 
     if ($forum->type == "teacher") {
@@ -53,11 +55,14 @@
     if ($USER) {
         $SESSION->fromdiscuss = "$FULLME";
         if (is_subscribed($USER->id, $forum->id)) {
-            $subtext = "Unsubscribe from this forum";
+            $subtext = "Unsubscribe me from this forum";
         } else {
-            $subtext = "Subscribe to this forum";
+            $subtext = "Subscribe me to this forum";
         }
         echo "<DIV ALIGN=RIGHT><FONT SIZE=1><A HREF=\"subscribe.php?id=$forum->id\">$subtext</A></FONT></DIV>";
+        if (isteacher($course->id)) {
+            echo "<DIV ALIGN=RIGHT><FONT SIZE=1><A HREF=\"subscribers.php?id=$forum->id\">Show subscribers</A></FONT></DIV>";
+        }
     }
 
     print_simple_box(text_to_html($forum->intro), "CENTER");