loncom/interface/lonblockingmenu.pm - diff

Return to lonblockingmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.14.2.1, 2016/01/27 01:21:22	version 1.17, 2016/01/27 03:04:49
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);