version 1.14.2.1, 2016/01/27 01:21:22
|
version 1.16, 2016/01/27 00:24:09
|
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) || |