--- loncom/interface/lonblockingmenu.pm	2020/09/08 04:16:49	1.14.2.3.4.2
+++ loncom/interface/lonblockingmenu.pm	2016/10/23 17:02:56	1.24
@@ -2,7 +2,7 @@
 # Routines for configuring blocking of access to collaborative functions, 
 # and specific resources during an exam
 #
-# $Id: lonblockingmenu.pm,v 1.14.2.3.4.2 2020/09/08 04:16:49 raeburn Exp $
+# $Id: lonblockingmenu.pm,v 1.24 2016/10/23 17:02:56 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -527,7 +527,7 @@ sub handler {
             $r->print(&Apache::loncourserespicker::create_picker($navmap,
                                      'examblock','resourceblocks',$crstype,
                                      \%blockedmaps,\%blockedresources,
-                                     $env{'form.block'},'','',undef,undef,$readonly));
+                                     $env{'form.block'},'','',undef,$readonly));
         } else {
             $r->print($errormsg);
         }
@@ -578,7 +578,6 @@ sub handler {
     my %lt=&Apache::lonlocal::texthash (
             'cbds' => 'Blocking communication and/or content access during exams',
             'prev' => "For the duration of an exam, or a timed quiz, students in this course can be prevented from:",
-            'flow' => "For the duration of an exam, or a timed quiz, event-driven interruptions to a student's workflow can be suppressed:",
             'blca' => "Blocks can potentially interrupt legitimate communication between $usertype who are also both enrolled in a different LON-CAPA $lctype.",
             'pobl' => "Portfolio blocking can impact a student's ability to complete assignments in courses besides your own. Please use this feature wisely.",
             'actt' => "Action to take:",
@@ -620,15 +619,9 @@ sub handler {
             '<li>'.&mt("displaying or posting to LON-CAPA discussion boards or live chat in the $lctype").'</li>'."\n".
             '<li>'.&mt('accessing content in LON-CAPA portfolios or blogs').'</li>'."\n".
             '<li>'.&mt("generating printouts of $lctype content").'</li>'.
-            '<li>'.&mt("displaying the LON-CAPA gradebook in the $lctype").'</li>'.
             '<li>'.&mt("accessing $lctype content in specified folders or resources").'</li>'.
             '<li>'.&mt("changing user's own password").'</li>'.
             '</ul>'.
-            $lt{'flow'}.
-            '<ul>'."\n".
-            '<li>'.&mt("re-initialization of cached course structure, when a change has been made to $lctype content by a Coordinator").'</li>'.
-            '<li>'.&mt('display of Critical Messages when navigation arrows used to move to the adjacent resource').'</li>'.
-            '</ul>'.
             '<p class="LC_warning">'.$lt{'blca'}.'<br />'.$lt{'pobl'}.'</p>'
         );
     }
@@ -884,24 +877,6 @@ sub blockstore {
                                            &escape($env{'form.title_'.$key})).'<br />';
                         }
                     }
-                    if ($blocktypes->{'alert'} eq 'on') {
-                        ($status,$needsrelease) = &check_release_required('alert',$chomemajor,$chomeminor);
-                        if ($status eq 'fail') {
-                            $blocktypes->{'alert'} = 'off';
-                            $output .= '<p class="LC_warning">'.
-                                       &mt('Message Alert blocking not allowed for [_1]',
-                                           &escape($env{'form.title_'.$key})).'<br />';
-                        }
-                    }
-                    if ($blocktypes->{'reinit'} eq 'on') {
-                        ($status,$needsrelease) = &check_release_required('reinit',$chomemajor,$chomeminor);
-                        if ($status eq 'fail') {
-                            $blocktypes->{'reinit'} = 'off';
-                            $output .= '<p class="LC_warning">'.
-                                       &mt('Course Re-initialization blocking not allowed for [_1]',
-                                           &escape($env{'form.title_'.$key})).'<br />';
-                        }
-                    }
                 }
                 if ($blockdocs) {
                     ($status,$needsrelease) = &check_release_required('docs',$chomemajor,$chomeminor);
@@ -1657,11 +1632,8 @@ sub blocktype_text {
         'docs' => 'Content',
         'printout' => 'Printouts',
         'passwd' => 'Change Password',
-        'grades' => 'Gradebook',
-        'alert'  => 'Critical Alert',
-        'reinit' => 'Course Re-init',
     );
-    my $typeorder = ['com','chat','boards','port','groups','blogs','printout','docs','grades','alert','reinit','passwd'];
+    my $typeorder = ['com','chat','boards','port','groups','blogs','printout','docs','passwd'];
     return ($typeorder,\%types);
 }