--- loncom/interface/lonblockingmenu.pm 2025/01/17 14:01:50 1.14.2.3.6.3
+++ loncom/interface/lonblockingmenu.pm 2017/06/26 01:56:58 1.25
@@ -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.6.3 2025/01/17 14:01:50 raeburn Exp $
+# $Id: lonblockingmenu.pm,v 1.25 2017/06/26 01:56:58 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -527,8 +527,7 @@ sub handler {
$r->print(&Apache::loncourserespicker::create_picker($navmap,
'examblock','resourceblocks',$crstype,
\%blockedmaps,\%blockedresources,
- $env{'form.block'},'','',undef,undef,undef,
- $readonly));
+ $env{'form.block'},'','',undef,$readonly));
} else {
$r->print($errormsg);
}
@@ -619,10 +618,8 @@ 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, blogs, or user information pages').'
'."\n".
+ '- '.&mt('accessing content in LON-CAPA portfolios or blogs').'
'."\n".
'- '.&mt("generating printouts of $lctype content").'
'.
- '- '.&mt("displaying the LON-CAPA gradebook in the $lctype").'
'.
- '- '.&mt("searching $lctype content by keyword").'
'.
'- '.&mt("accessing $lctype content in specified folders or resources").'
'.
'- '.&mt("changing user's own password").'
'.
'
'.
@@ -990,7 +987,8 @@ sub update_releasereq {
}
$modified_courses = [];
}
- return OK;
+ undef($registered_cleanup);
+ return;
}
sub get_dates_from_form {
@@ -1655,16 +1653,13 @@ sub blocktype_text {
'port' => 'Portfolio',
'groups' => 'Groups',
'blogs' => 'Blogs',
- 'about' => 'User Information',
'docs' => 'Content',
'printout' => 'Printouts',
'passwd' => 'Change Password',
- 'grades' => 'Gradebook',
- 'search' => 'Content Search',
'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','printout','docs','alert','reinit','passwd'];
return ($typeorder,\%types);
}