--- loncom/interface/lonblockingmenu.pm 2021/01/04 17:24:13 1.14.2.3.4.4 +++ loncom/interface/lonblockingmenu.pm 2024/12/31 19:28:29 1.32 @@ -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.4 2021/01/04 17:24:13 raeburn Exp $ +# $Id: lonblockingmenu.pm,v 1.32 2024/12/31 19:28:29 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); } @@ -621,7 +622,8 @@ sub handler { '
  • '.&mt('accessing content in LON-CAPA portfolios, blogs, or user information pages').'
  • '."\n". '
  • '.&mt("generating printouts of $lctype content").'
  • '. '
  • '.&mt("displaying the LON-CAPA gradebook in the $lctype").'
  • '. - '
  • '.&mt("searching $lctype content by keyword").'
  • '. + '
  • '.&mt("searching $lctype content by keyword").'
  • '. + '
  • '.&mt("displaying $lctype content indexed by keyword").'
  • '. '
  • '.&mt("accessing $lctype content in specified folders or resources").'
  • '. '
  • '.&mt("changing user's own password").'
  • '. ''. @@ -989,8 +991,7 @@ sub update_releasereq { } $modified_courses = []; } - undef($registered_cleanup); - return; + return OK; } sub get_dates_from_form { @@ -1661,10 +1662,11 @@ sub blocktype_text { 'passwd' => 'Change Password', 'grades' => 'Gradebook', 'search' => 'Content Search', + 'index' => 'Content Index', 'alert' => 'Critical Alert', 'reinit' => 'Course Re-init', ); - my $typeorder = ['com','chat','boards','port','groups','blogs','about','printout','docs','grades','search','alert','reinit','passwd']; + my $typeorder = ['com','chat','boards','port','groups','blogs','about','printout','docs','grades','search','index','alert','reinit','passwd']; return ($typeorder,\%types); }