version 1.14, 2015/04/15 03:28:19
|
version 1.15, 2015/09/13 21:48:05
|
Line 950 sub get_block_choices {
|
Line 950 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) || |