loncom/interface/lonblockingmenu.pm - diff

Return to lonblockingmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.13, 2014/06/12 00:33:41	version 1.14, 2015/04/15 03:28:19
Line 913 sub get_block_choices {	Line 913 sub get_block_choices {
if (ref($symb_ref) eq 'HASH') {	if (ref($symb_ref) eq 'HASH') {
my %resources = map { $symb_ref->{$_} => 1; }	my %resources = map { $symb_ref->{$_} => 1; }
(split(/,/,$env{'form.docs_resources_'.$item}));	(split(/,/,$env{'form.docs_resources_'.$item}));
	if (exists($resources{''})) {
	delete($resources{''});
	}
$blocklist->{$type}->{resources} = \%resources;	$blocklist->{$type}->{resources} = \%resources;
if (keys(%resources) > 0) {	if (keys(%resources) > 0) {
$blockdocs = 1;	$blockdocs = 1;
Line 924 sub get_block_choices {	Line 927 sub get_block_choices {
if (ref($map_ref) eq 'HASH') {	if (ref($map_ref) eq 'HASH') {
my %maps = map { $map_ref->{$_} => 1; }	my %maps = map { $map_ref->{$_} => 1; }
(split(/,/,$env{'form.docs_maps_'.$item}));	(split(/,/,$env{'form.docs_maps_'.$item}));
	if (exists($maps{''})) {
	delete($maps{''});
	}
$blocklist->{$type}->{maps} = \%maps;	$blocklist->{$type}->{maps} = \%maps;
if (keys(%maps) > 0) {	if (keys(%maps) > 0) {
$blockdocs = 1;	$blockdocs = 1;