--- loncom/interface/lonblockingmenu.pm 2016/10/23 16:17:52 1.23 +++ 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.23 2016/10/23 16:17:52 raeburn Exp $ +# $Id: lonblockingmenu.pm,v 1.24 2016/10/23 17:02:56 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -658,20 +658,19 @@ END &Apache::loncourserespicker::get_navmap_object($crstype,'examblock'); # --------------------------------------------- Interface for adding a new block - if ($readonly) { - if (!$blockcount) { - $r->print($lt{'ncbc'}.'
'); - } - } else { + unless ($readonly) { &display_addblocker_table($r,$blockcount,\%ltext,\%intervals, $navmap,$errormsg); if ($blockcount > 0) { $r->print(''); } } - # ------------------------------------------------ Interface for existing blocks - if ($blockcount > 0) { + if (!$blockcount) { + if ($readonly) { + $r->print($lt{'ncbc'}.'
'); + } + } else { &display_blocker_status($r,\%records,\%ltext,\%intervals, $navmap,$errormsg,$blockcount,$readonly); }