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; |