--- loncom/interface/lonblockingmenu.pm 2020/08/10 19:28:21 1.27
+++ 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.27 2020/08/10 19:28:21 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);
}
@@ -618,9 +619,11 @@ sub handler {
'
'."\n".
'- '.&mt("displaying LON-CAPA messages sent by other $usertype in the $lctype").'
'."\n".
'- '.&mt("displaying or posting to LON-CAPA discussion boards or live chat in the $lctype").'
'."\n".
- '- '.&mt('accessing content in LON-CAPA portfolios or blogs').'
'."\n".
+ '- '.&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("displaying $lctype content indexed by keyword").'
'.
'- '.&mt("accessing $lctype content in specified folders or resources").'
'.
'- '.&mt("changing user's own password").'
'.
'
'.
@@ -988,8 +991,7 @@ sub update_releasereq {
}
$modified_courses = [];
}
- undef($registered_cleanup);
- return;
+ return OK;
}
sub get_dates_from_form {
@@ -1654,14 +1656,17 @@ sub blocktype_text {
'port' => 'Portfolio',
'groups' => 'Groups',
'blogs' => 'Blogs',
+ 'about' => 'User Information',
'docs' => 'Content',
'printout' => 'Printouts',
'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','printout','docs','grades','alert','reinit','passwd'];
+ my $typeorder = ['com','chat','boards','port','groups','blogs','about','printout','docs','grades','search','index','alert','reinit','passwd'];
return ($typeorder,\%types);
}