--- loncom/interface/lonblockingmenu.pm	2024/12/30 00:30:49	1.14.2.4
+++ loncom/interface/lonblockingmenu.pm	2016/10/23 16:17:52	1.23
@@ -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.4 2024/12/30 00:30:49 raeburn Exp $
+# $Id: lonblockingmenu.pm,v 1.23 2016/10/23 16:17:52 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -658,19 +658,20 @@ END
         &Apache::loncourserespicker::get_navmap_object($crstype,'examblock');
 
 # --------------------------------------------- Interface for adding a new block
-    unless ($readonly) {
+    if ($readonly) {
+        if (!$blockcount) {
+            $r->print($lt{'ncbc'}.'<br />');
+        }
+    } else {
         &display_addblocker_table($r,$blockcount,\%ltext,\%intervals,
                                   $navmap,$errormsg);
         if ($blockcount > 0) {
             $r->print('</div>');
         }
     }
+
 # ------------------------------------------------ Interface for existing blocks
-    if (!$blockcount) {
-        if ($readonly) {
-            $r->print($lt{'ncbc'}.'<br />');
-        }
-    } else {
+    if ($blockcount > 0) {
         &display_blocker_status($r,\%records,\%ltext,\%intervals,
                                 $navmap,$errormsg,$blockcount,$readonly);
     }
@@ -963,7 +964,8 @@ sub update_releasereq {
         }
         $modified_courses = [];
     }
-    return OK;
+    undef($registered_cleanup);
+    return;
 }
 
 sub get_dates_from_form {