[BACK]Return to lonblockingmenu.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonblockingmenu.pm between versions 1.14.2.3.2.1 and 1.23

version 1.14.2.3.2.1, 2019/02/06 15:40:22 version 1.23, 2016/10/23 16:17:52
Line 527  sub handler { Line 527  sub handler {
             $r->print(&Apache::loncourserespicker::create_picker($navmap,              $r->print(&Apache::loncourserespicker::create_picker($navmap,
                                      'examblock','resourceblocks',$crstype,                                       'examblock','resourceblocks',$crstype,
                                      \%blockedmaps,\%blockedresources,                                       \%blockedmaps,\%blockedresources,
                                      $env{'form.block'},'','',undef,undef,$readonly));                                       $env{'form.block'},'','',undef,$readonly));
         } else {          } else {
             $r->print($errormsg);              $r->print($errormsg);
         }          }
Line 658  END Line 658  END
         &Apache::loncourserespicker::get_navmap_object($crstype,'examblock');          &Apache::loncourserespicker::get_navmap_object($crstype,'examblock');
   
 # --------------------------------------------- Interface for adding a new block  # --------------------------------------------- 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,          &display_addblocker_table($r,$blockcount,\%ltext,\%intervals,
                                   $navmap,$errormsg);                                    $navmap,$errormsg);
         if ($blockcount > 0) {          if ($blockcount > 0) {
             $r->print('</div>');              $r->print('</div>');
         }          }
     }      }
   
 # ------------------------------------------------ Interface for existing blocks  # ------------------------------------------------ Interface for existing blocks
     if (!$blockcount) {      if ($blockcount > 0) {
         if ($readonly) {  
             $r->print($lt{'ncbc'}.'<br />');  
         }  
     } else {  
         &display_blocker_status($r,\%records,\%ltext,\%intervals,          &display_blocker_status($r,\%records,\%ltext,\%intervals,
                                 $navmap,$errormsg,$blockcount,$readonly);                                  $navmap,$errormsg,$blockcount,$readonly);
     }      }
Removed from v.1.14.2.3.2.1  
changed lines
  Added in v.1.23

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>