loncom/interface/lonblockingmenu.pm - diff

Return to lonblockingmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.16, 2016/01/27 00:24:09	version 1.18, 2016/03/04 21:43:15
Line 951 sub get_block_choices {	Line 951 sub get_block_choices {

sub check_release_required {	sub check_release_required {
my ($value,$chomemajor,$chomeminor) = @_;	my ($value,$chomemajor,$chomeminor) = @_;
my $needsrelease = $Apache::lonnet::needsrelease{'course:commblock:'.$value.':'};	my $needsrelease = $Apache::lonnet::needsrelease{'course:commblock:'.$value};
if ($needsrelease) {	if ($needsrelease) {
my ($needsmajor,$needsminor) = split(/\./,$needsrelease);	my ($needsmajor,$needsminor) = split(/\./,$needsrelease);
if (($chomemajor < $needsmajor) \|\|	if (($chomemajor < $needsmajor) \|\|
Line 1502 sub blocktype_text {	Line 1502 sub blocktype_text {
'blogs' => 'Blogs',	'blogs' => 'Blogs',
'docs' => 'Content',	'docs' => 'Content',
'printout' => 'Printouts',	'printout' => 'Printouts',
'passwd' => 'Password',	'passwd' => 'Change Password',
);	);
my $typeorder = ['com','chat','boards','port','groups','blogs','printout','docs','passwd'];	my $typeorder = ['com','chat','boards','port','groups','blogs','printout','docs','passwd'];
return ($typeorder,\%types);	return ($typeorder,\%types);