--- loncom/interface/lonblockingmenu.pm 2016/01/27 03:05:37 1.14.2.2
+++ loncom/interface/lonblockingmenu.pm 2015/09/13 21:48:05 1.15
@@ -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.2 2016/01/27 03:05:37 raeburn Exp $
+# $Id: lonblockingmenu.pm,v 1.15 2015/09/13 21:48:05 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -561,7 +561,6 @@ sub handler {
'
'.&mt('accessing content in LON-CAPA portfolios or blogs').''."\n".
''.&mt("generating printouts of $lctype content").''.
''.&mt("accessing $lctype content in specified folders or resources").''.
- ''.&mt("changing user's own password").''.
''.
''.$lt{'blca'}.'
'.$lt{'pobl'}.'
'
);
@@ -951,7 +950,7 @@ sub get_block_choices {
sub check_release_required {
my ($value,$chomemajor,$chomeminor) = @_;
- my $needsrelease = $Apache::lonnet::needsrelease{'course:commblock:'.$value};
+ my $needsrelease = $Apache::lonnet::needsrelease{'course:commblock:'.$value.':'};
if ($needsrelease) {
my ($needsmajor,$needsminor) = split(/\./,$needsrelease);
if (($chomemajor < $needsmajor) ||
@@ -1502,9 +1501,8 @@ sub blocktype_text {
'blogs' => 'Blogs',
'docs' => 'Content',
'printout' => 'Printouts',
- 'passwd' => 'Change Password',
);
- my $typeorder = ['com','chat','boards','port','groups','blogs','printout','docs','passwd'];
+ my $typeorder = ['com','chat','boards','port','groups','blogs','printout','docs'];
return ($typeorder,\%types);
}