Add a workflow activity that reverifies that all subscribers to a CS can still view the CS, otherwise, remove them. Hook up the workflow to the update method in Collaboriation.pm and create an instance for it if the groupIdView changes. Add tests for the activity. Add a new workflow. Update the default WebGUI.conf.

docs/changelog/7.x.x.txt

@@ -2,6 +2,7 @@
  - fixed #11974: Toolbar icons unclickable in Webkit using HTML5
  - fixed #11978: Pasting links into TinyMCE
  - fixed #11980: DataForm broken
+ - fixed #11971: Still subscribed to forums you no longer have privilege to view
 
 7.10.5
  - fixed #11950: Username set to 0 when edit user 

docs/upgrades/upgrade_7.10.5-7.10.6.pl

@@ -22,7 +22,7 @@ use Getopt::Long;
 use WebGUI::Session;
 use WebGUI::Storage;
 use WebGUI::Asset;
-
+use WebGUI::Workflow;
 
 my $toVersion = '7.10.6';
 my $quiet; # this line required
@@ -31,10 +31,31 @@ my $quiet; # this line required
 my $session = start(); # this line required
 
 # upgrade functions go here
+addCollaborationSubscriptionWorkflow($session);
 
 finish($session); # this line required
 
 
+#----------------------------------------------------------------------------
+sub addCollaborationSubscriptionWorkflow {
+    my $session = shift;
+    print "\tWe're doing some stuff here that you should know about... " unless $quiet;
+    # and here's our code
+    $session->config->addToArray('workflowActivities/WebGUI::Asset', qw/WebGUI::Workflow::Activity::UpdateAssetSubscribers/);
+    my $workflow = WebGUI::Workflow->create($session,
+        {
+            mode => 'parallel',
+            enabled => 1,
+            title   => 'Update CS Subscription members',
+            description => "This workflow will be run whenever the viewing permissions are changed on an Asset.  It will update the members of the subscription group, and remove members who can no longer view the Asset.",
+            type        => 'WebGUI::Asset',
+        },
+        'xR-_GRRbjBojgLsFx3dEMA'
+    );
+    $workflow->addActivity('WebGUI::Workflow::Activity::UpdateAssetSubscribers');
+    print "DONE!\n" unless $quiet;
+}
+
 #----------------------------------------------------------------------------
 # Describe what our function does
 #sub exampleFunction {