--- loncom/interface/lonblockingmenu.pm 2020/10/01 18:59:09 1.14.2.3.2.3 +++ loncom/interface/lonblockingmenu.pm 2024/12/20 00:24:38 1.31 @@ -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.2.3 2020/10/01 18:59:09 raeburn Exp $ +# $Id: lonblockingmenu.pm,v 1.31 2024/12/20 00:24:38 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -527,7 +527,8 @@ sub handler { $r->print(&Apache::loncourserespicker::create_picker($navmap, 'examblock','resourceblocks',$crstype, \%blockedmaps,\%blockedresources, - $env{'form.block'},'','',undef,undef,$readonly)); + $env{'form.block'},'','',undef,undef,undef, + $readonly)); } else { $r->print($errormsg); } @@ -618,10 +619,10 @@ sub handler { ''. @@ -989,8 +990,7 @@ sub update_releasereq { } $modified_courses = []; } - undef($registered_cleanup); - return; + return OK; } sub get_dates_from_form { @@ -1655,6 +1655,7 @@ sub blocktype_text { 'port' => 'Portfolio', 'groups' => 'Groups', 'blogs' => 'Blogs', + 'about' => 'User Information', 'docs' => 'Content', 'printout' => 'Printouts', 'passwd' => 'Change Password', @@ -1663,7 +1664,7 @@ sub blocktype_text { 'alert' => 'Critical Alert', 'reinit' => 'Course Re-init', ); - my $typeorder = ['com','chat','boards','port','groups','blogs','printout','docs','grades','search','alert','reinit','passwd']; + my $typeorder = ['com','chat','boards','port','groups','blogs','about','printout','docs','grades','search','alert','reinit','passwd']; return ($typeorder,\%types); }