From 8f66d49a779fb22a169ede89def93d1985abe5bc Mon Sep 17 00:00:00 2001
From: martin <martin>
Date: Sun, 8 Sep 2002 16:04:51 +0000
Subject: [PATCH] Added an "unsubscribe" link to emails

---
 mod/forum/lib.php | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/mod/forum/lib.php b/mod/forum/lib.php
index 08e9f0fba5..b621d4fe2b 100644
--- a/mod/forum/lib.php
+++ b/mod/forum/lib.php
@@ -905,6 +905,7 @@ function forum_cron () {
 
             if ($users = forum_subscribed_users($course, $forum)) {
                 $strforums = get_string("forums", "forum");
+                $canunsubscribe = ! forum_is_forcesubscribed($forum->id);
 
                 $mailcount=0;
                 foreach ($users as $userto) {
@@ -946,6 +947,11 @@ function forum_cron () {
                             $posthtml .= " -> <A HREF=\"$CFG->wwwroot/mod/forum/discuss.php?d=$discussion->id\">$discussion->name</A></FONT></P>";
                         }
                         $posthtml .= forum_make_mail_post($post, $userfrom, $userto, $course, false, true, false, false);
+
+                        if ($canunsubscribe) {
+                            $posthtml .= "\n<BR><HR SIZE=1 NOSHADE><FONT SIZE=1><A HREF=\"$CFG->wwwroot/mod/forum/subscribe.php?id=$forum->id\">".get_string("unsubscribe", "forum")."</A></FONT>";
+                        }
+
                     } else {
                       $posthtml = "";
                     }
-- 
2.39.5